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

Single attribute context menu

Browse source
This commit is contained in:
Florian Schroedl 2024-07-08 15:40:33 +02:00
parent ae2da534e9
commit 359ec592fb
1 changed files with 34 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -211,35 +211,42 @@
:selected-shapes selected-shapes})))
(defn border-radius-attribute-actions [{:keys [token-id selected-shapes] :as _props}]
(let [all-attributes #{:r1 :r2 :r3 :r4}
ids-by-attributes (wtt/shapes-ids-by-applied-attributes {:id token-id} selected-shapes all-attributes)
(let [token {:id token-id}
all-attributes #{:r1 :r2 :r3 :r4}
ids-by-attributes (wtt/shapes-ids-by-applied-attributes token selected-shapes all-attributes)
shape-ids (into #{} (map :id selected-shapes))
all? (wtt/shapes-applied-all? ids-by-attributes shape-ids all-attributes)
selected? #(and
(not all?)
(seq (% ids-by-attributes)))]
[{:title "All"
:selected? all?
:action #(if all?
(st/emit! (wtc/unapply-token {:token {:id token-id}
:attributes all-attributes
:shape-ids shape-ids}))
(st/emit! (wtc/apply-token {:token {:id token-id}
:attributes all-attributes
:on-update-shape wtc/update-shape-radius
:shape-ids shape-ids})))}
{:title "Top Left"
:selected? (selected? :r1)
:action (when all? #(js/console.log "all"))}
{:title "Top Right"
:selected? (selected? :r2)
:action (when all? #(js/console.log "all"))}
{:title "Bottom Right"
:selected? (selected? :r3)
:action (when all? #(js/console.log "all"))}
{:title "Bottom Left"
:selected? (selected? :r4)
:action (when all? #(js/console.log "all"))}]))
selected-pred #(and
(not all?)
(seq (% ids-by-attributes)))
single-attributes (->> {:r1 "Top Left"
:r2 "Top Right"
:r3 "Bottom Left"
:r4 "Bottom Right"}
(map (fn [[attr title]]
(let [selected? (selected-pred attr)]
{:title title
:selected? selected?
:action (if selected?
(st/emit! (wtc/unapply-token {:token token
:attributes #{attr}
:shape-ids shape-ids}))
(st/emit! (wtc/apply-token {:token token
:attributes #{attr}
:on-update-shape wtc/update-shape-radius-single-corner
:shape-ids shape-ids})))}))))]
(concat
[{:title "All"
:selected? all?
:action #(if all?
(st/emit! (wtc/unapply-token {:token token
:attributes all-attributes
:shape-ids shape-ids}))
(st/emit! (wtc/apply-token {:token token
:attributes all-attributes
:on-update-shape wtc/update-shape-radius-all
:shape-ids shape-ids})))}]
single-attributes)))
(defn shape-attribute-actions [{:keys [token-id token-type selected-shapes] :as context-data}]
(let [attributes->actions (fn [update-fn coll]