added suggestions

src/clj/auto_ap/datomic/vendors.clj

@@ -42,31 +42,6 @@
        :vendor/default-account             [:db/id :account/numeric-code :account/name]
        :vendor-usage/_vendor               [:vendor-usage/client :vendor-usage/count]}])
 
-(defn get-usages [args]
-  (->> (cond-> {:query {:find ['?v '?c '(count ?e)]
-                        :in ['$]
-                        :where ['[?v :vendor/name]
-                                '(or-join [?v ?c ?e]
-                                          (and 
-                                           [?e :invoice/vendor ?v]
-                                           [?e :invoice/client ?c])
-                                          (and
-                                           [?e :transaction/vendor ?v]
-                                           [?e :transaction/client ?c])
-                                          (and
-                                           [?e :journal-entry/vendor ?v]
-                                           [?e :journal-entry/client ?c]))]}
-                :args [(d/db conn)]}
-
-         (limited-clients (:id args))
-         (merge-query {:query {:in ['?xx]
-                               :where [['(get ?xx ?c)]]}
-                       :args [(set (map :db/id (limited-clients (:id args))))]}))
-       (d/query)
-       (reduce 
-        (fn [usages [v c cnt]]
-          (update usages v (fnil conj []) {:client-id c :count cnt}))
-        {})))
 
 (defn raw-graphql-ids [db args]
   (let [query (cond-> {:query {:find []