pp-locals.cljc

(defmacro locals-map [& [env]]
  ;; https://gist.github.com/noisesmith/3490f2d3ed98e294e033b002bc2de178
  (let [ks (->> (or env &env)
             keys
             (remove #{'_})
             (remove #(-> % name (str/includes? "__"))))]
    (zipmap (map name ks) ks)))

(defmacro pp-locals []
  `(clojure.pprint/pprint
     ;(reduce-kv
     ;  #(assoc %1 (symbol %2) %3)
     ;  {}
      (locals-map ~&env)))

(let [x 1
      {:keys [y]} {:y 2}
      _ (pp-locals)
      {z :zz} {:zz x}]
      _ (pp-locals))

; {"x" 1, "y" 2}
; {"x" 1, "y" 2, "z" 1}
; => nil