Fix code listings in result viewer and add example

notebooks/viewers/markdown.clj

@@ -32,6 +32,20 @@ It's [Markdown](https://daringfireball.net/projects/markdown/), like you know it
 ;; >
 ;; > — Special Forms
 
+;; ## Code Listings
+
+;; ```
+;; {:name :code,
+;;  :render-fn 'nextjournal.clerk.render/render-code,
+;;  :transform-fn
+;;  (comp
+;;   mark-presented
+;;   (update-val
+;;    (fn
+;;      [v]
+;;      (if (string? v) v (str/trim (with-out-str (pprint/pprint v)))))))}
+;; ```
+
 ;; ## Sidenotes
 ;;
 ;; One of the most distinctive features of Tufte’s style is his _extensive use
@@ -73,6 +87,13 @@ It's [Markdown](https://daringfireball.net/projects/markdown/), like you know it
 ;; * Change name to Simon. Speak in thirs person.
 ;; * Major in philosophy. Ask people WHY they would like fries with that.
 
+;; ## Code Listings As Markdown Result
+
+^{::clerk/visibility {:code :hide}}
+(clerk/md "```sh
+clj -M:nextjournal/clerk nextjournal.clerk/serve! --watch-paths notebooks --browse
+```")
+
 (clerk/md "---")
 
 ;; ### Conclusion^[what usually average folks actually read.]

src/nextjournal/clerk/render.cljs

@@ -305,7 +305,7 @@
       [view-context/provide {:fetch-fn fetch-fn}
        [:> ErrorBoundary {:hash hash}
         [:div.relative
-         [:div.overflow-y-hidden
+         [:div
           {:ref ref-fn}
           [inspect-presented {:!expanded-at !expanded-at} @!desc]]]]])))