a lot of streamlining for validation

This commit is contained in:
2023-10-24 11:12:31 -07:00
parent 48347bb8c5
commit 91f7e79aed
7 changed files with 161 additions and 168 deletions

View File

@@ -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

View File

@@ -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)