3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-01 09:56:20 +02:00
Code Issues Projects Releases Packages Wiki Activity

Cleanup

Browse source
This commit is contained in:
Florian Schroedl 2024-09-27 11:21:30 +02:00
parent 93ed1ded17
commit b7cedf219b
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -253,28 +253,27 @@
(ptk/reify ::update-create-token (ptk/reify ::update-create-token
ptk/WatchEvent ptk/WatchEvent
(watch [it state _] (watch [it state _]
(let [token-set (wtts/get-selected-token-set state) (let [token-set (wtts/get-selected-token-set state)
create-set? (not token-set) create-set? (not token-set)
token-set (or token-set token-set (or token-set
{:id (uuid/next) {:id (uuid/next)
:name "Global" :name "Global"
:tokens []}) :tokens []})
changes (cond-> (pcb/empty-changes it) changes (cond-> (pcb/empty-changes it)
create-set? create-set?
(pcb/add-token-set token-set)) (pcb/add-token-set token-set))
prev-token-id (d/seek #(= % (:id token)) (:tokens token-set)) prev-token-id (d/seek #(= % (:id token)) (:tokens token-set))
prev-token (get-token-data-from-token-id prev-token-id) prev-token (get-token-data-from-token-id prev-token-id)
create-token? (not prev-token) create-token? (not prev-token)
changes (if create-token? changes (if create-token?
(pcb/add-token changes (:id token-set) (:name token-set) token) (pcb/add-token changes (:id token-set) (:name token-set) token)
(pcb/update-token changes (:id token-set) (:name token-set) token prev-token)) (pcb/update-token changes (:id token-set) (:name token-set) token prev-token))
changes (-> changes
changes (-> changes (ensure-token-theme-changes state {:new-set? create-set?
(ensure-token-theme-changes state {:new-set? create-set? :id (:id token-set)}))]
:id (:id token-set)}))]
(rx/of (rx/of
(set-selected-token-set-id (:name token-set)) (set-selected-token-set-id (:name token-set))
(dch/commit-changes changes))))))) (dch/commit-changes changes)))))))