all vars

all-vars.clj

(defn- log-time [{:keys [ns name line]} f & args]
  (let [start (System/nanoTime)
        res (apply f args)
        elapsed (quot (- (System/nanoTime) start) 1000)]
    (log/debug (format "%s/%s:%s %dus" ns name line elapsed))
    res))

(defn enable-timing [var]
  (log/debug "enabling timings" var)
  (add-hook var (partial log-time (meta var))))

(defn enable-timing-on-blocking-functions []
  (->> (all-ns)
       (mapcat ns-interns)
       (map second)
       (filter #(:blocking (meta %)))
       (remove #(:robert.hooke/hook (meta (deref %))))
       (map enable-timing)
       doall))