Add vendor pre-population for bulk code and individual edit forms

- Add vendor-changed HTMX handlers for both bulk code and individual edit
- Pre-populate default account at 100% when vendor is selected and no accounts exist
- Fix render-accounts-section to render from step-params correctly
- Change bulk code vendor-changed from hx-get to hx-post to include form data
- Add routes for vendor-changed endpoints
- Update e2e tests to cover vendor pre-population
- Run lein cljfmt fix across codebase

src/clj/auto_ap/ssr/components/multi_modal.clj

@@ -15,12 +15,11 @@
             [malli.core :as mc]
             [malli.core :as m]))
 
-
 (def default-form-props {:hx-ext        "response-targets"
                          :hx-swap       "outerHTML"
                          :hx-target-400 "#form-errors .error-content"
                          :hx-trigger    "submit"
-                         :hx-target "this" })
+                         :hx-target "this"})
 
 (defprotocol ModalWizardStep
   (step-key [this])
@@ -57,7 +56,6 @@
                         (or (get-in (:snapshot multi-form-state) edit-path)
                             default)))
 
-
 (defn merge-multi-form-state [{:keys [snapshot edit-path step-params] :as multi-form-state}]
   (let [cursor (cursor/cursor (or snapshot {}))
         ;; this hack makes sure that, in the event of a missing vector entry, will make sure to add it first
@@ -87,8 +85,6 @@
                  (fn encode-step-key [sk]
                    (mc/encode step-key-schema sk main-transformer))))
 
-
-
 (defn render-timeline [linear-wizard current-step validation-route]
   (let [step-names        (map #(step-name (get-step linear-wizard %)) (steps linear-wizard))
         active-index (.indexOf step-names (step-name current-step))]
@@ -148,9 +144,9 @@
                                                         next-button-content]}]
   [:div.flex.justify-end
    [:div.flex.items-baseline.gap-x-4
-     (let [step-errors (:step-params fc/*form-errors*)]
-       (com/form-errors {:errors (or (:errors step-errors)
-                                     (when (sequential? step-errors) step-errors))}))
+    (let [step-errors (:step-params fc/*form-errors*)]
+      (com/form-errors {:errors (or (:errors step-errors)
+                                    (when (sequential? step-errors) step-errors))}))
     (when (not= (first (steps linear-wizard))
                 (step-key step))
       (when validation-route
@@ -172,7 +168,7 @@
     (com/modal-card-advanced
      {"@keydown.enter.prevent.stop" "if ($refs.next ) {$refs.next.click()}"
       :class (str
-               (or width-height-class " md:w-[750px] md:h-[600px] ")
+              (or width-height-class " md:w-[750px] md:h-[600px] ")
               " w-full h-full 
                group-[.forward]/transition:htmx-swapping:opacity-0 
                group-[.forward]/transition:htmx-swapping:-translate-x-1/4 
@@ -261,7 +257,7 @@
      :oob (or oob []))))
 
 (def next-handler
-  
+
   (-> (fn [{:keys [wizard] :as request}]
         (let [current-step (get-current-step wizard)]
           (if (satisfies? CustomNext current-step)
@@ -361,8 +357,6 @@
      (render-wizard wizard request)])
     (get query-params :replace-modal) (assoc-in [:headers "hx-trigger"] "modalswap")))
 
-
-
 (defn wrap-init-multi-form-state [handler get-multi-form-state]
   (->
    (fn init-multi-form [request]