added suggestions

2022-07-26 07:01:18 -07:00
parent 96c80853ef
commit 84f7e734f0
65 changed files with 130 additions and 1140 deletions
--- a/src/cljc/auto_ap/ledger/reports.cljc
+++ b/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))))