fixing introduced bugs.

src/clj/auto_ap/graphql.clj

@@ -598,7 +598,12 @@
     (->graphql users)))
 
 
-
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
+(defn categorize [x]
+  (cond (<= x 0)   :due
+        (<= x 30 ) :due-30
+        (<= x 60 ) :due-60
+        :else      :due-later))
 
 
 (defn get-expense-account-stats [_ {:keys [client_id] } _]

src/clj/auto_ap/import/yodlee2.clj

@@ -15,6 +15,7 @@
    [unilog.context :as lc]
    [yang.scheduler :as scheduler]))
 
+#_{:clj-kondo/ignore [:unresolved-var]}
 (defn yodlee->transaction [transaction use-date-instead-of-post-date?]
   (let [{post-date :postDate
          account-id :accountId
@@ -32,8 +33,7 @@
         date (atime/parse date "YYYY-MM-dd")]
     #:transaction
     {:post-date (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
-     :id #_{:clj-kondo/ignore [:unresolved-var]}
+     :id (di/sha-256 (str id))
-         (di/sha-256 (str id))
      :raw-id (str id)
      :account-id account-id
      :date (if use-date-instead-of-post-date?

src/clj/auto_ap/yodlee/core2.clj

@@ -87,6 +87,7 @@
           :token
           :accessToken))))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn get-accounts [client-code ]
   (let [cob-session (login-user (client-code->login client-code))]
     (-> (str (:yodlee2-base-url env) "/accounts") 
@@ -124,6 +125,7 @@
 
 
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn get-transactions [client-code]
   (let [cob-session (login-user (client-code->login client-code))
         batch-size 100
@@ -172,6 +174,7 @@
         :providerAccount
         first)))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn update-provider-account [client-code pa]
   (let [cob-session (login-user (client-code->login client-code))]
 
@@ -216,6 +219,7 @@
       (log/error e)
       (throw e))))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn create-user [client-code]
   (let [cob-session (login-cobrand)]
     (-> (str (:yodlee2-base-url env) "/user/register") 
@@ -263,6 +267,7 @@
               provider-account-ids)))
 
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn get-provider-accounts-with-accounts [client-code]
   (let [provider-accounts (by :id (get-provider-accounts-with-details client-code))
         accounts (get-accounts-for-providers client-code (keys provider-accounts))]

src/clj/user.clj

@@ -533,6 +533,7 @@
       (square/upsert client square-location (c/to-date-time date)
                      (t/plus (c/to-date-time date) (t/days 1))))))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn upsert-invoice-amounts [tsv]
   (let [data           (with-open [reader (io/reader (char-array tsv))]
                (doall (csv/read-csv reader :separator \tab)))

src/cljs/auto_ap/views/components/invoice_table.cljs

@@ -260,7 +260,7 @@
     [grid/grid {:data-page data-page
                 :check-boxes? check-boxes
                 :column-count (if selected-client 8 9)}
-     [grid/controls {:action-buttons action-buttons}
+     [grid/controls (assoc data :action-buttons action-buttons)
       [:div.level-item
        [:div.tags
         [:div.tag.is-info.is-light "Outstanding " (nf (:outstanding data))]

src/cljs/auto_ap/views/pages/payments/table.cljs

@@ -110,7 +110,7 @@
     [grid/grid {:data-page data-page
                 :check-boxes? true
                 :column-count (if selected-client 7 8)}
-     [grid/controls {:action-buttons action-buttons} data]
+     [grid/controls (assoc data :action-buttons action-buttons) data]
      [grid/table {:fullwidth true}
       [grid/header {}
        [grid/row {:id     "header"

src/cljs/auto_ap/views/pages/transactions/table.cljs

@@ -69,7 +69,7 @@
     [grid/grid {:data-page data-page
                 :column-count (if selected-client 6 7)
                 :check-boxes? check-boxes?}
-     [grid/controls {:action-buttons action-buttons}
+     [grid/controls (assoc data :action-buttons action-buttons)
       data]
      [grid/table {:fullwidth true}
       [grid/header {}