validators.clj

(def common-login-validator
     (validator
      (required "Username is required" :username)
      (required "Password is required" :password)
      (regex "Password must be at least 6 characters long" :password #".{6,}")))

(def registration-validator
     (validator
      common-login-validator
      (custom "Choose another username" :username (comp model/find-user :username))
      (must-match "Password and confirmation must match" :password :confirm)))

(def login-validator
     (validator
      common-login-validator
      (custom "Invalid username or password" :form #(not (model/authenticate
							  (:username %)
							  (:password %))))))