Switch to using msgpack binary format instead of json. Borrowed codes…

… from itnernet. (#97)
open-simulation-platform · Aug 14, 2019 · 544ee24 · 544ee24
1 parent 0c81bc5
commit 544ee24
Show file tree

Hide file tree

Showing 4 changed files with 447 additions and 2 deletions.
diff --git a/project.clj b/project.clj
@@ -1,11 +1,15 @@
 (defproject cse-client "1.0-SNAPSHOT"
   :min-lein-version "2.0.0"
   :dependencies [[kee-frame "0.3.3"]
+                 [jarohen/chord "0.8.1"]
+                 [com.cognitect/transit-clj "0.8.309"]
+                 [com.cognitect/transit-cljs "0.8.256"]
                  [reagent "0.8.1"]
                  [re-frame "0.10.6" :exclusions [reagent]]
                  [cljsjs/plotly "1.36.1-0"]
                  [org.clojure/clojurescript "1.10.439"]
                  [org.clojure/clojure "1.9.0"]
+                 [org.clojure/tools.reader "1.3.0"]
                  [fulcrologic/fulcro "2.8.0"]
                  [fulcrologic/semantic-ui-react-wrappers "2.0.4"]
                  [cljsjs/semantic-ui-react "0.84.0-0"]

diff --git a/src/cse_client/controller.cljs b/src/cse_client/controller.cljs
@@ -9,7 +9,8 @@
             [cljs.core.async :refer [<! timeout]]
             [clojure.string :as str]
             [re-frame.core :as rf]
-            [cse-client.localstorage :as storage]))
+            [cse-client.localstorage :as storage]
+            [cse-client.msgpack-format]))
 
 ;; Prevent handler overwriting warnings during cljs reload.
 (re-frame-log/set-loggers!
@@ -50,7 +51,7 @@
                 (fn [_ _]
                   (merge {::websocket/open {:path         socket-url
                                             :dispatch     ::socket-message-received
-                                            :format       :json-kw
+                                            :format       :msgpack
                                             :wrap-message identity}}
                          (socket-command ["get-module-data"]))))