gistfile1.clj

(def user-handler
  (br/make-handler
    (uar/get-routes)
    (some-fn ur/handler-map #(when (fn? %) %))))
    
(def handler
  (cond->     routes
    true      user-handler
    ;true      pages-handler
    true      (frd/authenticate nil)
    true      (wrap-defaults site-defaults)
    u/is-dev? (ld/wrap-trace :header :ui)
    u/is-dev? reload/wrap-reload
    true      (mc/if-url-starts-with
                api-url
                #(wrap-restful-format % :formats [:transit-json]))
    true      (wrap-defaults ring-defaults))
    
    
uar/get-routes:
(defn get-routes []
  ["/api/" {"users" {["/" :id] [["/reset-pass" :reset-password]
                                ["/change-pass" :change-password]
                                ["/edit-profile" :edit-profile]
                                ["" :user]]}
            "auth/" [["loggedin-user" :loggedin-user]
                     ["login" :login]
                     ["logout" :logout]
                     ["join" :join]
                     ["forgot-pass" :forgot-password]]}])

ur/handler-map:
(def handler-map
  {;:reset-password  reset-pass
   ;:change-password change-pass
   ;:edit-profile    edit-profile
   ;:user            user
   :loggedin-user   loggedin-user})
   ;:login           login
   ;:logout          logout
   ;:join            join
   ;:forgot-password forgot-pass})
   
(defresource
  loggedin-user [{:keys [db params]}]
  a/base-resource
  :handle-ok
  (fn [_]
    (when-let [user (frd/current-authentication)]
      (udb/get-user db {:email user}))))