very easy to lookup customized accounts.

src/clj/auto_ap/graphql/accounts.clj

@@ -1,15 +1,27 @@
 (ns auto-ap.graphql.accounts
-  (:require [datomic.api :as d]
-            [auto-ap.datomic.accounts :as d-accounts]
-            [auto-ap.graphql.utils :refer [->graphql <-graphql enum->keyword] ]
-            [auto-ap.datomic :refer [uri merge-query remove-nils audit-transact]]
-            [clojure.tools.logging :as log]))
-
-
+  (:require
+   [auto-ap.datomic :refer [audit-transact remove-nils uri]]
+   [auto-ap.datomic.accounts :as d-accounts]
+   [auto-ap.graphql.utils
+    :refer [->graphql <-graphql assert-can-see-client enum->keyword]]
+   [datomic.api :as d]))
 
 (defn get-accounts [context args value]
   (->graphql (d-accounts/get-accounts (<-graphql args))))
 
+(defn default-for-vendor [context args value]
+  (assert-can-see-client (:id context) (:client_id args))
+  (let [result (d-accounts/get-for-vendor (:vendor_id args) (:client_id args))]
+    (->graphql 
+      (if-let [override-name (->> result
+                                  :account/client-overrides
+                                  (filter #(= (:client_id args)
+                                              (:db/id (:account-client-override/client %))))
+                                  first
+                                  :account-client-override/name)]
+        (assoc result :account/name override-name)
+        result))))
+
 (defn upsert-account [context args value]
   (let [{{:keys [id client-overrides numeric-code location applicability account-set name type]} :account} (<-graphql args)]
     (when-not id