Accounts don't need to be loaded

2022-04-19 13:27:47 -07:00
parent f73b406abd
commit f51f3450d6
22 changed files with 398 additions and 420 deletions
--- a/src/clj/auto_ap/datomic/accounts.clj
+++ b/src/clj/auto_ap/datomic/accounts.clj
@@ -11,6 +11,16 @@
                                                 :account-client-override/name
                                                 {:account-client-override/client [:db/id :client/name]}]}])

+(defn clientize [a client]
+  (if-let [override-name (->> a
+                              :account/client-overrides
+                              (filter #(= client
+                                          (:db/id (:account-client-override/client %))))
+                              first
+                              :account-client-override/name)]
+    (assoc a :account/name override-name)
+    a))
+
 (defn get-accounts
  ([]
   (get-accounts {}))