(cloud) Added running balance cache for ledger

src/clj/auto_ap/datomic.clj

@@ -13,13 +13,10 @@
 (def uri (:datomic-url env))
 
 (mount/defstate client
-  :start (dc/client {:server-type :cloud
-                     :region      "us-east-1"
-                     :system      "iol-cloud"
-                     :endpoint    "https://53syis8n1m.execute-api.us-east-1.amazonaws.com"})
+  :start (dc/client (:client-config env))
   :stop nil)
 (mount/defstate conn
-  :start (dc/connect client {:db-name "prod-mirror"})
+  :start (dc/connect client {:db-name (:db-name env)})
   :stop nil)
 
 #_(def uri "datomic:mem://datomic-transactor:4334/invoice")
@@ -566,7 +563,6 @@
       (update-in [:args] into (get-in query-part-2 [:args]))))
 
 (defn add-sorter-fields [q sort-map args]
-  (log/info "sort-map" (pr-str sort-map))
   (reduce
    (fn [q {:keys [sort-key]}]
      (merge-query q
@@ -578,7 +574,6 @@
    (:sort args)))
 
 (defn add-sorter-fields-2 [q sort-map args]
-  (log/info "sort-map" (pr-str sort-map))
   (reduce
     (fn [q {:keys [sort-key]}]
       (merge-query q
@@ -627,7 +622,9 @@
        (let [batch (conj (vec batch) {:db/id "datomic.tx"
                                 :audit/user (str (:user/role id) "-" (:user/name id))
                                 :audit/batch batch-id})
-             _ (log/info "transacting batch " batch-id " " (count batch))
+             _ (mu/log ::transacting-batch
+                       :batch batch-id
+                       :count (count batch))
              tx-result (dc/transact conn {:tx-data  batch})]
 
          (cond-> full-tx
@@ -810,4 +807,8 @@
 
 (defn transact-schema [conn]
   (dc/transact conn
-               {:tx-data (edn/read-string (slurp (io/resource "schema.edn")))}))
+               {:tx-data (edn/read-string (slurp (io/resource "schema.edn")))})
+
+  ;; this is temporary for any  new stuff that needs to be asserted for cloud migration.
+  (dc/transact conn
+               {:tx-data (edn/read-string (slurp (io/resource "cloud-migration-schema.edn")))}))