Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-09 21:41:23 -05:00
Code Issues Activity

✨ Normalize token name on creation

Browse source
This commit is contained in:
Andrey Antukh 2025-03-14 11:53:09 +01:00
parent a9e8d8f8f7
commit 559dcabf0e
2 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
common/src/app/common/types/tokens_lib.cljc
View file

@ -251,6 +251,12 @@
[name]
(split-path name set-separator))
(defn normalize-set-name
[name]
(->> (split-token-set-name name)
(map str/trim)
(str/join set-separator)))
(defn get-token-set-path [token-set]
(let [path (get-path token-set set-separator)]
(add-token-set-paths-prefix path)))

29
frontend/src/app/main/data/tokens.cljs
View file

@ -136,15 +136,26 @@
ptk/WatchEvent
(watch [it state _]
(let [token-set' (-> token-set
(update :name #(if (empty? %)
set-name
(ctob/join-set-path [% set-name]))))
data (dsh/lookup-file-data state)
token-set-name (:name token-set')
changes (-> (pcb/empty-changes it)
(pcb/with-library-data data)
(pcb/set-token-set token-set-name false token-set'))]
(let [token-set'
;; FIXME: wtf is this?
(update token-set :name #(if (empty? %)
set-name
(ctob/join-set-path [% set-name])))
token-set'
(update token-set' :name ctob/normalize-set-name)
data
(dsh/lookup-file-data state)
token-set-name
(:name token-set')
changes
(-> (pcb/empty-changes it)
(pcb/with-library-data data)
(pcb/set-token-set token-set-name false token-set'))]
(rx/of (set-selected-token-set-name token-set-name)
(dch/commit-changes changes))))))