arathunku-vlad-example.clj

(require 'vlad.core)

(def rules
  (join (attr [:name] present)
        (attr [:message] present)))

(def names
  {[:name]    "Name"
   [:message] "Message"})

(defn save-message [{:keys [name message] :as input}]
  (let [errors (-> (validate rules input)
                   (assign-name names)
                   (translate-errors english-transaltion))]
    (if (empty? errors)
      (do
        (println name message)
        (home))
      (home name message errors))))