pass the name of the current thread to the client

Author: swannodette

src/main/cljs/clojure/browser/repl.cljs

@@ -18,6 +18,7 @@
   (:require [goog.dom :as gdom]
             [goog.object :as gobj]
             [goog.array :as garray]
+            [goog.json :as json]
             [goog.userAgent.product :as product]
             [clojure.browser.net :as net]
             [clojure.browser.event :as event]
@@ -228,11 +229,12 @@
           (flush-print-queue! repl-connection))))
     (net/register-service repl-connection
       :evaluate-javascript
-      (fn [js]
-        (net/transmit
-          repl-connection
-          :send-result
-          (evaluate-javascript repl-connection js))))
+      (fn [json]
+        (let [obj (json/parse json)]
+          (net/transmit
+            repl-connection
+            :send-result
+            (evaluate-javascript repl-connection (gobj/get obj "form"))))))
     (net/connect repl-connection
       (constantly nil)
       (fn [iframe]

src/main/clojure/cljs/repl/browser.clj

@@ -70,7 +70,11 @@
     (send-for-eval @(server/connection) form return-value-fn))
   ([conn form return-value-fn]
     (set-return-value-fn return-value-fn)
-    (server/send-and-close conn 200 form "text/javascript")))
+    (server/send-and-close conn 200
+      (json/write-str
+        {"thread" (.getName (Thread/currentThread))
+         "form"   form})
+      "application/json")))
 
 (defn- return-value
   "Called by the server when a return value is received."