Accept parsed result in ->hiccup function (#43)

Author: borkdude

CHANGELOG.md

@@ -8,6 +8,7 @@
 * Bump markdown-it to 14.1.0
 * Render `:code` according to spec into `<pre>` and `<code>` block with language class (see [#39](https://github.com/nextjournal/markdown/issues/39))
 * No longer depend on `applied-science/js-interop`
+* Accept parsed result in `->hiccup` function
 
 ## 0.6.157
 

resources/js/markdown.mjs

@@ -45,8 +45,12 @@
 
 (defn ->hiccup
   "Turns a markdown string into hiccup."
-  ([markdown-text] (->hiccup markdown.transform/default-hiccup-renderers markdown-text))
-  ([ctx markdown-text] (->> markdown-text parse (markdown.transform/->hiccup ctx))))
+  ([markdown] (->hiccup markdown.transform/default-hiccup-renderers markdown))
+  ([ctx markdown]
+   (let [parsed (if (string? markdown)
+                  (parse markdown)
+                  markdown)]
+     (markdown.transform/->hiccup ctx parsed))))
 
 (comment
   (parse "# 🎱 Hello")

src/nextjournal/markdown.cljc

@@ -212,7 +212,10 @@ $$\\int_a^bf(t)dt$$
            [:li
             [:p
              "two"]]]]
-         (md/->hiccup markdown-text)))))
+         (md/->hiccup markdown-text))))
+  (testing "-:hiccup function accepts parsed and string"
+    (is (= [:div [:h1 {:id "hello"} "Hello"]] (md/->hiccup (md/parse "# Hello"))))
+    (is (= [:div [:h1 {:id "hello"} "Hello"]] (md/->hiccup "# Hello")))))
 
 (deftest strikethrough-test
   (testing "single tilde")
@@ -1076,7 +1079,6 @@ line
 
 link</a>")))))))
 
-
 ;; Hello <a href=\"dude\">*Dude*</a>
 
 (comment