makes client selection not contanimate other tabs
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user