From 432496863e6d64c9a1971f69e286da822897a33e Mon Sep 17 00:00:00 2001 From: anatoly Date: Mon, 23 Nov 2015 10:51:27 -0500 Subject: [PATCH] [#15]: ">>" "<<" for start/stop logging --- test/app/utils/logging.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/app/utils/logging.clj b/test/app/utils/logging.clj index db086cb..c68e67e 100644 --- a/test/app/utils/logging.clj +++ b/test/app/utils/logging.clj @@ -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