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 into helper

Browse source
This commit is contained in:
Florian Schroedl 2024-07-04 10:00:44 +02:00
parent e85de19a5e
commit 581ced0ab8
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -77,8 +77,7 @@
(fn [sd-tokens]
(let [resolved-value (-> (get sd-tokens (:id token))
(resolve-token-value))
tokenized-attributes (->> (map (fn [attr] {attr (:id token)}) attributes)
(into {}))]
tokenized-attributes (wtt/attributes-map attributes (:id token))]
(rx/of
(dch/update-shapes shape-ids (fn [shape]
(update shape :applied-tokens merge tokenized-attributes)))

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

@ -2,6 +2,12 @@
(:require
[cuerdas.core :as str]))
(defn attributes-map
"Creats an attributes map using collection of `attributes` for `id`."
[attributes id]
(->> (map (fn [attr] {attr id}) attributes)
(into {})))
(defn token-applied?
"Test if `token` is applied to a `shape` with the given `token-attributes`."
[token shape token-attributes]