Makes logging unified

src/clj/auto_ap/parse.clj

@@ -8,7 +8,7 @@
    [clojure.java.shell :as sh]
    [clojure.set :as set]
    [clojure.string :as str]
-   [clojure.tools.logging :as log]))
+   [auto-ap.logging :as alog]))
 
 (def last-text (atom nil))
 
@@ -18,7 +18,8 @@
 
 (defn extract-template
   ([text template]
-   (log/info "Template was determined to be" template)
+   (alog/info ::template-determined
+              :template (str template))
    
    (if (:multi template)
      (mapcat
@@ -41,7 +42,7 @@
                 (assoc result k (try
                                   (u/parse-value value-parser parser-params value)
                                      (catch Exception e
-                                       (log/warn e))))))
+                                       (alog/warn ::cant-parse-value :error e :raw value))))))
             {:vendor-code (:vendor template)
              :text text
              :full-text full-text}))])))