🐛 Close expanded tree when switching or creating sets (#8920)

This commit is contained in:
Xaviju 2026-04-09 12:37:29 +02:00 committed by GitHub
parent d65f3b5396
commit 666313c2c3
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 13 additions and 3 deletions

View File

@ -96,6 +96,13 @@
(close-token-type types type)
(open-token-type types type)))))))
(defn clear-tokens-types
[]
(ptk/reify ::clear-tokens-types
ptk/UpdateEvent
(update [_ state]
(assoc-in state [:workspace-tokens :unfolded-token-types] []))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TOKENS TREE - Toggle tree nodes

View File

@ -16,8 +16,9 @@
[rumext.v2 :as mf]))
(defn- on-select-token-set-click [id]
(st/emit! (dwtl/clear-tokens-paths))
(st/emit! (dwtl/set-selected-token-set-id id)))
(st/emit! (dwtl/clear-tokens-paths)
(dwtl/clear-tokens-types)
(dwtl/set-selected-token-set-id id)))
(defn- on-toggle-token-set-click [name]
(st/emit! (dwtl/toggle-token-set name)))

View File

@ -41,7 +41,9 @@
(dwtl/clear-token-set-creation))
(if (empty? errors)
(let [token-set (ctob/make-token-set :name name)]
(st/emit! (dwtl/create-token-set token-set)))
(st/emit! (dwtl/create-token-set token-set)
(dwtl/clear-tokens-paths)
(dwtl/clear-tokens-types)))
(st/emit! (ntf/show {:content (tr "errors.token-set-already-exists")
:type :toast
:level :error