Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 23:49:45 -05:00
Code Issues Activity

Add stroke colors into recent colors summary.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-24 00:52:34 +02:00
parent 3fbe465b99
commit 9e72dbb0a0
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/uxbox/ui/workspace/recent_colors.cljs
View file

@ -26,16 +26,20 @@
#(rs/emit! (dw/toggle-tool :workspace/colorpalette)))
(defn- count-color
[state shape]
(let [color (:fill shape)]
[state shape prop]
(let [color (prop shape)]
(if (contains? state color)
(update state color inc)
(assoc state color 1))))
(defn- calculate-colors
[shapes]
(let [result (reduce count-color {} shapes)]
(take 5 (map first (sort-by second (into [] result))))))
(as-> (comp
#(count-color %1 %2 :fill)
#(count-color %1 %2 :stroke)) $
(reduce $ {} shapes)
(sort-by second (into [] $))
(take 5 (map first $))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Component