improvements

src/clj/auto_ap/ssr/components/buttons.clj

@@ -1,5 +1,6 @@
 (ns auto-ap.ssr.components.buttons
-  (:require [auto-ap.ssr.svg :as svg]))
+  (:require [auto-ap.ssr.svg :as svg]
+            [auto-ap.ssr.hiccup-helper :as hh]))
 
 (defn button-icon- [_ i]
   [:div.h-4.w-4 i])
@@ -170,3 +171,16 @@
                  :hx-on:click "this.querySelector(\"input\").value = event.target.value; this.querySelector(\"input\").dispatchEvent(new Event('change', {bubbles: true}));"}
            [:input {:type "hidden" :name name}]]
           children)))
+
+
+(defn validated-save-button- [{:keys [errors class] :as params} & children]
+  (button- (-> {:color :primary :form  "edit-form"
+                :type  "submit" :class (cond-> (or class "")
+                                         true (hh/add-class "w-32")
+                                         (seq errors) (hh/add-class "animate-shake"))}
+               (merge params)
+               (dissoc :errors))
+           (if (seq children)
+             children
+             "Save"))
+  )