Add auth related events namespace.

src/uxbox/data/auth.cljs

@@ -0,0 +1,65 @@
+(ns uxbox.data.auth
+  (:require [beicon.core :as rx]
+            [promesa.core :as p]
+            [uxbox.repo :as rp]
+            [uxbox.rstore :as rs]
+            [uxbox.router :as r]
+            [uxbox.state :as st]
+            [uxbox.schema :as sc]
+            [uxbox.time :as time]))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Schemas
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(def ^:const +login-schema+
+  {:username [sc/required sc/string]
+   :password [sc/required sc/string]})
+
+(def ^:const +user-schema+
+  {:username [sc/required sc/string]
+   :email [sc/required sc/email]
+   :photo [sc/required sc/string]
+   :fullname [sc/required sc/string]})
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Events
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn- login-success
+  [{:keys [full photo username email] :as params}]
+  (sc/validate! +user-schema+ params)
+  (reify
+    rs/UpdateEvent
+    (-apply-update [_ state]
+      (assoc state :auth params))
+
+    rs/EffectEvent
+    (-apply-effect [_ state]
+      (r/go :dashboard/projects))))
+
+(defn login
+  [{:keys [username password] :as params}]
+  (sc/validate! +login-schema+ params)
+  (letfn [(on-error [err]
+            (rx/of (login-success {})))
+          (on-success [value]
+            (rx/of (login-success value)))]
+    (reify
+      rs/WatchEvent
+      (-apply-watch [_ state]
+        (->> (rp/do :login params)
+             (rx/flat-map on-success)
+             (rx/catch on-error))))))
+
+(defn logout
+  []
+  (reify
+    rs/UpdateEvent
+    (-apply-update [_ state]
+      (assoc state :auth nil))
+
+    rs/WatchEvent
+    (-apply-watch [_ state]
+      (rx/of (r/navigate :auth/login)))))