mbuczko

(defmacro assert-all
  [& pairs]
  `(do (when-not ~(first pairs)
         (throw (IllegalArgumentException.
                  (str (first ~'&form) " requires " ~(second pairs) " in " ~'*ns* ":" (:line (meta ~'&form))))))
       ~(let [more (nnext pairs)]
          (when more
            (list* `assert-all more)))))

(defmacro when-let*

mbuczko

(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)))