Makes groups possible

src/cljs/auto_ap/subs.cljs

@@ -46,10 +46,10 @@
   (fn [[selected-clients user clients]]
     (println "SELECTED" selected-clients
              "USER" user
-             "CLIENTS" clients)
+             "CLIENTS" (count clients))
     
     (cond (= :mine selected-clients)
-          (sort-by :name 
+          (sort-by :name
                    (:user/clients user))
 
           (or (and (sequential? selected-clients)
@@ -58,6 +58,15 @@
               (nil? selected-clients))
           clients
 
+          (= :group (and (sequential? selected-clients)
+                         (first selected-clients)))
+          (let [group (second 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)
                   clients)