More background task cleanup

src/clj/auto_ap/jobs/ledger_reconcile.clj

@@ -1,22 +1,11 @@
 (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]))
+  (:require
+   [auto-ap.jobs.core :refer [execute]]
+   [auto-ap.ledger :as ledger]))
 
 (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")
-      (Thread/sleep 15000))
-    (finally
-      (System/exit 0))))
+  (execute "reconcile-ledger" (fn []
+                                (ledger/reconcile-ledger)
+                                (ledger/touch-broken-ledger))))