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

[logging]: status vs. started? suspendes?..

Browse source
This commit is contained in:
anatoly 2015-11-30 22:05:44 -05:00
parent 958d7e345c
commit f404bb4420
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

@ -17,13 +17,13 @@
"mount.core$sigcont" :resume "mount.core$sigcont" :resume
:noop))) :noop)))
(defn whatcha-doing? [{:keys [started? suspended? suspend]} action] (defn whatcha-doing? [{:keys [status suspend]} action]
(case action (case action
:up (if suspended? ">> resuming" :up (if (status :suspended) ">> resuming"
(if-not started? ">> starting")) (if-not (status :started) ">> starting"))
:down (if (or started? suspended?) "<< stopping") :down (if (or (status :started) (status :suspended)) "<< stopping")
:suspend (if (and started? suspend) "<< suspending") :suspend (if (and (status :started) suspend) "<< suspending")
:resume (if suspended? ">> resuming"))) :resume (if (status :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)