improved two major forms.

src/cljs/auto_ap/subs.cljs

@@ -22,6 +22,12 @@
    (when (:user db)
      (sort-by :name (vals (:clients db))))))
 
+(re-frame/reg-sub
+  ::client-refs
+  :<- [::clients]
+  (fn [c]
+    (map #(select-keys % [:id :name]) c)))
+
 (re-frame/reg-sub
  ::all-accounts
  (fn [db]