Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-01 11:59:17 -05:00
Code Issues Activity

Allow passing custom on-update-shape function

Browse source
This commit is contained in:
Florian Schroedl 2024-07-29 18:30:59 +02:00
parent ededd23849
commit 9340ba9cc0
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
frontend/src/app/main/ui/workspace/tokens/context_menu.cljs
View file

@ -32,8 +32,10 @@
:shape-ids shape-ids :shape-ids shape-ids
:selected-pred #(seq (% ids-by-attributes))})) :selected-pred #(seq (% ids-by-attributes))}))
(defn generic-attribute-actions [attributes title {:keys [token selected-shapes]}] (defn generic-attribute-actions [attributes title {:keys [token selected-shapes on-update-shape]}]
(let [{:keys [on-update-shape]} (wtty/get-token-properties token) (let [on-update-shape-fn (or on-update-shape
(-> (wtty/get-token-properties token)
(:on-update-shape)))
{:keys [selected-pred shape-ids]} (attribute-actions token selected-shapes attributes)] {:keys [selected-pred shape-ids]} (attribute-actions token selected-shapes attributes)]
(map (fn [attribute] (map (fn [attribute]
(let [selected? (selected-pred attribute) (let [selected? (selected-pred attribute)
@ -43,9 +45,9 @@
{:title title {:title title
:selected? selected? :selected? selected?
:action #(if selected? :action (if selected?
(st/emit! (wtch/unapply-token props)) (st/emit! (wtch/unapply-token props))
(st/emit! (wtch/apply-token (assoc props :on-update-shape on-update-shape))))})) (st/emit! (wtch/apply-token (assoc props :on-update-shape on-update-shape-fn))))}))
attributes))) attributes)))
(defn all-or-sepearate-actions [{:keys [attribute-labels on-update-shape-all on-update-shape]} (defn all-or-sepearate-actions [{:keys [attribute-labels on-update-shape-all on-update-shape]}