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

src/clj/auto_ap/datomic/vendors.clj

@@ -23,16 +23,11 @@
 
 (defn get-by-id [id]
   
-  (->> (d/q '[:find (pull ?e [*])
+  (->> (d/q '[:find (pull ?e [* {:default-account [:account/name :db/id :account/location]}])
               :in $ ?e
               :where [?e]]
             (d/db (d/connect uri))
             id)
        (map first)
        (first)
-       #_(map (fn [c]
-                (update c :client/bank-accounts
-                        (fn [bas]
-                          (map (fn [ba]
-                                 (update ba :bank-account/type :db/ident ))
-                               bas)))))))
+       ))