Set renaming

This commit is contained in:
Florian Schroedl 2024-09-25 14:59:20 +02:00
parent d2ed6b5501
commit 9c1a509fa4
5 changed files with 10 additions and 28 deletions

View file

@ -182,11 +182,12 @@
(set-selected-token-set-id (:name new-token-set))
(dch/commit-changes changes)))))))
(defn update-token-set [token-set]
(defn update-token-set [set-name token-set]
(ptk/reify ::update-token-set
ptk/WatchEvent
(watch [it state _]
(let [prev-token-set (wtts/get-token-set (:id token-set) state)
(let [prev-token-set (some-> (get-tokens-lib state)
(ctob/get-set set-name))
changes (-> (pcb/empty-changes it)
(pcb/update-token-set token-set prev-token-set))]
(rx/of

View file

@ -31,8 +31,8 @@
(dom/stop-propagation event)
(st/emit! (wdt/delete-token-set (dm/legacy nil) name)))
(defn on-update-token-set [token-set]
(st/emit! (wdt/update-token-set token-set)))
(defn on-update-token-set [set-name token-set]
(st/emit! (wdt/update-token-set set-name token-set)))
(defn on-create-token-set [token-set]
(st/emit! (wdt/create-token-set token-set)))
@ -159,7 +159,7 @@
:on-edit on-edit
:on-toggle on-toggle-token-set
:on-submit #(do
(on-update-token-set %)
(on-update-token-set (:name token-set) %)
(on-reset))
:on-cancel on-reset}]))
(when new?