hipstr.validators.user-validator

user_validator.clj

(ns hipstr.validators.user-validator
  (:require [noir.validation :as v]
            [validateur.validation :refer :all]))

(defn validate-signup [signup]
  "Validates teh incoming map of values from our signup form, 
   and returns a set of error messages for any invalid key.
   Expects signup to have :username, :email, and :password."
  (let [v (validation-set
           (presence-of #{:email :password}
                        :message "is a required field.")
           (format-of :username
                      :format #"^[a-zA-Z0-9_]*$"
                      :message "Only letters, numbers, and underscores allowed."
                      :blank-message "is a required field")
           (length-of :password
                      :within (range 8 101)
                      :message-fn (fn [type m attribute & args]
                                    (if (= type :blank)
                                      "is a required field"
                                      "Password must be between 8 and 100 characters long.")))
           (validate-with-predicate :email
                                    #(v/is-email? (:email %))
                                    :message-fn (fn [validation-map]
                                                  (if (v/has-value? (:email validation-map))
                                                    "the email's format is incorrect"
                                                    "is a required field"))))]
    (v signup)))