Use ws or wss based on location protocol

This commit is contained in:
Nicholas Kariniemi 2015-04-30 23:31:32 +03:00
parent 90d7ee91ca
commit ab67f02172

View file

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