string that can contain quotes (for reader-valid content only)

qq.clj

(defmacro qq [& body]
  `(->>
    (map (fn [s#]
           (if (string? s#)
             (format "\"%s\"" s#) (str s#)))
         (quote ~body))
    (interpose " ")
    (apply str)))

(defn myfn "docstring \"the normal way\" sort of a pain" [] )

(defn ^{:doc (qq this docstring is "a little better")} myfn2 [] )

;; and you can interpolate values

(qq this string is #=(+ 1 1) times "better")

It works well enough for many purposes! :) Combine this with reader literal syntax and it's not half-bad.

Yep. Have you seen Chas Emerick's string interpolation macro? ... I don't have a link handy.

Yeah, that is pretty nice. Interpolation wasn't my main aim with what I was playing with here but it is an added plus that you get for free.

Actually I just realized the interpolation is not really what it seems, because you mostly won't have the values you want at read time.

Fail:

(let [x 1](qq this string is #=%28+ x x%29 times))

But it could be explicitly supported similar to Chas's macro...