simon/mw-scittle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix scittle.nrepl to honor SCITTLE_NREPL_WEBSOCKET_PORT

Browse source 
Add (deref (promise)) to doc/nrepl/bb.edn:http-server
This commit is contained in:
Srijayanth Sridhar 2022-10-18 19:31:40 +05:30
parent 12e5a33964
commit 20e125dd6c
No known key found for this signature in database
GPG key ID: 9B48B4F632B1EFA8
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/nrepl/bb.edn
View file

@ -5,7 +5,8 @@
:tasks {http-server {:doc "Starts http server for serving static files"
:requires ([babashka.http-server :as http])
:task (do (http/serve {:port 1341 :dir "."})
(println "Serving static assets at http://localhost:1341"))}
(println "Serving static assets at http://localhost:1341")
(deref (promise)))}
browser-nrepl {:doc "Start browser nREPL"
:requires ([sci.nrepl.browser-server :as bp])

7
src/scittle/nrepl.cljs
View file

@ -31,9 +31,12 @@
:complete (let [completions (completions (assoc msg :ctx @!sci-ctx))]
(nrepl-reply msg completions))))
(when (.-SCITTLE_NREPL_WEBSOCKET_PORT js/window)
(defn ws-url [host port path]
(str "ws://" host ":" port "/" path))
(let [ws-port (or (.-SCITTLE_NREPL_WEBSOCKET_PORT js/window) 1340)]
(set! (.-ws_nrepl js/window)
(new js/WebSocket "ws://localhost:1340/_nrepl")))
(new js/WebSocket (ws-url "localhost" ws-port "_nrepl"))))
(when-let [ws (nrepl-websocket)]
(prn :ws ws)