Made admin clients easier to work with.

src/cljs/auto_ap/subs.cljs

@@ -138,16 +138,30 @@
    (when (:user db)
      (js->clj (.parse js/JSON (base64/decodeString (second (str/split (:user db) #"\.")))) :keywordize-keys true))))
 
+(re-frame/reg-sub
+  ::active-route
+  (fn [db]
+    (:active-route db)))
+
 (re-frame/reg-sub
  ::active-page
- (fn [db]
-   (:active-page db)))
+ :<- [::active-route]
+ (fn [route]
+   (or ({:admin-specific-client :admin-clients
+         :admin-specific-bank-account :admin-clients}
+        route)
+       route)))
 
 (re-frame/reg-sub
  ::query-params
  (fn [db]
    (:query-params db)))
 
+(re-frame/reg-sub
+  ::route-params
+  (fn [db]
+    (:route-params db)))
+
 (re-frame/reg-sub
  ::page-failure
  (fn [db]