debug.clj

(ns cloverage.debug
  (:require [clojure.pprint]
            [clojure.java.io :refer [writer]]))

(def ^:dynamic *debug* false)
;; debug output
(defn tprn [& args]
  (when *debug*
    (run! clojure.pprint/pprint args)
    (newline)))

(defn tprnl [& args]
  (when *debug*
    (apply println args)))

(defn tprf [& args]
  (when *debug*
    (apply printf args)))

(defn dump-instrumented [forms name]
  (when *debug*
    (with-open [ou (writer (str "debug-" name))]
      (binding [*out* ou
                *print-meta* true]
        (run! prn forms)))))