Update token sets

This commit is contained in:
Florian Schroedl 2024-08-13 18:30:00 +02:00
parent 9aadb8c72f
commit 1135b7e2db
3 changed files with 28 additions and 8 deletions

View file

@ -131,6 +131,9 @@
new-token-set {:id (uuid/next)
:name "Global"
:tokens [(:id token)]}
selected-token-set-id (if create-set?
(:id new-token-set)
(:id token-set))
changes (cond
create-set? (-> token-changes
(pcb/add-token-set new-token-set))
@ -138,9 +141,9 @@
token-set
(update token-set :tokens conj (:id token)))]
(-> token-changes
(pcb/update-token-set token-set updated-token-set))))]
(pcb/update-token-set updated-token-set token-set))))]
(rx/of
(set-selected-token-set-id (:id new-token-set))
(set-selected-token-set-id selected-token-set-id)
(dch/commit-changes changes)))))))
(defn delete-token