splitting out background tasks

src/clj/auto_ap/jobs/ledger_reconcile.clj

@@ -0,0 +1,21 @@
+(ns auto-ap.jobs.ledger-reconcile
+  (:gen-class)
+  (:require [auto-ap.ledger :as ledger]
+            [auto-ap.utils :refer [heartbeat]]
+            [mount.core :as mount]
+            [auto-ap.datomic :refer [conn]]
+            [clojure.tools.logging :as log]
+            [auto-ap.background.metrics :refer [metrics-setup container-tags container-data logging-context]]
+            [unilog.context :as lc]))
+
+(defn -main [& _]
+  (try 
+    (lc/with-context {:background-job "reconcile-ledger"}
+      (mount/start (mount/only #{#'conn #'metrics-setup #'container-tags #'logging-context #'container-data}))
+      ((heartbeat ledger/reconcile-ledger "reconcile-ledger"))
+      ((heartbeat ledger/touch-broken-ledger "touch-broken-ledger"))
+      (mount/stop)
+      (log/info "Stopping Ledger reconciliation"))
+    (finally
+      (System/exit 0))))
+