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

Move to tests

Browse source
This commit is contained in:
Florian Schroedl 2024-06-24 14:29:29 +02:00
parent 111900c122
commit 28f25da9e8
2 changed files with 8 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

17
frontend/src/app/main/ui/workspace/tokens/style_dictionary.cljs
View file

@ -30,20 +30,9 @@
(map second)
(into #{})))
(defn token-self-reference? [token-name reference-string]
(let [escaped-name (str/replace token-name "." "\\.")
regex (-> (str "{" escaped-name "}")
(re-pattern))]
(re-find regex reference-string)))
(comment
(token-self-reference? {:name "some.value"} "{md} + {some.value}")
(token-self-reference? {:name "some.value"} "some.value")
(token-self-reference? {:name "some.value"} "{some|value}")
(token-self-reference? {:name "sm"} "{md} + {lg}")
(token-self-reference? {:name "sm"} "1")
(token-self-reference? {:name ""} "121")
nil)
(defn token-self-reference? [token-name value-string]
(let [refs (find-token-references value-string)]
(get refs token-name)))
(defn tokens->style-dictionary+
"Resolves references and math expressions using StyleDictionary.