Now overrides actually make an impact

src/cljs/auto_ap/subs.cljs

@@ -131,10 +131,18 @@
 
 (re-frame/reg-sub
  ::vendor-default-account
- (fn [db [_ v]]
-   (let [i (if (:default-account v)
-             (-> v :default-account :id)
-             (-> (:vendors db) (get v) :default-account :id))]
+ (fn [db [_ v client]]
+   (let [vendor (if (:default-account v)
+                  v
+                  (-> (:vendors db) (get v)))
+         client-override (->> (:account-overrides vendor)
+                              (filter #(= (:id (:client %)) (:id client))
+                                      )
+                              first
+                              :account
+                              :id)
+         default-id (:id (:default-account v))
+         i (or client-override default-id)]
      (first (filter
              #(= (:id %) i)
              (:accounts db))))))