Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 06:02:32 -05:00
Code Issues Activity

Add sizing

Browse source
This commit is contained in:
Florian Schroedl 2024-07-23 16:35:07 +02:00
parent 65dbafafb8
commit 62f7f8a74f
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -189,7 +189,12 @@
(when (:height attributes) (dwt/update-dimensions shape-ids :height value))))))
(defn update-layout-sizing-limits [value shape-ids attributes]
(st/emit! (dwsl/update-layout-child shape-ids {(first attributes) value})))
(let [props (-> {:layout-item-min-w value
:layout-item-min-h value
:layout-item-max-w value
:layout-item-max-h value}
(select-keys attributes))]
(dwsl/update-layout-child shape-ids props)))
(defn apply-sizing-token [{:keys [token token-type-props selected-shapes]} attributes]
(let [updated-token-type-props (cond
@ -397,8 +402,17 @@
(defn sizing-attribute-actions [context-data]
(concat
(all-or-sepearate-actions {:width "Width" :height "Height"} update-shape-dimensions context-data)
[:separator]))
(all-or-sepearate-actions {:width "Width"
:height "Height"}
update-shape-dimensions context-data)
[:separator]
(all-or-sepearate-actions {:layout-item-min-w "Min Width"
:layout-item-min-h "Min Height"}
update-layout-sizing-limits context-data)
[:separator]
(all-or-sepearate-actions {:layout-item-max-w "Max Width"
:layout-item-max-h "Max Height"}
update-layout-sizing-limits context-data)))
(defn generic-attribute-actions [attributes title {:keys [token selected-shapes]}]
(let [{:keys [on-update-shape] :as p} (get wtc/token-types (:type token))