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/graphql/checks.clj

@@ -97,7 +97,6 @@
            [:line {:line-width 0.15 :color [50 50 50]}]]
           [:cell {:colspan 3}]]
 
-
          [[:cell {:size 9 :leading 11.5} "\n\n\n\n\nMEMO"]
           [:cell {:colspan 5 :leading 11.5} (split-memo memo)
            [:line {:line-width 0.15 :color [50 50 50]}]]
@@ -186,8 +185,6 @@
                             :payment/pdf-data
                             (edn/read-string)
 
-
-
                             make-check-pdf)]
         (s3/put-object :bucket-name (:data-bucket env)
                        :key (:payment/s3-key check)
@@ -277,7 +274,6 @@
         (conj payment)
         (into (invoice-payments invoices invoice-amounts)))))
 
-
 (defmethod invoices->entities :payment-type/debit [invoices vendor client bank-account type index invoice-amounts date]
   (when (<= (->> invoices
                  (map (comp invoice-amounts :db/id))
@@ -297,7 +293,6 @@
         (conj payment)
         (into (invoice-payments invoices invoice-amounts)))))
 
-
 (defmethod invoices->entities :payment-type/balance-credit [invoices invoice-amounts]
   (when (<= (->> invoices
                  (map (comp invoice-amounts :db/id))
@@ -488,7 +483,6 @@
      {:s3-url nil
       :invoices (d-invoices/get-multi (map :invoice_id (:invoice_payments args)))})))
 
-
 (defn void-payment [context {id :payment_id} _]
   (let [check (d-checks/get-by-id id)]
     (assert (or (= :payment-status/pending (:payment/status check))
@@ -549,7 +543,6 @@
                                                                                                      :invoice-status/unpaid)}]]))))))))
                   id))
 
-
 (defn void-payments [context args _]
   (assert-admin (:id context))
   (let [args         (assoc args :clients (:clients context))
@@ -607,7 +600,6 @@
                               0.001))
                          invoices)
 
-
         total-to-pay (reduce + 0 (map :invoice/outstanding-balance invoices-to-be-paid))
         _ (when (<= total-to-pay  0.001)
             (assert-failure "You must select invoices that need to be paid."))
@@ -637,8 +629,6 @@
                                            [total-to-pay []])))
                              (into {}))
 
-
-
         vendor-id (:db/id (:invoice/vendor (first invoices)))
         payment {:db/id            (str vendor-id)
                  :payment/amount   total-to-pay
@@ -751,7 +741,6 @@
                              {:enum-value :pending}
                              {:enum-value :cleared}]}})
 
-
 (def resolvers
   {:get-potential-payments get-potential-payments
    :get-payment-page get-payment-page