Allow users to proxy Portal behind a load balancer

djblue · May 18, 2022 · 37d2a88 · 37d2a88
1 parent fdea983
commit 37d2a88
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/portal/ui/rpc.cljs b/src/portal/ui/rpc.cljs
@@ -159,6 +159,9 @@
 (defn- get-host []
   (if (exists? js/PORTAL_HOST) js/PORTAL_HOST js/location.host))
 
+(defn- get-proto []
+  (if (= (.-protocol js/location) "https:") "wss:" "ws:"))
+
 (defn- connect []
   (if-let [ws @ws-promise]
     ws
@@ -167,7 +170,7 @@
      (js/Promise.
       (fn [resolve reject]
         (when-let [chan (js/WebSocket.
-                         (str "ws://" (get-host) "/rpc?" (get-session)))]
+                         (str (get-proto) "//" (get-host) "/rpc?" (get-session)))]
           (set! (.-onmessage chan) #(dispatch (read (.-data %))
                                               (fn [message]
                                                 (send! message))))