gistfile1.clj

(defn with-login-check
  [handler]
  (fn [request]
    (if (logged-in? request)
     (handler request)
     {:status 403
      :headers {"Content-Type" "text/xml"}
      :body "<forbidden/>"})))

(defn create-routes []
  (->
   (routes
    (create-routes-1)
    
    (->
     (routes
      (create-routes-2)))
    (->
     (routes
      (create-routes-3))
     (with-login-check))

    (create-file-route)
    (create-default-resource-not-found-route))
   (with-session :memory)
   (with-rest-header-to-method)
   (with-cache-control {:no-cache true :must-revalidate true})))