summaryrefslogtreecommitdiff
path: root/scripts/web_repl.clj
blob: 734ffa85074504c2ca242a0209a6418468d497cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)))