3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-30 15:16:21 +02:00
Code Issues Projects Releases Packages Wiki Activity

Add create token-set event

Browse source
This commit is contained in:
Florian Schroedl 2024-08-15 18:52:42 +02:00
parent 1f0c1dbbe6
commit f3d4346c0d
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -20,6 +20,7 @@
[clojure.data :as data] [clojure.data :as data]
[cuerdas.core :as str] [cuerdas.core :as str]
[potok.v2.core :as ptk] [potok.v2.core :as ptk]
[app.main.ui.workspace.tokens.changes :as wdt]
[app.main.ui.workspace.tokens.token-set :as wtts])) [app.main.ui.workspace.tokens.token-set :as wtts]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -87,6 +88,20 @@
(update [_ state] (update [_ state]
(wtts/assoc-selected-token-set-id state id)))) (wtts/assoc-selected-token-set-id state id))))
(defn create-token-set [token-set]
(let [new-token-set (merge
{:id (uuid/next)
:name "Token Set"
:tokens []}
token-set)]
(ptk/reify ::update-create-token
ptk/WatchEvent
(watch [it _ _]
(let [changes (-> (pcb/empty-changes it)
(pcb/add-token-set new-token-set))]
(rx/of
(dch/commit-changes changes)))))))
(defn update-create-token (defn update-create-token
[token] [token]
(let [token (update token :id #(or % (uuid/next)))] (let [token (update token :id #(or % (uuid/next)))]