Fix scittle.nrepl to honor SCITTLE_NREPL_WEBSOCKET_PORT (#45)

This commit is contained in:
Srijayanth Sridhar 2022-10-18 20:36:03 +05:30 committed by GitHub
parent 12e5a33964
commit 693d6ff8c2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 2 deletions

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