print_let.clj

(ns print-let)
;; https://www.youtube.com/watch?v=3eqW7rghDew

(defn print-form [[id form]]
  `(~id ~form _# (println ~(str id ":") ~id)))

(defmacro print-let [bindings & body]
  (let [binding-pairs (partition 2 bindings)
        bindings-with-prints (apply concat (map print-form binding-pairs))]
    `(let [~@bindings-with-prints]
       ~@body)))

;; usage:
(print-let [x "a"
            y (str x "b")
            z (str y y)]
  z)
(comment ;; =>
  (let [x "a"
        _ (println "x:" x)
        y (str x "b")
        _ (println "y:" y)
        z (str y y)
        _ (println "z:" z)]
    z))