Add CLI flag to use longer (default) log format

src/updog/cli.clj

@@ -13,6 +13,7 @@
   [["-d" "--db APPSDB" "EDN apps database to use."
     :default  "appsdb.edn"
     :validate [fs/exists? "Apps database file not found."]]
+   ["-L" "--long-log" "Use longer log output format."]
    ["-v" "--verbose" "Enable verbose output (set log level to debug)."]
    ["-h" "--help" "Display help text and exit."]] )
 
@@ -256,6 +257,7 @@
       {:output (usage cmd)}
 
       :else
-      (run-command! {:db-file   (:db options)
-                     :log-level (if (:verbose options) :debug :info)}
+      (run-command! {:db-file    (:db options)
+                     :log-level  (if (:verbose options) :debug :info)
+                     :log-format (when (:long-log options) :long)}
                     cmd cmd-opts))))

src/updog/system.clj

@@ -4,10 +4,12 @@
 
 (defn init
   "Initialize the application integrant system, using app `db-file`."
-  [{:keys [db-file log-level]}]
+  [{:keys [db-file log-level log-format]}]
   (let [config (cond-> (-> (io/resource "system_config.edn") slurp ig/read-string)
-                 db-file   (assoc-in [:updog.apps-db.edn-db/apps-db :filename] db-file)
-                 log-level (assoc-in [:updog.logging/timbre-logger :log-level] log-level))]
+                 db-file    (assoc-in [:updog.apps-db.edn-db/apps-db :filename] db-file)
+                 log-level  (assoc-in [:updog.logging/timbre-logger :log-level] log-level)
+                 log-format (assoc-in [:updog.logging/timbre-logger :use-default-output-fn?]
+                                      (= log-format :long)))]
     (ig/load-namespaces config)
     (-> config
         ig/prep