simple change to get accounts auto-populating.

src/cljs/auto_ap/subs.cljs

@@ -100,12 +100,24 @@
  (fn [db]
    (vals (:vendors db))))
 
+(re-frame/reg-sub
+ ::vendors-by-id
+ (fn [db]
+   (:vendors db)))
+
+(re-frame/reg-sub
+ ::vendor-default-account
+ (fn [db [_ z]]
+   (let [i (-> (:vendors db) (get z) :default-account :id)]
+     (first (filter
+             #(= (:id %) i)
+             (:accounts db))))))
+
 (re-frame/reg-sub
  ::sorted-vendors
  :<- [::vendors]
  (fn [vendors]
    (sort-by :name vendors)))
-
 (re-frame/reg-sub
  ::admin
  (fn [db]