validateur nesting

validate_under.clj

(defn validate-under [attr validator]
  (fn [m]
    (let [result (validator (get m attr))]
      [(empty? result) (v/nest attr result)])))
      
(comment

  (def example-v
    (v/validation-set
      (validate-under :foo (v/validation-set (v/presence-of :bar)))))
    
  (example-v {:foo {:bar 1}})
  ;= {}
  
  (example-v {:foo {}})
  ;= {[:foo :bar] #{"can't be blank"}}
  
  (example-v {})
  ;= {[:foo :bar] #{"can't be blank"}}

  )