huge number of changes to start making all usages of expense accounts dynamic.

src/cljs/auto_ap/subs.cljs

@@ -20,11 +20,25 @@
  (fn [db]
    (:accounts db)))
 
+
+(re-frame/reg-sub
+ ::account
+ :<- [::accounts]
+ (fn [as [_ i]]
+   (first (filter
+           #(= (:id %) i)
+           as))))
+
 (re-frame/reg-sub
  ::accounts-for-client
  (fn [db client]
    (:accounts db)))
 
+(re-frame/reg-sub
+ ::accounts-for-current-client
+ (fn [db]
+   (:accounts db)))
+
 (re-frame/reg-sub
  ::bank-accounts
  :<- [::clients]
@@ -132,9 +146,9 @@
 
 (re-frame/reg-sub
  ::chooseable-expense-accounts
- (fn [db]
-   (map (fn [[k v]] (assoc v :id k))
-        chooseable-expense-accounts)))
+ :<- [::accounts-for-current-client]
+ (fn [accounts]
+   accounts))
 
 (re-frame/reg-sub
  ::page-failure