Started adding admin page

2018-04-03 19:27:34 -07:00
parent b810deb609
commit ff7cc1d024
7 changed files with 162 additions and 8 deletions
--- a/src/cljs/auto_ap/subs.cljs
+++ b/src/cljs/auto_ap/subs.cljs
@@ -24,6 +24,14 @@
 (fn [db]
   (:user db)))

+(re-frame/reg-sub
+ ::admin-companies
+ (fn [db]
+   (assoc
+    (:admin-companies db)
+    :selected
+    (first (filter #(= (:id %) (:selected (:admin-companies db))) (:companies db))))))
+
 (re-frame/reg-sub
 ::user
 (fn [db]