Fix scittle.nrepl to honor SCITTLE_NREPL_WEBSOCKET_PORT (#45)
This commit is contained in:
parent
12e5a33964
commit
693d6ff8c2
2 changed files with 9 additions and 2 deletions
|
|
@ -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))
|
||||
|
||||
(when-let [ws-port (.-SCITTLE_NREPL_WEBSOCKET_PORT js/window)]
|
||||
(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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue