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,9 +132,10 @@
on-select
context]
: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)}
(for [[id token-set] token-sets]
(when token-set
[:& sets-tree {:key id
:token-set token-set
:token-set-selected? (if new? (constantly false) token-set-selected?)
@ -146,7 +147,7 @@
:on-submit #(do
(on-update-token-set %)
(on-reset))
:on-cancel on-reset}])
:on-cancel on-reset}]))
(when new?
[:& sets-tree {:token-set {:name ""}
:token-set-selected? (constantly true)