(ns uxbox.main.ui.forms (:require [sablono.core :refer-macros [html]] [uxbox.util.i18n :refer (tr)] [uxbox.util.schema :as sc])) (defn input-error [errors field] (when-let [error (get errors field)] (html [:ul.form-errors [:li {:key error} (tr error)]]))) (defn error-class [errors field] (when (get errors field) "invalid"))