(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)))