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 token value parsing function

Browse source
This commit is contained in:
Florian Schroedl 2024-08-08 09:40:26 +02:00
parent 980238e27b
commit 2e8e33d701
2 changed files with 27 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4,6 +4,14 @@
[clojure.set :as set]
[cuerdas.core :as str]))
(def parseable-token-value-regexp
#"^\s*(-?[0-9]+\.?[0-9]*)\s*$")
(defn parse-token-value [value]
(when-let [double-str (-> (re-find parseable-token-value-regexp value)
(last))]
(d/parse-double double-str)))
(defn find-token-references
"Finds token reference values in `value-string` and returns a set with all contained namespaces."
[value-string]

27
frontend/test/token_tests/token_test.cljs
View file

@ -9,15 +9,26 @@
[app.main.ui.workspace.tokens.token :as wtt]
[cljs.test :as t :include-macros true]))
(t/deftest test-parse-token-value
(t/testing "parses double from a token value"
(t/is (= 100.1 (wtt/parse-token-value "100.1")))
(t/is (= -9 (wtt/parse-token-value "-9")))
(t/testing "trims white-space"
(t/is (= -1.3 (wtt/parse-token-value " -1.3 "))))
(t/testing "returns nil for any invalid characters"
(t/is (nil? (wtt/parse-token-value " -1.3a "))))
(t/testing "doesnt accept invalid double"
(t/is (nil? (wtt/parse-token-value ".3"))))))
(t/deftest find-token-references
;; Return references
(t/is (= #{"foo" "bar"} (wtt/find-token-references "{foo} + {bar}")))
;; Ignore non reference text
(t/is (= #{"foo.bar.baz"} (wtt/find-token-references "{foo.bar.baz} + something")))
;; No references found
(t/is (nil? (wtt/find-token-references "1 + 2")))
;; Edge-case: Ignore unmatched closing parens
(t/is (= #{"foo" "bar"} (wtt/find-token-references "{foo}} + {bar}"))))
(t/testing "finds references inside curly braces in a string"
(t/is (= #{"foo" "bar"} (wtt/find-token-references "{foo} + {bar}")))
(t/testing "ignores extra text"
(t/is (= #{"foo.bar.baz"} (wtt/find-token-references "{foo.bar.baz} + something"))))
(t/testing "ignores string without references"
(t/is (nil? (wtt/find-token-references "1 + 2"))))
(t/testing "handles edge-case for extra curly braces"
(t/is (= #{"foo" "bar"} (wtt/find-token-references "{foo}} + {bar}"))))))
(t/deftest remove-attributes-for-token-id
(t/testing "removes attributes matching the `token`, keeps other attributes"