websocket auto login

Author: awb99

demo/deps.edn

@@ -5,6 +5,7 @@
  :deps {org.clojure/clojure    {:mvn/version "1.11.3"}
         org.pinkgorilla/webly {:mvn/version "0.8.707"}
         org.pinkgorilla/ui-tailwind {:mvn/version "0.1.8"}
+        org.pinkgorilla/websocket {:mvn/version "0.0.23"} ; more up to date than in webly
         org.pinkgorilla/oauth2 {:local/root "../" :deps/manifest :deps}
         nrepl/nrepl {:mvn/version "1.2.0"}}
 

src/token/identity/user.cljs

@@ -3,6 +3,7 @@
    [cljs.reader :refer [read-string]]
    [taoensso.timbre :refer-macros [info warn error]]
    [reagent.core :as r]
+   [re-frame.core :as rf]
    [token.identity.local :as local]))
 
 ;; LocalStorage Helpers
@@ -41,8 +42,16 @@
   [_config]
   (info "initializing user ..")
   (when-let [usermap (ls-get user-key)]
+    
     (info "user loaded from localstorage: " usermap)
     (reset! user-a usermap)))
 
 
-
+(rf/reg-event-db
+ :ws/connected
+ (fn [db _]
+   (when-let [usermap (get-user)]
+      (let [{:keys [token user]} usermap]
+         (warn "ws connected - auto login: " user)
+         (local/login token)))
+    db))