This commit is contained in:
Florian Schroedl 2024-09-25 14:45:31 +02:00
parent 99e551925a
commit d2ed6b5501
3 changed files with 10 additions and 37 deletions

View file

@ -168,8 +168,7 @@
(defn create-token-set [token-set]
(let [new-token-set (merge
{:id (uuid/next)
:name "Token Set"
{:name "Token Set"
:tokens []}
token-set)]
(ptk/reify ::create-token-set
@ -177,8 +176,8 @@
(watch [it state _]
(let [changes (-> (pcb/empty-changes it)
(pcb/add-token-set new-token-set)
(ensure-token-theme-changes state {:id (:id new-token-set)
:new-set? true}))]
#_(ensure-token-theme-changes state {:id (:id new-token-set)
:new-set? true}))]
(rx/of
(set-selected-token-set-id (:name new-token-set))
(dch/commit-changes changes)))))))