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]] (:require-macros [cljs.core.async.macros :refer [go go-loop]]
[grub.macros :refer [log logs]])) [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 ws-protocol (if (= protocol "http:") "ws://" "wss://"))
(def host (.-host (.-location js/document))) (def host (.-host location))
(def server-url (str ws-protocol host)) (def path (.-pathname location))
(def server-url (str ws-protocol host path))
(def reader (t/reader :json)) (def reader (t/reader :json))
(def writer (t/writer :json)) (def writer (t/writer :json))