Allow to render parsed, not-analyzed notebooks

davesann · Dec 20, 2022 · 808aa24 · 808aa24
1 parent 44149cf
commit 808aa24
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/nextjournal/clerk/viewer.cljc b/src/nextjournal/clerk/viewer.cljc
@@ -854,7 +854,8 @@
   {:name :clerk/code-block :transform-fn (fn [{:as wrapped-value :nextjournal/keys [value]}]
                                            (-> wrapped-value
                                                (assoc :nextjournal/viewer (if (:fold? value) :code-folded :code))
-                                               (update :nextjournal/value :text-without-meta)))})
+                                               (update :nextjournal/value
+                                                       (some-fn :text-without-meta :text))))})
 
 (def tagged-value-viewer
   {:name :tagged-value