Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-12 07:41:43 -05:00
Code Issues Activity

Add event for alter shapes stroke properties.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-21 00:12:38 +02:00
parent b7afe65272
commit d5e636f696
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/uxbox/data/workspace.cljs
View file

@ -36,6 +36,10 @@
{:fill [sc/color]
:opacity [v/number]})
(def ^:static +shape-update-stroke-schema+
{:color [sc/color]
:opacity [v/number]})
(def ^:static +shape-update-position-schema+
{:x [v/integer]
:y [v/integer]})
@ -232,6 +236,17 @@
(when fill {:fill fill})
(when opacity {:opacity opacity})))))
(defn update-shape-stroke
[sid {:keys [color opacity width] :as opts}]
(sc/validate! +shape-update-stroke-schema+ opts)
(reify
rs/UpdateEvent
(-apply-update [_ state]
(update-in state [:shapes-by-id sid]
merge
(when width {:stroke-width width})
(when color {:stroke color})
(when opacity {:stroke-opacity opacity})))))
(defn toggle-shape-visibility
[sid]