(defn wrap-remember-me [handler]
  (fn [req]
    (debug "Session now:" (:session req))
    (if (not (authenticated? req))
      (if-let [token (get-in req [:cookies "remember_me" :value])]
        (if-let [uuid-token (util/uuid token)]
          (if-let [user (user/find-by-remember-me-token uuid-token)]
            (do
              (debug "Got remember token" token "for" (:email user))
              (let [session (:session req) response (handler req) identity-map {:identity
                                                            {:id (:id user)
                                                             :role "admin"
                                                             :first-name (:first_name user)
                                                             :last-name (:last_name user)
                                                             :email (:email user)}}]
                (assoc-in (handler req) [:session :some-key] "value")))))))
    (handler req)))