Accept parsed result in ->hiccup function

[borkdude]

I ran into this when porting my blog (see the commented line). Using nextjournal markdown now looks like this in my own code:

(defn markdown->html [file]
  (with-open [rdr (io/reader file)]
    (let [lines (line-seq rdr)]
      (println "Processing markdown for file:" (str file))
      (let [[_metadata n] (fm/parse-metadata-headers lines)
            lines (drop n lines)
            markdown-text (str/join \newline lines)]
        (->> markdown-text
             pre-process-markdown
             #_(md/parse)
             (md/->hiccup (assoc md.transform/default-hiccup-renderers
                                 :html-inline (fn [_ {:keys [text]}]
                                                (hiccup/raw text))
                                 :html-block (fn [_ {:keys [text]}]
                                               (hiccup/raw text))))
             (hiccup/html)
             str
             post-process-markdown)))))