a lot of streamlining for validation
This commit is contained in:
@@ -4,11 +4,13 @@
|
||||
[auto-ap.ssr.hiccup-helper :as hh]))
|
||||
|
||||
(defn modal- [params & children]
|
||||
[:div {:class (-> (:class params)
|
||||
(or "max-w-4xl w-1/4 overflow-visible")
|
||||
(hh/add-class "h-min"))
|
||||
"@click.outside" "open=false"
|
||||
} children])
|
||||
[:div (-> params
|
||||
(update :class #(-> %
|
||||
(or "max-w-4xl w-1/4 overflow-visible")
|
||||
(hh/add-class "h-min")))
|
||||
|
||||
(assoc "@click.outside" "open=false"))
|
||||
children])
|
||||
|
||||
(defn modal-card- [params header content footer]
|
||||
[:div#modal-card (update params
|
||||
|
||||
@@ -152,6 +152,7 @@ c.clearChoices();
|
||||
[:input
|
||||
(-> params
|
||||
(dissoc :error?)
|
||||
(assoc :type "text")
|
||||
(update
|
||||
:class (fnil hh/add-class "") default-input-classes)
|
||||
(update :class #(str % (use-size size))))])
|
||||
@@ -210,6 +211,11 @@ c.clearChoices();
|
||||
(when (sequential? errors)
|
||||
(str/join ", " (filter string? errors)))])
|
||||
|
||||
(defn form-errors- [{:keys [errors]}]
|
||||
[:div#form-errors (when errors
|
||||
[:span.error-content
|
||||
(errors- {:errors errors})])])
|
||||
|
||||
(defn validated-field- [params & rest]
|
||||
(field- (cond-> params
|
||||
true (dissoc :errors)
|
||||
|
||||
Reference in New Issue
Block a user