mirror of
https://github.com/penpot/penpot.git
synced 2025-08-03 15:58:29 +02:00
Add ability to apply rotation token
This commit is contained in:
parent
e874ed5b6c
commit
3793f1791a
2 changed files with 13 additions and 0 deletions
|
@ -10,6 +10,7 @@
|
|||
[app.common.types.shape.radius :as ctsr]
|
||||
[app.common.types.token :as ctt]
|
||||
[app.main.data.tokens :as dt]
|
||||
[app.main.data.workspace :as udw]
|
||||
[app.main.data.workspace.changes :as dch]
|
||||
[app.main.data.workspace.shape-layout :as dwsl]
|
||||
[app.main.data.workspace.state-helpers :as wsh]
|
||||
|
@ -101,6 +102,10 @@
|
|||
(when (seq (:strokes shape))
|
||||
(assoc-in shape [:strokes 0 :stroke-width] value))))))
|
||||
|
||||
(defn update-rotation [value shape-ids]
|
||||
(st/emit! (udw/trigger-bounding-box-cloaking shape-ids)
|
||||
(udw/increase-rotation shape-ids value)))
|
||||
|
||||
(defn update-layout-spacing-column [value shape-ids]
|
||||
(doseq [shape-id shape-ids]
|
||||
(let [shape (dt/get-shape-from-state shape-id @st/state)
|
||||
|
@ -172,6 +177,8 @@
|
|||
:key :other}]}}]
|
||||
[:rotation
|
||||
{:title "Rotation"
|
||||
:attributes ctt/rotation-keys
|
||||
:on-update-shape update-rotation
|
||||
:modal {:key :tokens/rotation
|
||||
:fields [{:label "Rotation"
|
||||
:key :rotation}]}}]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue