makes client selection not contanimate other tabs

This commit is contained in:
Bryce
2024-04-09 23:27:35 -07:00
parent 10a60dcee2
commit ff2bf4c2b3
20 changed files with 228 additions and 183 deletions

View File

@@ -17,7 +17,6 @@
::client
:<- [::selected-clients]
(fn [selected-clients]
(println "SELECTED CLIENTS ARE" selected-clients)
(when (= 1 (count selected-clients))
(first selected-clients))))
@@ -44,10 +43,6 @@
:<- [::user]
:<- [::clients]
(fn [[selected-clients user clients]]
(println "SELECTED" selected-clients
"USER" user
"CLIENTS" (count clients))
(cond (= :mine selected-clients)
(sort-by :name
(:user/clients user))
@@ -58,17 +53,15 @@
(nil? selected-clients))
clients
(= :group (and (sequential? selected-clients)
(first selected-clients)))
(let [group (second selected-clients)]
(:group selected-clients)
(let [group (:group selected-clients)]
(filterv
(fn [c]
(println "GROUP" group (:groups c))
((set (:groups c)) group))
clients))
(sequential? selected-clients)
(filter (comp (set (map coerce-string-version selected-clients)) coerce-string-version :id)
(:selected selected-clients)
(filter (comp (set (:selected selected-clients)) coerce-string-version :id)
clients)
:else