Makes logging unified

src/clj/auto_ap/graphql/invoices.clj

@@ -6,6 +6,7 @@
    [auto-ap.datomic.invoices :as d-invoices]
    [auto-ap.datomic.vendors :as d-vendors]
    [auto-ap.graphql.checks :as gq-checks]
+   [auto-ap.logging :as alog]
    [auto-ap.graphql.utils
     :as u
     :refer [<-graphql
@@ -20,7 +21,6 @@
    [auto-ap.utils :refer [dollars=]]
    [clj-time.coerce :as coerce]
    [clj-time.core :as time]
-   [clojure.tools.logging :as log]
    [com.brunobonacci.mulog :as mu]
    [datomic.api :as dc]
    [auto-ap.solr :as solr]))
@@ -293,10 +293,10 @@
                                           all-ids)
                                     (map first))
         ]
-    (log/info "Voiding " (count voidable-cash-payments) "cash payments first")
+    (alog/info ::void-payments :count (count voidable-cash-payments))
     (gq-checks/void-payments-internal voidable-cash-payments (:id context))
 
-    (log/info "Voiding " (count all-ids) args)
+    (alog/info ::voiding-invoices :count (count all-ids))
     (audit-transact
       (->> all-ids
            (dc/q '[:find (pull ?i [:db/id :invoice/date {:invoice/expense-accounts [:db/id]}])
@@ -452,7 +452,6 @@
         all-ids (all-ids-not-locked (get-ids-matching-filters args))
         invoices (pull-many (dc/db conn) '[:db/id :invoice/total] (vec all-ids))
         account-total (reduce + 0 (map (fn [x] (:percentage x)) (:accounts args)))]
-    (log/info "client is" locations)
     (when
         (not (dollars= 1.0 account-total))
         (let [error (str "Account total (" account-total ") does not reach 100%")]
@@ -467,7 +466,7 @@
                            (:location a))))
         (let [err (str "Account " name " uses location " (:location a) ", but doesn't belong to the client.")]
           (throw (ex-info err {:validation-error err}) ))))
-    (log/info "Bulk coding " (count all-ids) args)
+    (alog/info ::bulk-code :count (count all-ids))
     (audit-transact-batch
       (map (fn [i]
              [:upsert-invoice {:db/id                    (:db/id i)