a bit of session cleanup

lgessler · Jan 2, 2024 · 0be1822 · 0be1822
1 parent 0a4f23f
commit 0be1822
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/src/main/glam/client/ui/login.cljs b/src/main/glam/client/ui/login.cljs
@@ -15,9 +15,6 @@
             [glam.client.ui.material-ui :as mui]
             [com.fulcrologic.fulcro.algorithms.form-state :as fs]))
 
-(defn toggle-modal! [this] (sm/trigger! this ::session/session :event/toggle-modal))
-(defn close-modal! [this] (sm/trigger! this ::session/session :event/close-modal))
-
 (defn form-valid [form field]
   (let [v (get form field)]
     (case field

diff --git a/src/main/glam/models/session.cljs b/src/main/glam/models/session.cljs
@@ -105,9 +105,7 @@
            {::sm/ok-event    :event/complete
             ::sm/error-event :event/failed}))
 
-(def global-events
-  {:event/close-modal  {::sm/handler (fn [env] (sm/assoc-aliased env :modal-open? false))}
-   :event/toggle-modal {::sm/handler (fn [env] (sm/update-aliased env :modal-open? not))}})
+(def global-events {})
 
 (defn get-server-mutation-err
   [result-or-env]
@@ -187,7 +185,7 @@
   (error-action [{:keys [app]}]
                 (df/remove-load-marker! app ::signup))
 
-  (session [{:keys [state] :as env}]
+  (remote [{:keys [state] :as env}]
            (let [{:account/keys [email password password-again]} (get-in @state signup-ident)]
              (let [valid? (boolean (and (valid-email email) (valid-password password)
                                         (= password password-again)))]