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

Avoid EDN read error in scittle nREPL

Browse source
This commit is contained in:
Michiel Borkent 2023-12-22 14:07:03 +01:00
parent 9791c281e3
commit 719de62423
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/scittle/nrepl.cljs
View file

@ -13,7 +13,8 @@
(.send (nrepl-websocket) (.send (nrepl-websocket)
(str (str
(let [ns (or ns (str @!last-ns))] (let [ns (or ns (str @!last-ns))]
(assoc payload :id id :session session :ns ns))))) (-> (assoc payload :id id :session session :ns ns)
(dissoc :ctx))))))
(defn handle-nrepl-eval [{:keys [code] :as msg}] (defn handle-nrepl-eval [{:keys [code] :as msg}]
(let [[kind val] (try [::success (eval-string code)] (let [[kind val] (try [::success (eval-string code)]
@ -68,7 +69,7 @@
(defn handle-nrepl-message [msg] (defn handle-nrepl-message [msg]
(if-let [handler (ops (:op msg))] (if-let [handler (ops (:op msg))]
(handler msg) (handler msg)
(nrepl-reply (merge msg {:status ["error" "done"] :err "unkown-op"}) (assoc msg :ctx (store/get-ctx))))) (nrepl-reply (merge msg {:status ["error" "done"] :err "unkown-op"}) msg)))
(defn ws-url [host port path] (defn ws-url [host port path]
(str "ws://" host ":" port "/" path)) (str "ws://" host ":" port "/" path))