luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#15]: ">>" "<<" for start/stop logging

Browse source
This commit is contained in:
anatoly 2015-11-23 10:51:27 -05:00
parent 2d1f77df92
commit 432496863e
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/app/utils/logging.clj
View file

@ -18,17 +18,17 @@
(defn whatcha-doing? [{:keys [started? suspended? suspend]} action] (defn whatcha-doing? [{:keys [started? suspended? suspend]} action]
(case action (case action
:up (if suspended? "resuming" :up (if suspended? ">> resuming"
(if-not started? "starting")) (if-not started? ">> starting"))
:down (if (or started? suspended?) "stopping") :down (if (or started? suspended?) "<< stopping")
:suspend (if (and started? suspend) "suspending") :suspend (if (and started? suspend) "<< suspending")
:resume (if suspended? "resuming"))) :resume (if suspended? ">> resuming")))
(defn log-status [f & args] (defn log-status [f & args]
(let [{:keys [ns name] :as state} (second args) (let [{:keys [ns name] :as state} (second args)
action (f-to-action f)] action (f-to-action f)]
(when-let [taking-over-the-world (whatcha-doing? state action)] (when-let [taking-over-the-world (whatcha-doing? state action)]
(info (str ">> " taking-over-the-world ".. " (ns-resolve ns name)))) (info (str taking-over-the-world ".. " (ns-resolve ns name))))
(apply f args))) (apply f args)))
(defonce lifecycle-fns (defonce lifecycle-fns