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

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
Show stats 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)
(str
(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}]
(let [[kind val] (try [::success (eval-string code)]
@ -68,7 +69,7 @@
(defn handle-nrepl-message [msg]
(if-let [handler (ops (:op 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]
(str "ws://" host ":" port "/" path))