Use relative paths for websocket connection

This commit is contained in:
Nicholas Kariniemi 2015-05-01 08:46:02 +03:00
parent 10148897c8
commit 1eb7136d27

View file

@ -7,10 +7,12 @@
(:require-macros [cljs.core.async.macros :refer [go go-loop]]
[grub.macros :refer [log logs]]))
(def protocol (.-protocol (.-location js/document)))
(def location (.-location js/document))
(def protocol (.-protocol location))
(def ws-protocol (if (= protocol "http:") "ws://" "wss://"))
(def host (.-host (.-location js/document)))
(def server-url (str ws-protocol host))
(def host (.-host location))
(def path (.-pathname location))
(def server-url (str ws-protocol host path))
(def reader (t/reader :json))
(def writer (t/writer :json))