inspect.cljc

;; Custom inspection tool!
;; =======================

(defn appendv
  [coll & args]
  (apply conj (vec coll) args))


(def *inspections* (atom {}))


(defmacro inspect
  [tag]
  (let [env# (->> &env (keys) (mapv (juxt str identity)) (into {}))]
    `(swap! *inspections* update ~tag appendv ~env#)))


(defmacro for-inspect
  [tag & forms]
  (vec (map-indexed (fn [index runs]
                      `(let ~(vec (mapcat
                                    (fn [[k _v]] [`~(symbol k) `(get-in @*inspections* ~[tag index k])])
                                    runs))
                         ~@forms))
                    (take-last 12 (@*inspections* tag)))))