Fix #762: add viewers for html markdown nodes (#763)

Add simple support for html-block and html-inline markdown nodes, see #762. Rendering html as text for the moment.

Author: borkdude

book.clj

@@ -8,14 +8,14 @@
     :description "Clerk’s official documentation."
     :image "https://cdn.nextjournal.com/data/QmbHy6nYRgveyxTvKDJvyy2VF9teeXYkAXXDbgbKZK6YRC?filename=book-of-clerk-og-image.png&content-type=image/png"}}
   (:require [clojure.string :as str]
+            [emmy.env :as emmy]
+            [emmy.expression]
             [next.jdbc :as jdbc]
             [nextjournal.clerk :as clerk]
-            [nextjournal.clerk.parser :as parser]
-            [nextjournal.clerk.eval :as eval]
             [nextjournal.clerk.analyzer :as ana]
+            [nextjournal.clerk.eval :as eval]
+            [nextjournal.clerk.parser :as parser]
             [nextjournal.clerk.viewer :as v]
-            [emmy.env :as emmy]
-            [emmy.expression]
             [weavejester.dependency :as dep])
   (:import (javax.imageio ImageIO)
            (java.net URL)))

src/nextjournal/clerk/viewer.cljc

@@ -863,7 +863,11 @@
     :transform-fn (into-markup (fn [{:keys [ref]}]
                                  [:span.sidenote [:sup {:style {:margin-right "3px"}} (str (inc ref))]]))}
    {:name :nextjournal.markdown/sidenote-ref
-    :transform-fn (fn [wrapped-value] (with-viewer `html-viewer [:sup.sidenote-ref (-> wrapped-value ->value :ref inc)]))}])
+    :transform-fn (fn [wrapped-value] (with-viewer `html-viewer [:sup.sidenote-ref (-> wrapped-value ->value :ref inc)]))}
+   {:name :nextjournal.markdown/html-block
+    :transform-fn (into-markup [:<>])}
+   {:name :nextjournal.markdown/html-inline
+    :transform-fn (into-markup [:<>])}])
 
 (def char-viewer
   {:name `char-viewer :pred char? :render-fn '(fn [c] [:span.cmt-string.inspected-value "\\" c])})