From cf65ffaf20d9838852951d59880185c33cfd4557 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 31 Aug 2022 13:45:37 +0200
Subject: [PATCH] cljs.pprint (#39)

---
 bb.edn                      |  3 ++-
 deps.edn                    |  6 ++++--
 resources/public/index.html | 15 +++++++++++++++
 shadow-cljs.edn             |  2 ++
 src/scittle/core.cljs       | 15 +++++++++------
 src/scittle/pprint.cljs     |  8 ++++++++
 src/scittle/promesa.cljs    |  5 +++--
 7 files changed, 43 insertions(+), 11 deletions(-)
 create mode 100644 src/scittle/pprint.cljs

diff --git a/bb.edn b/bb.edn
index 9a89e71..6432ee4 100644
--- a/bb.edn
+++ b/bb.edn
@@ -15,7 +15,8 @@
                    (fs/delete-tree ".shadow-cljs"))}
 
   shadow:watch {:doc "Development build. Starts webserver and watches for changes."
-                :task (clojure "-M:dev -m shadow.cljs.devtools.cli watch main")}
+                :task (clojure {:extra-env {"SCI_ELIDE_VARS" "true"}}
+                       "-M:dev -m shadow.cljs.devtools.cli watch main")}
 
   http-server {:doc "Starts http server for serving static files"
                :requires ([babashka.http-server :as http])
diff --git a/deps.edn b/deps.edn
index 8adef32..29b133c 100644
--- a/deps.edn
+++ b/deps.edn
@@ -2,7 +2,9 @@
 
  :deps
  {org.clojure/clojure {:mvn/version "1.10.3"}
-  org.babashka/sci {:mvn/version "0.3.5"}
+  org.babashka/sci {:git/url "https://github.com/babashka/sci"
+                    :git/sha "133a7565749ac6cd5a8308182f0b1c7fc47e8a3d"}
+  #_{:local/root "../babashka/sci"}
   reagent/reagent {:mvn/version "1.1.0"}
   cljsjs/react {:mvn/version "17.0.2-0"}
   cljsjs/react-dom {:mvn/version "17.0.2-0"}
@@ -14,7 +16,7 @@
   #_{:local/root "../sci.nrepl"}
   {:git/sha "e83421ce9349c36df56a2eb936196dbb65b0de63"}
   io.github.babashka/sci.configs
-  {:git/sha "fcd367c6a6115c5c4e41f3a08ee5a8d5b3387a18"}}
+  {:git/sha "63225c8606d593c595d2f10a6fa5bf38103852df"}}
 
  :aliases
  {:dev
diff --git a/resources/public/index.html b/resources/public/index.html
index e1356ad..3214605 100644
--- a/resources/public/index.html
+++ b/resources/public/index.html
@@ -7,6 +7,8 @@
     <script crossorigin src="https://unpkg.com/react-dom@17/umd/react-dom.production.min.js"></script>
     <script src="js/scittle.reagent.js" type="application/javascript"></script>
     <script src="js/scittle.cljs-ajax.js" type="application/javascript"></script>
+    <script src="js/scittle.pprint.js" type="application/javascript"></script>
+
     <script type="application/x-scittle">
       (defn my-alert []
        (js/alert "You clicked!"))
@@ -118,6 +120,19 @@
       Click me!
     </button>
 
+    <a name="pprint"></a>
+    <h2><a href="#pprint">cljs.pprint plugin</a></h2>
+
+    To enable <a href="https://cljs.github.io/api/cljs.pprint/">cljs-ajax</a>,
+    in addition to <tt>scittle.js</tt>, you need to include <tt>scittle.pprint.js</tt>:
+
+    <pre><code data-type="scittle" data-src="html/cljs-ajax.html" class="html"></code></pre>
+
+    <button onclick="make_request()">
+      Click me!
+    </button>
+
+
     <a name="repl"></a>
     <h2><a href="#nrepl">REPL</a></h2>
 
diff --git a/shadow-cljs.edn b/shadow-cljs.edn
index 6e948d0..df491cd 100644
--- a/shadow-cljs.edn
+++ b/shadow-cljs.edn
@@ -18,6 +18,8 @@
                     :depends-on #{:scittle}}
     :scittle.promesa {:entries [scittle.promesa]
                       :depends-on #{:scittle}}
+    :scittle.pprint {:entries [scittle.pprint]
+                     :depends-on #{:scittle}}
     :scittle.reagent {:entries [scittle.reagent]
                       :depends-on #{:scittle}}
     :scittle.cljs-ajax {:entries [scittle.cljs-ajax]
diff --git a/src/scittle/core.cljs b/src/scittle/core.cljs
index 12c3afa..aa342cd 100644
--- a/src/scittle/core.cljs
+++ b/src/scittle/core.cljs
@@ -4,9 +4,12 @@
             [goog.object :as gobject]
             [goog.string]
             [sci.core :as sci]
+            [sci.impl.unrestrict]
             [scittle.impl.common :refer [cljns]]
             [scittle.impl.error :as error]))
 
+(set! sci.impl.unrestrict/*unrestricted* true)
+
 (clojure.core/defmacro time
   "Evaluates expr and prints the time it took. Returns the value of expr."
   [expr]
@@ -29,11 +32,12 @@
    'goog.object {'set gobject/set
                  'get gobject/get}})
 
-(def !sci-ctx (atom (sci/init {:namespaces namespaces
-                          :classes {'js js/window
-                                    :allow :all}
-                          :disable-arity-checks true})))
-
+(def !sci-ctx
+  (atom (sci/init {:namespaces namespaces
+                   :classes {'js js/window
+                             :allow :all
+                             'Math js/Math}
+                   :ns-aliases {'clojure.pprint 'cljs.pprint}})))
 
 (def !last-ns (volatile! @sci/ns))
 
@@ -103,4 +107,3 @@
 
 (enable-console-print!)
 (sci/alter-var-root sci/print-fn (constantly *print-fn*))
-
diff --git a/src/scittle/pprint.cljs b/src/scittle/pprint.cljs
new file mode 100644
index 0000000..b129a82
--- /dev/null
+++ b/src/scittle/pprint.cljs
@@ -0,0 +1,8 @@
+(ns scittle.pprint
+  (:require
+   [sci.configs.cljs.pprint :refer [config]]
+   [scittle.core :as scittle]))
+
+(scittle/register-plugin!
+  ::promesa
+  config)
diff --git a/src/scittle/promesa.cljs b/src/scittle/promesa.cljs
index 4d84e3a..73c6325 100644
--- a/src/scittle/promesa.cljs
+++ b/src/scittle/promesa.cljs
@@ -1,6 +1,7 @@
 (ns scittle.promesa
-  (:require [scittle.core :as scittle]
-            [sci.configs.funcool.promesa :as p]))
+  (:require
+   [sci.configs.funcool.promesa :as p]
+   [scittle.core :as scittle]))
 
 (scittle/register-plugin!
   ::promesa