debug.clj

(ns utility-belt.debug
  (:require
    [clojure.tools.logging :as log]
    [utility-belt.time :as time]))


(defmacro time+
  "Similar to `time` macro, but prints before/after markers and associated tag"
  [tag body]
  `(let [state# (atom nil)]
     (printf "[%s]:start %s\n"  ~tag (time/now))
     (printf "[%s] %s" ~tag (with-out-str
                              (time (reset! state# (do ~body)))))
     (printf "[%s]:end %s\n"  ~tag (time/now))
     (deref state#)))


(defmacro log-time
  "Like time+ but uses underlying logger facility."
  [level tag body]
  `(let [state# (atom nil)]
     (log/logf ~level "tag=%s start"  ~tag)
     (let [elapsed#  (with-out-str
                       (time (reset! state# (do ~body))))]
       (log/logf ~level "tag=%s %s" ~tag elapsed#))
     (log/logf ~level "tag=%s end"  ~tag)
     (deref state#)))