rewrite.clj

(defn print-markdown-doc
  "This is a modified version of print-doc which outputs the documentation in markdown format."
  [v]
  (let [{:keys [ns name arglists macro doc]} (meta v)]
    (into [(format "###%s###" name) ""]
          (->> (str " *" (ns-name ns) "/" name "*\n\n"
                    "     :::clojure\n"
                    "     " arglists "\n\n"
                    (when macro "*Macro*\n")
                    "  " doc)
               (.split #"\n")
               (map #(str ">" %))))))