From 78fe2d442271d3f4d211a2c20db25743e4462916 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 20 Aug 2026 15:45:47 -0600 Subject: stuff --- .../resume/clojurescript/resume/src/resume/core.cljs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'lisp/webapps') diff --git a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs index 52059f7..35ea5aa 100644 --- a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs +++ b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs @@ -372,8 +372,10 @@ (defn handler-login-authenticate [response] (let [jsonobj (js->clj (js/JSON.parse response))] - (cond (get jsonobj "errormsg") (goto-location "/login") - (get jsonobj "message") (on-menu-clicked "/home")))) + (notifications jsonobj) + (reset-location "/home") + (render-menu) + (render-about-us-view))) (defn render-login-authenticate [] (POST "/login/authenticate" @@ -383,13 +385,8 @@ ;; logout -(defn handler-logout [response] - (render-home "You are now logged out" "") - (reset-location "/home") - (render-menu)) - (defn render-logout [] - (GET "/logout" {:handler handler-logout})) + (GET "/logout" {:handler handler-login-authenticate})) ;; profile -- cgit v1.3