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]
(case action
:up (if suspended? "resuming"
(if-not started? "starting"))
:down (if (or started? suspended?) "stopping")
:suspend (if (and started? suspend) "suspending")
:resume (if suspended? "resuming")))
:up (if suspended? ">> resuming"
(if-not started? ">> starting"))
:down (if (or started? suspended?) "<< stopping")
:suspend (if (and started? suspend) "<< suspending")
:resume (if suspended? ">> resuming")))
(defn log-status [f & args]
(let [{:keys [ns name] :as state} (second args)
action (f-to-action f)]
(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)))
(defonce lifecycle-fns