3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-10 17:26:37 +02:00
Code Issues Projects Releases Packages Wiki 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
Download patch file Download diff file Expand all files Collapse all files

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))))))