pprint

nextjournal · Oct 21, 2024 · ed82650 · ed82650
1 parent bfb838a
commit ed82650
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 6 deletions.
diff --git a/notebooks/viewers/viewer_lib.cljc b/notebooks/viewers/viewer_lib.cljc
@@ -3,12 +3,14 @@
                      [foo.bar :as-alias foo]
                      [cljs.core :as c]
                      [clojure.math :as math1]
-                     [cljs.math :as math2])))
+                     [cljs.math :as math2]
+                     [clojure.pprint :as pp])))
 
 #?(:cljs `foo/x)
 
 #?(:cljs (defn my-already-defined-function [x]
           [:div
            "Inspected value :)"
            (str (cljs.core/inc (math2/floor (math1/floor 1.2))))
-           [:div [clerk/inspect x]]]))
+           [:div [clerk/inspect x]]
+           [:div (with-out-str (pp/pprint (range 20)))]]))
diff --git a/render/deps.edn b/render/deps.edn
@@ -7,7 +7,7 @@
         org.clojure/clojurescript {:mvn/version "1.11.132"}
         io.github.babashka/sci.nrepl {:mvn/version "0.0.2"}
         reagent/reagent {:mvn/version "1.2.0"}
-        io.github.babashka/sci.configs {:git/sha "0702ea5a21ad92e6d7cca6d36de84271083ea68f"
+        io.github.babashka/sci.configs {:git/sha "8253c69a537bcc82e8ff122e5f905fe9d1e303f0"
                                         :exclusions [org.babashka/sci]}
         io.github.nextjournal/clojure-mode {:git/sha "1f55406087814a0dda6806396aa596dbe13ea302"}
         thheller/shadow-cljs {:mvn/version "2.23.1"}

diff --git a/src/nextjournal/clerk/cljs_libs.clj b/src/nextjournal/clerk/cljs_libs.clj
@@ -47,7 +47,9 @@
            reagent.core
            reagent.debug
            reagent.ratom
-           user}))
+           user
+           clojure.pprint
+           cljs.pprint}))
 
 (defn- ns-decl?
   "Returns true if form is a (ns ...) declaration."

diff --git a/src/nextjournal/clerk/sci_env.cljs b/src/nextjournal/clerk/sci_env.cljs
@@ -38,6 +38,7 @@
             [reagent.ratom :as ratom]
             [sci.configs.applied-science.js-interop :as sci.configs.js-interop]
             [sci.configs.reagent.reagent :as sci.configs.reagent]
+            [sci.configs.cljs.pprint :as sci.configs.pprint]
             [sci.core :as sci]
             [sci.ctx-store]
             [sci.nrepl.server :as nrepl]
@@ -162,7 +163,8 @@
              "react-dom" react-dom
              "w3c-keyname" w3c-keyname}
    :ns-aliases '{clojure.math cljs.math
-                 cljs.repl clojure.repl}
+                 cljs.repl clojure.repl
+                 clojure.pprint cljs.pprint}
    :namespaces (merge {'nextjournal.clerk.viewer viewer-namespace
                        'nextjournal.clerk viewer-namespace ;; TODO: expose cljs variant of `nextjournal.clerk` with docstrings
                        'nextjournal.clerk.sci-env {'load-string+
@@ -191,7 +193,8 @@
                        'nextjournal.markdown.transform)
 
                       sci.configs.js-interop/namespaces
-                      sci.configs.reagent/namespaces)})
+                      sci.configs.reagent/namespaces
+                      sci.configs.pprint/namespaces)})
 
 (defn ^:export eval-form [f]
   (sci/binding [sci/ns @last-ns]