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

✨ Add library edition mode for plugins

Browse source
This commit is contained in:
alonso.torres 2024-05-29 12:43:15 +02:00 • committed by Andrey Antukh
parent b95cb3d4c5
commit 007ab3d909
3 changed files with 35 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
frontend/src/app/plugins/shape.cljs
View file

@ -160,7 +160,7 @@
(let [id (obj/get self "$id")
shape (proxy->shape self)]
(when (us/safe-int? value)
(when (ctsr/radius-4? shape)
(when (or (not (ctsr/has-radius? shape)) (ctsr/radius-4? shape))
(st/emit! (dwc/update-shapes [id] ctsr/switch-to-radius-1)))
(st/emit! (dwc/update-shapes [id] #(ctsr/set-radius-1 % value))))))}
@ -170,7 +170,7 @@
(let [id (obj/get self "$id")
shape (proxy->shape self)]
(when (us/safe-int? value)
(when (ctsr/radius-4? shape)
(when (or (not (ctsr/has-radius? shape)) (not (ctsr/radius-4? shape)))
(st/emit! (dwc/update-shapes [id] ctsr/switch-to-radius-4)))
(st/emit! (dwc/update-shapes [id] #(ctsr/set-radius-4 % :r1 value))))))}
@ -180,7 +180,7 @@
(let [id (obj/get self "$id")
shape (proxy->shape self)]
(when (us/safe-int? value)
(when (ctsr/radius-4? shape)
(when (or (not (ctsr/has-radius? shape)) (not (ctsr/radius-4? shape)))
(st/emit! (dwc/update-shapes [id] ctsr/switch-to-radius-4)))
(st/emit! (dwc/update-shapes [id] #(ctsr/set-radius-4 % :r2 value))))))}
@ -190,7 +190,7 @@
(let [id (obj/get self "$id")
shape (proxy->shape self)]
(when (us/safe-int? value)
(when (ctsr/radius-4? shape)
(when (or (not (ctsr/has-radius? shape)) (not (ctsr/radius-4? shape)))
(st/emit! (dwc/update-shapes [id] ctsr/switch-to-radius-4)))
(st/emit! (dwc/update-shapes [id] #(ctsr/set-radius-4 % :r3 value))))))}
@ -200,7 +200,7 @@
(let [id (obj/get self "$id")
shape (proxy->shape self)]
(when (us/safe-int? value)
(when (ctsr/radius-4? shape)
(when (or (not (ctsr/has-radius? shape)) (not (ctsr/radius-4? shape)))
(st/emit! (dwc/update-shapes [id] ctsr/switch-to-radius-4)))
(st/emit! (dwc/update-shapes [id] #(ctsr/set-radius-4 % :r4 value))))))}
@ -360,7 +360,7 @@
:get #(-> % proxy->shape :strokes array-to-js)
:set (fn [self value]
(let [id (obj/get self "$id")
value (mapv #(utils/from-js %) value)]
value (mapv #(utils/from-js % #{:stroke-style :stroke-alignment}) value)]
(st/emit! (dwc/update-shapes [id] #(assoc % :strokes value)))))}
{:name "layoutChild"