registration

register.clj

(defn- register
  [db mailer email password]
  (if (users/valid? email password)
    (if (users/taken? db email)
      (response/bad-request {:errors [{:message "That email is taken."}]})
      (do (users/do-create! db email password)
          (users/notify mailer email activate-subject activate-text)
          (response/ok (auth/authenticate email))))
    (response/bad-request {:errors [{:message errors/invalid-creds}]})))