mirror of
https://github.com/penpot/penpot.git
synced 2026-05-22 08:23:42 +00:00
17 lines
381 B
Clojure
17 lines
381 B
Clojure
(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"))
|