send info to websocket on connect -> host & path

Author: DarMontou

src-cljs/chatb0x/core.cljs

@@ -66,6 +66,7 @@
 
 (set! (.-onopen socket)
       (fn [event]
+        (.send socket {:new-path path :new-host host})
         (println "WebSocket connected. Destination: " ws-url)))
 
 ;; The keys are all ints, so sort them such that :10 > :2

src/chatb0x/core.clj

@@ -185,7 +185,7 @@
                             :credential-fn #(creds/bcrypt-credential-fn @users %)
                             :workflows [(workflows/interactive-form)]})
                                         ; required Ring middlewares
-      (wrap-verbose) ; log the request map
+      ;;(wrap-verbose) ; log the request map
       (wrap-reload)
       (wrap-drop-www)
       (wrap-keyword-params)