added suggestions

src/cljc/auto_ap/ledger/reports.cljc

@@ -114,15 +114,6 @@
                      "ZZZZZZ"
                      (:location x))]))))
 
-(defn locations [pnl-data]
-  (->> (client-locations pnl-data)
-       (map second)
-       set
-       (sort-by (fn [x]
-                  (if (= x "HQ" )
-                    "ZZZZZZ"
-                    x)))))
-
 (defn aggregate-accounts [pnl-data]
   (reduce (fnil + 0.0) 0.0 (map :amount (:data pnl-data))))
 

src/cljc/auto_ap/utils.cljc

@@ -5,6 +5,7 @@
               [clojure.tools.logging :as log]
               [unilog.context :as lc])]))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn by
   ([f xs]
    (by f identity xs))
@@ -14,15 +15,7 @@
     {}
     xs)))
 
-(defn replace-if [f candidate existing]
-  (reduce
-   (fn [xs x]
-     (if (f x candidate)
-       (conj xs candidate)
-       (conj xs x)))
-   []
-   existing))
-
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn replace-by [xs f x]
   (let [found? (atom false)
         replaced (mapv
@@ -36,34 +29,15 @@
       replaced
       (into [x] replaced))))
 
-
-(defn remove-by [xs f x]
-  (into []
-        (filter
-         (fn [t]
-           (if (= (f t) (f x))
-             false
-             true))
-         xs)))
-(defn merge-by [xs f x]
-  (let [found? (atom false)
-        replaced (mapv
-                  (fn [t]
-                    (if (= (f t) (f x))
-                      (do (reset! found? true)
-                          (merge t x))
-                      t))
-                  xs)]
-    (if @found?
-      replaced
-      (into [x] replaced))))
-
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn dollars-0? [amt]
   (< -0.001 amt  0.001))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn dollars= [amt1 amt2]
   (dollars-0? (- amt1 amt2) ))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn deep-merge [v & vs]
   (letfn [(rec-merge [v1 v2]
             (if (and (map? v1) (map? v2))
@@ -73,8 +47,10 @@
       (reduce #(rec-merge %1 %2) v vs)
       (last vs))))
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (def default-pagination-size 20)
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn allow-once [f]
   (let [in-progress? (atom false)]
     (fn []
@@ -86,22 +62,22 @@
             (reset! in-progress? false)))))))
 
 
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn heartbeat [f id]
   (fn []
-    #?(:clj (do 
-              (lc/with-context {:source id}
-                (try 
-                  (log/info "Starting background process " id)
-                  (f)
-                  (log/info "Completed background process " id)
+    #?(:clj (lc/with-context {:source id}
+              (try 
+                (log/info "Starting background process " id)
+                (f)
+                (log/info "Completed background process " id)
+                (statsd/service-check {:name   (str id)
+                                       :status :ok}
+                                      nil)
+                (catch Exception e
+                  (log/error e)
                   (statsd/service-check {:name   (str id)
-                                         :status :ok}
-                                        nil)
-                  (catch Exception e
-                    (log/error e)
-                    (statsd/service-check {:name   (str id)
-                                           :status :critical}
-                                          nil)))))
+                                         :status :critical}
+                                        nil))))
 
        :cljs (do (println "Heartbeat for " id)
                  (f)))))