diff options
Diffstat (limited to 'users/grfn/bbbg/src/bbbg/handlers/core.clj')
-rw-r--r-- | users/grfn/bbbg/src/bbbg/handlers/core.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/users/grfn/bbbg/src/bbbg/handlers/core.clj b/users/grfn/bbbg/src/bbbg/handlers/core.clj index 3226a221ef..f93904e4ff 100644 --- a/users/grfn/bbbg/src/bbbg/handlers/core.clj +++ b/users/grfn/bbbg/src/bbbg/handlers/core.clj @@ -35,6 +35,11 @@ (defn authenticated? [request] (some? (get-in request [:session ::user/id]))) +(defn wrap-auth-required [handler] + (fn [req] + (when (authenticated? req) + (handler req)))) + (comment (render-page [:h1 "hi"]) |