switch to FencedBlocks

pbaille · Dec 14, 2024 · 21a4d9f · 21a4d9f
1 parent 2663cbe
commit 21a4d9f
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/scripts/create_client_guide_ns.clj b/scripts/create_client_guide_ns.clj
@@ -2,7 +2,7 @@
   (:require [commonmark-hiccup.core :as h]
             [clojure.string :as str]))
 
-(defmethod h/node-properties org.commonmark.node.IndentedCodeBlock [node]
+(defmethod h/node-properties org.commonmark.node.FencedCodeBlock [node]
   (h/property-map node))
 
 (defmethod h/node-properties org.commonmark.node.Code [node]
@@ -27,8 +27,11 @@
                                                       (self content))
                                               (self remaining)))
 
-                             (= :pre h) (cons (list '$ 'noon.client.ui/code-editor {:source (str/trim (second (second x)))})
-                                              (self xs))
+                             (= :pre h) (let [[_ [_ props source]] x]
+                                          (cons (list '$ 'noon.client.ui/code-editor
+                                                      (merge props
+                                                             {:source (str/trim source)}))
+                                                (self xs)))
 
                              (seq? (second x)) (cons (concat (list '$ h) (self (second x)))
                                                      (self xs))