 
   (<! (timeout 500))
 
-  (<! (s/connect! stage "ws://localhost:8080/geschichte/ws"))
+  (<! (s/connect!
+       stage
+       (str
+        (if ssl?  "wss://" "ws://")
+        (.getDomain uri)
+        ":"
+        8080 #_(.getPort uri)
+        "/geschichte/ws")))
 
 
   (defn collection-view [app owner]

                            "master"))))


(def url-regexp #"(https?|ftp)://[a-z0-9-]+(\.[a-z0-9-]+)+(/[\w-]+)*(/[\w-\.]+)*")


(def app-state (atom nil))

(defn add-post [stage e]
  (let [post-id (uuid)


(comment
  (def eve-data (get-in @stage [:volatile :val-atom]))

  (let [db (get-in @eve-data ["eve@polyc0l0r.net"
                                     #uuid "b09d8708-352b-4a71-a845-5f838af04116"
