HACK: Fix empty sets showing up in listing

This commit is contained in:
Florian Schroedl 2024-08-27 15:22:02 +02:00
parent b24b178e29
commit e363b58774

View file

@ -132,21 +132,22 @@
on-select on-select
context] context]
:as _props}] :as _props}]
(let [{:keys [editing? new? on-edit on-create on-reset]} (or context (sets-context/use-context))] (let [{:keys [editing? new? on-edit on-create on-reset] :as ctx} (or context (sets-context/use-context))]
[:ul {:class (stl/css :sets-list)} [:ul {:class (stl/css :sets-list)}
(for [[id token-set] token-sets] (for [[id token-set] token-sets]
[:& sets-tree {:key id (when token-set
:token-set token-set [:& sets-tree {:key id
:token-set-selected? (if new? (constantly false) token-set-selected?) :token-set token-set
:token-set-active? token-set-active? :token-set-selected? (if new? (constantly false) token-set-selected?)
:editing? editing? :token-set-active? token-set-active?
:on-select on-select :editing? editing?
:on-edit on-edit :on-select on-select
:on-toggle on-toggle-token-set :on-edit on-edit
:on-submit #(do :on-toggle on-toggle-token-set
(on-update-token-set %) :on-submit #(do
(on-reset)) (on-update-token-set %)
:on-cancel on-reset}]) (on-reset))
:on-cancel on-reset}]))
(when new? (when new?
[:& sets-tree {:token-set {:name ""} [:& sets-tree {:token-set {:name ""}
:token-set-selected? (constantly true) :token-set-selected? (constantly true)