Makes testing of transaction rules work

src/clj/auto_ap/ssr/components/aside.clj

@@ -214,8 +214,7 @@
 
    [:li
     (menu-button- {:icon svg/cog
-                   :href (bidi/path-for client-routes/routes
-                                        :admin-rules)}
+                   :href (bidi/path-for ssr-routes/only-routes :admin-transaction-rules)}
                   "Rules")]
 
    [:li

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

@@ -176,7 +176,7 @@
 
 
 (defn validated-save-button- [{:keys [errors class] :as params} & children]
-  (button- (-> {:color :primary 
+  (button- (-> {:color (or (:color params) :primary) 
                 :type  "submit" :class (cond-> (or class "")
                                          true (hh/add-class "w-32")
                                          (seq errors) (hh/add-class "animate-shake"))}
@@ -184,5 +184,4 @@
                (dissoc :errors))
            (if (seq children)
              children
-             "Save"))
-  )
+             "Save")))

src/clj/auto_ap/ssr/components/dialog.clj

@@ -9,10 +9,10 @@
    children])
 
 (defn modal-card- [params header content footer]
-  [:div#modal-card (update params
+  [:div (update params
                            :class (fn [c] (-> c
                                               (or "")
-                                              (hh/add-class "w-full p-4 h-full")
+                                              (hh/add-class "w-full p-4 h-full modal-card")
                                               )))
    [:div {:class "bg-white rounded-lg shadow dark:bg-gray-700 dark:text-white  modal-content w-full flex flex-col h-full"}
     [:div {:class "flex items-start justify-between p-4 border-b rounded-t dark:border-gray-600 shrink-0"} header]