validation.clj

(ns sagaz-back.validation)

; Helper functions

(defn validate* [field value regexp]
  (if-not (re-matches regexp value)
     (keyword (str "invalid-" (name field)))))

(defn validate [data criteria]
  (-> (reduce-kv (fn [acc k re] (conj acc (validate* k (k data) re)))
                 []
                 criteria)
      (#(remove nil? %))))

      
; Domain specific

(defn user [user-data]
  (validate user-data {:username #"^\w{6,10}$"
                       :email    #"^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$"
                       :password #"^\w{6,8}$"}))