         (->> {:credentials :invalid}
              (assoc-in request [:context :errors])
              sign-in/sign-in-form
-             html-response))
-      (html-response (sign-in/sign-in-form request)))))
+             sh/html-response))
+      (sh/html-response (sign-in/sign-in-form request)))))
 
 (defn sign-out [request]
   (-> request
       (update-in [:session] dissoc :user)
-      ep/logout-handler))
+      cl-ep/logout-handler))
 
 (defn show-confirm-account-confirmation [request]
-  (html-response (delete-account/delete-account-confirmation request)))
+  (sh/html-response (delete-account/delete-account-confirmation request)))
 
 (defn delete-account [request]
   (let [email (get-in request [:session :user :login])]

    (redirect-to-profile-deleted)))

(defn redirect-to-profile [user]
  (assoc (r/redirect (path :show-profile)) :session {:user user
                                                     :access_token (:token (token/create-token nil user))}))

(defn redirect-to-profile-created [user]
  (assoc (r/redirect (path :show-profile-created)) :session {:user user
                                                             :access_token (:token (token/create-token nil user))}))

(defn redirect-to-profile-deleted []
  (assoc (r/redirect (path :show-profile-deleted)) :session nil))

(defn show-registration-form [request]
  (html-response (register/registration-form request)))

(defn preserve-session [response request]
  (-> response


(defn show-sign-in-form [request]
  (if (signed-in? request)
    (-> (r/redirect (routes/path :home)) (preserve-session request))
    (sh/html-response (sign-in/sign-in-form request))))

(defn show-profile [request]
  (sh/html-response (profile/profile request)))

(defn show-profile-created [request]
  (sh/html-response (profile-created/profile-created request)))

(defn show-profile-deleted [request]
  (sh/html-response (delete-account/profile-deleted request)))

(defn show-authorise-form [request]
  (sh/html-response (authorise/authorise-form request)))

(defn home [request]
  (r/redirect (routes/path :show-profile)))
