(cloud) running balance update way more streamlined now

src/clj/auto_ap/ledger.clj

@@ -2,13 +2,12 @@
   (:require
    [auto-ap.datomic
     :refer [audit-transact
-            audit-transact-batch
-            transact-with-backoff
             conn
             pull-id
             pull-ref
-            remove-nils]]
-   [auto-ap.utils :refer [by dollars-0? dollars=]]
+            remove-nils
+            transact-with-backoff]]
+   [auto-ap.utils :refer [by dollars-0? dollars= heartbeat]]
    [clj-time.coerce :as c]
    [clj-time.core :as t]
    [clojure.tools.logging :as log]
@@ -17,7 +16,9 @@
    [datomic.client.api :as dc]
    [iol-ion.tx :refer [upsert-ledger]]
    [manifold.deferred :as de]
-   [manifold.stream :as s]))
+   [manifold.stream :as s]
+   [mount.core :as mount]
+   [yang.scheduler :as scheduler]))
 
 (defn datums->impacted-entity [db [e changes]]
   (let [entity (dc/pull db '[{:invoice/_expense-accounts [:db/id] :transaction/_accounts [:db/id]}] e)
@@ -754,6 +755,6 @@
 
 ;; TODO only enable once IOL is set up in clod
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
-#_(mount/defstate running-balance-cache-worker
+(mount/defstate running-balance-cache-worker
   :start (scheduler/every (* 15 60 (+ 500 (rand-int 500))) (heartbeat refresh-running-balance-cache "running-balance-cache"))
   :stop (scheduler/stop running-balance-cache-worker))