Make thunks of Clojure expressions, can be named

thunk.clj

(defmacro $ [& body] `(fn ~'thunk [] ~@body))

;;; best effort to create a named function
(defmacro $
  [& body]
  (let [name (or (and (sequential? (first body))
                      (symbol? (ffirst body))
                      (-> body ffirst name (str "-thunk") symbol))
                 'thunk)]
    `(fn ~name [] ~@body)))

($ (str "foo" "bar"))
;; => #function[user/eval9453/str-thunk--9454]

(($ (str "foo" "bar")))