Restricting access for sensitive pages.

auth.clj

(ns share-for-all.routes.auth
  ;; ...
  (:require ;; ...
            [cemerick.friend :as friend]
            (cemerick.friend [workflows :as workflows]
                             [credentials :as creds])))
;; ...

(defroutes secured-routes
  (GET "/register" req
       (layout/render "auth/register.html"))
  
  (GET "/login" []
       (layout/render "auth/login.html"))
  
  (POST "/login" [email pass]
        (login email pass))
  
  (POST "/register" [email pass pass1]
        (register email pass pass1)))

(defroutes auth-routes
  (friend/requires-scheme secured-routes 
                          :https
                          {:https 3334})
  
  (GET "/logout" []
       (logout))
  
  (POST "/logout" []
        (logout)))