making it possible to see a list of checks

src/clj/auto_ap/graphql/checks.clj

@@ -0,0 +1,44 @@
+(ns auto-ap.graphql.checks
+  (:require [auto-ap.graphql.utils :refer [->graphql <-graphql]]
+
+            [com.walmartlabs.lacinia :refer [execute]]
+            [com.walmartlabs.lacinia.executor :as executor]
+            [com.walmartlabs.lacinia.resolve :as resolve]
+            [auto-ap.db.checks :as checks]
+            [auto-ap.db.vendors :as vendors]
+            [auto-ap.utils :refer [by]]
+            [auto-ap.db.companies :as companies]
+            [auto-ap.time :refer [parse normal-date]]))
+
+(defn get-vendor-for-check [context args value]
+  (->graphql
+    (if-let [vendor-cache (:vendor-cache context)]
+      (vendor-cache (:vendor_id value))
+      (vendors/get-by-id (:vendor_id value)))))
+
+(defn get-company-for-check [context args value]
+  (->graphql
+    (if-let [company-cache (:company-cache context)]
+      (company-cache (:company_id value))
+      (companies/get-by-id (:company_id value)))))
+
+(defn get-check-page [context args value]
+  (let [extra-context
+        (cond->  {}
+          (executor/selects-field? context :invoice/vendor) (assoc :vendor-cache (by  :id (vendors/get-all)))
+          (executor/selects-field? context :invoice/company) (assoc :company-cache (by  :id (companies/get-all))))
+
+        checks (map
+                  ->graphql
+                  (checks/get-graphql (<-graphql args)))
+        checks-count (checks/count-graphql (<-graphql args))]
+    (resolve/with-context
+      [{:checks checks
+        :total checks-count
+        :count (count checks)
+        :start (:start args 0)
+        :end (+ (:start args 0) (count checks))}] extra-context)))
+
+
+
+