Initial commitHEADmaster

1 files changed, 24 insertions, 0 deletions

diff --git a/scripts/web_repl.clj b/scripts/web_repl.clj
new file mode 100644
index 0000000..734ffa8
--- /dev/null
+++ b/scripts/web_repl.clj
@@ -0,0 +1,24 @@
+(ns scripts.web-repl
+  (:require
+    cljs.repl cljs.repl.browser
+    nrepl.core nrepl.server
+    cider.nrepl cider.nrepl.middleware
+    cider.piggieback
+    ))
+(def env (atom nil))
+(defn piggieback []
+  (cider.piggieback/cljs-repl @env))
+(defn -main []
+  (let [ _server
+         (nrepl.server/start-server :port 7888
+           :handler
+           (apply nrepl.server/default-handler
+             (conj
+               (map resolve cider.nrepl.middleware/cider-middleware)
+               #'cider.piggieback/wrap-cljs-repl))
+           )
+         benv (cljs.repl.browser/repl-env)
+         ]
+    (swap! env (fn [_] benv))
+    (println "nREPL server started on port 7888")
+    (cljs.repl/repl benv)))