eliminate-nested-if.clj

(defn get-user-from-request [request]
  (when-let [ident (get-in request [:session ::friend/identity :current])]
    (magic/user-by-id (get-in request [:myapp :system :db]) ident)))

(defn wrap-user
  "Add user information to the request map if logged in."
  [handler]
  (fn [request]
    (if-let [user (get-user-from-request request)]
      (handler (assoc-in request [:myapp :user] user))
      (handler request))))