A "clj template" macro that lets you embed clj expressions in strings. Expands to (str "literal parts" expression parts ...). Designed to replace typical uses of `format`

cljt.clj

(def format-spans #"(?x)
 (?:( (?: [^\\\{]++ | \\\{ )+ )
   |(?:\{ ( (?: [^\\}]*+ | \\} )+ ) }))")

(defmacro cljt [formatstr]
  {:pre [(string? formatstr)]}
  (if (= formatstr "")
    formatstr
    `(str ~@(binding [*read-eval* false]
              (->> (re-seq format-spans formatstr)
                   (mapv (fn [[_ literal expr]]
                           (cond
                             (some? literal) (str/replace literal "\\{" "{")
                             (some? expr) (read-string (str/replace expr "\\}" "}"))))))))))