More background task cleanup

src/clj/auto_ap/jobs/close_auto_invoices.clj

@@ -0,0 +1,31 @@
+(ns auto-ap.jobs.close-auto-invoices
+  (:gen-class)
+  (:require
+   [auto-ap.datomic :refer [conn]]
+   [auto-ap.jobs.core :refer [execute]]
+   [auto-ap.time :as time]
+   [clj-time.coerce :as coerce]
+   [clojure.tools.logging :as log]
+   [datomic.api :as d]))
+
+(defn close-auto-invoices []
+  (let [invoices-to-close (d/query {:query {:find  ['?e]
+                                            :in    ['$ '?today]
+                                            :where ['[?e :invoice/scheduled-payment ?d]
+                                                    '[?e :invoice/status :invoice-status/unpaid]
+                                                    '[(<= ?d ?today)]]}
+                                    :args  [(d/db conn) (coerce/to-date (time/local-now))]})]
+    (log/info "Closing " (count invoices-to-close) "scheduled invoices")
+    (some->> invoices-to-close
+             seq
+
+             (mapv (fn [[i]] {:db/id                       i
+                              :invoice/outstanding-balance 0.0
+                              :invoice/status              :invoice-status/paid}))
+             (d/transact conn)
+             deref)
+    (log/info "Closed " (count invoices-to-close) "scheduled invoices")))
+
+
+(defn -main [& _]
+  (execute "close-auto-invoices" close-auto-invoices))