various fixes.

This commit is contained in:
2023-09-06 13:34:08 -07:00
parent 558fc58371
commit 766be867f7
4 changed files with 32 additions and 10 deletions

View File

@@ -7,6 +7,7 @@
(defn wrap-secure [handler]
(fn [request]
#_(println "AUTHENTICATE" (authenticated? request))
(cond (authenticated? request)
(handler request)
@@ -22,6 +23,7 @@
(defn wrap-admin [handler]
(fn [request]
#_(println "ADMIN " (is-admin? (:identity request)) (:identity request))
(if (is-admin? (:identity request))
(handler request)
(do
@@ -33,6 +35,7 @@
(defn wrap-client-redirect-unauthenticated [handler]
(fn [request]
(let [response (handler request)]
#_(println "HEREEEEE" (get response :status))
(if (= 401 (get response :status))
(-> response
(assoc-in [:headers "hx-redirect"] (str "/login?"