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

Abstract API

Browse source
This commit is contained in:
Florian Schroedl 2024-05-23 09:41:16 +02:00
parent e181065bda
commit 2dd994799c
2 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -99,15 +99,15 @@
selection-parents (mf/deref selection-parents-ref)
tokens (mf/deref refs/workspace-tokens)
border-radius-tokens (mf/use-memo
(mf/deps tokens)
#(wtc/tokens-name-map-for-type :border-radius tokens))
tokens-by-type (mf/use-memo (mf/deps tokens) #(wtc/group-tokens-by-type tokens))
border-radius-tokens (:border-radius tokens-by-type)
border-radius-options (mf/use-memo
(mf/deps shape border-radius-tokens)
#(map (fn [[_k {:keys [name] :as item}]]
(cond-> (assoc item :label name)
(wtc/token-applied? item shape (wtc/token-attributes :border-radius)) (assoc :selected? true)))
border-radius-tokens))
#(wtc/tokens-name-map->select-options
{:shape shape
:tokens border-radius-tokens
:attributes (wtc/token-attributes :border-radius)}))
flex-child? (->> selection-parents (some ctl/flex-layout?))
absolute? (ctl/item-absolute? shape)
@ -296,7 +296,7 @@
on-border-radius-token-unapply
(mf/use-fn
(mf/deps ids change-radius border-radius-tokens)
(mf/deps ids change-radius)
(fn [token]
(let [token-value (wtc/maybe-resolve-token-value token)]
(st/emit!
@ -306,7 +306,7 @@
on-radius-1-change
(mf/use-fn
(mf/deps ids change-radius border-radius-tokens)
(mf/deps ids change-radius)
(fn [value]
(let [token-value (wtc/maybe-resolve-token-value value)]
(st/emit!

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

@ -63,6 +63,12 @@
(get token-type [])
(tokens-name-map)))
(defn tokens-name-map->select-options [{:keys [shape tokens attributes]}]
(->> (tokens-name-map tokens)
(map (fn [[_k {:keys [name] :as item}]]
(cond-> (assoc item :label name)
(token-applied? item shape attributes) (assoc :selected? true))))))
;; Update functions ------------------------------------------------------------
(defn on-apply-token [{:keys [token token-type-props selected-shapes] :as _props}]