Request / response and more readable

- Request / response for main thread
- more readable worker thread script

Author: jtkDvlp

src/cljs_workers/core.cljs

@@ -25,3 +25,24 @@
        (dotimes [_ count]
          (>! workers (create-one script))))
      workers)))
+
+(defn- do-request!
+  [worker {:keys [handler arguments transfer] :as request}]
+  (let [message
+        (-> {:handler handler, :arguments arguments}
+            clj->js)
+
+        transfer
+        (->> transfer
+             (select-keys arguments)
+             vals)]
+
+    (if (seq transfer)
+      (.postMessage worker message (clj->js transfer))
+      (.postMessage worker message))))
+
+(defn- handle-response!
+  [event]
+  (-> (.-data event)
+      (js->clj :keywordize-keys true)))
+

src/cljs_workers/worker.cljs

@@ -17,17 +17,19 @@
           (handler arguments)
 
           message
-          (merge result {:state :success})
+          (-> result
+              (merge {:state :success})
+              clj->js)
 
           transfer
-          (->> (:transfer message)
+          (->> (:transfer result)
                (map keyword)
-               (select-keys message)
+               (select-keys result)
                vals)]
 
       (if (seq transfer)
-        (.postMessage js/self (clj->js message) (clj->js transfer))
-        (.postMessage js/self (clj->js message))))
+        (.postMessage js/self message (clj->js transfer))
+        (.postMessage js/self message)))
 
     (catch js/Object e
       (->> {:state :error, :message (.toString e)}