3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-04 05:41:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

Add basic icons rendering on canvas.

Browse source
This commit is contained in:
Andrey Antukh 2015-12-28 16:33:14 +02:00
parent fc03388d70
commit f28d54936f
4 changed files with 92 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
frontend/uxbox/ui/workspace/toolboxes.cljs
View file

@ -106,16 +106,28 @@
;; Icons
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn- select-icon
[icon]
(if (= (:drawing @wb/workspace-state) icon)
(rs/emit! (dw/select-for-drawing nil))
(rs/emit! (dw/select-for-drawing icon))))
(defn- change-icon-coll
[local event]
(let [value (-> (dom/event->value event)
(read-string))]
(swap! local assoc :collid value)
(rs/emit! (dw/select-for-drawing nil))))
(defn icons-render
[own]
(let [local (:rum/local own)
workspace (rum/react wb/workspace-state)
collid (:collid @local)
icons (get-in library/+icon-collections-by-id+ [collid :icons])
on-close #(rs/emit! (dw/toggle-toolbox :icons))
on-change (fn [e]
(let [value (dom/event->value e)
value (read-string value)]
(swap! local assoc :collid value)))]
on-select #(select-icon %)
on-change #(change-icon-coll local %)]
(html
[:div#form-figures.tool-window
[:div.tool-window-bar
@ -132,9 +144,10 @@
[:option {:key (str "icon-coll" (:id icon-coll))
:value (pr-str (:id icon-coll))}
(:name icon-coll)])]]
(for [icon icons]
[:div.figure-btn {:class nil #_"selected"
:on-click (constantly nil)}
(for [icon icons
:let [selected? (= (:drawing workspace) icon)]]
[:div.figure-btn {:class (when selected? "selected")
:on-click #(on-select icon)}
(shapes/render icon)])]])))
(def ^:static icons