Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 14:12:36 -05:00
Code Issues Activity

Abstract functionality

Browse source
This commit is contained in:
Florian Schroedl 2024-05-23 09:24:12 +02:00
parent 557195cd55
commit 1ed692230b
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
frontend/src/app/main/ui/workspace/sidebar/options/menus/measures.cljs
View file

@ -295,7 +295,7 @@
(mf/use-fn (mf/use-fn
(mf/deps ids change-radius border-radius-tokens) (mf/deps ids change-radius border-radius-tokens)
(fn [token] (fn [token]
(let [token-value (some-> token wtc/resolve-token-value)] (let [token-value (wtc/maybe-resolve-token-value token)]
(st/emit! (st/emit!
(change-radius (fn [shape] (change-radius (fn [shape]
(-> (dt/unapply-token-id shape (wtc/token-attributes :border-radius)) (-> (dt/unapply-token-id shape (wtc/token-attributes :border-radius))
@ -305,11 +305,10 @@
(mf/use-fn (mf/use-fn
(mf/deps ids change-radius border-radius-tokens) (mf/deps ids change-radius border-radius-tokens)
(fn [value] (fn [value]
(let [token (when (map? value) value) (let [token-value (wtc/maybe-resolve-token-value value)]
token-value (some-> token wtc/resolve-token-value)]
(st/emit! (st/emit!
(change-radius (fn [shape] (change-radius (fn [shape]
(-> (dt/maybe-apply-token-to-shape {:token token (-> (dt/maybe-apply-token-to-shape {:token (when token-value value)
:shape shape :shape shape
:attributes (wtc/token-attributes :border-radius)}) :attributes (wtc/token-attributes :border-radius)})
(ctsr/set-radius-1 (or token-value value))))))))) (ctsr/set-radius-1 (or token-value value)))))))))

3
frontend/src/app/main/ui/workspace/tokens/core.cljs
View file

@ -37,6 +37,9 @@
int-or-double int-or-double
(throw (ex-info (str "Implement token value resolve for " value) token)))) (throw (ex-info (str "Implement token value resolve for " value) token))))
(defn maybe-resolve-token-value [{:keys [value] :as token}]
(when value (resolve-token-value token)))
(defn group-tokens-by-type (defn group-tokens-by-type
"Groups tokens by their `:type` property." "Groups tokens by their `:type` property."
[tokens] [tokens]