Debugging let

let.clj

;; A macro for debugging stuff that happens inside a let
;; just change let to lets and all the bindings will be defined
;; as globals instead of locals and the body will be ignored.
(require '[madstap.comfy :refer [defs]])
(require '[integrant.core :as ig])

(defmacro lets
  {:style/indent 1}
  [bindings & _body]
  `(do ~@(map (fn [[b exp]] `(madstap.comfy/defs ~b ~exp)) (partition 2 bindings))))

;; executes body
(defmacro lete
  {:style/indent 1}
  [bindings & body]
  `(do ~@(map (fn [[b exp]] `(madstap.comfy/defs ~b ~exp)) (partition 2 bindings))
       ~@body))

(defmacro defd-system
  {:style/indent 1}
  [[binding config] & _body]
  `(let [sys# (ig/init ~config)]
     (defs ~binding sys#)
     (def ~'defdsys sys#)))