making it possible to see a list of checks

src/clj/auto_ap/db/checks.clj

@@ -49,3 +49,36 @@
                              (map clj->db)))
        (map db->clj)
        (map data->fields)))
+
+#_(defn add-sort-by [q sort-by asc]
+  (let [sort-by-key (keyword sort-by)]
+    (cond (all-keys  sort-by-key)
+          (helpers/merge-order-by q [sort-by-key (when-not asc :desc)])
+
+          (= :vendor sort-by-key)
+          (-> q
+              (helpers/merge-left-join [:vendors :v] [:= :v.id :invoices.vendor-id] )
+              (helpers/merge-order-by [:v.name (when-not asc :desc)]))
+
+          (= :company sort-by-key)
+          (-> q
+              (helpers/merge-left-join [:companies :c] [:= :c.id :invoices.company-id] )
+              (helpers/merge-order-by [:c.name (when-not asc :desc)]))
+
+          :else
+          q)))
+
+(defn base-graphql [{:keys [company-id]}]
+  (cond-> base-query
+    (not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
+
+(defn get-graphql [{:keys [start sort-by asc] :as args}]
+  (query
+   (cond-> (base-graphql args)
+     #_#_(not (nil? sort-by) ) (add-sort-by sort-by asc)
+     true (assoc :limit 20)
+     start (assoc :offset start))))
+
+(defn count-graphql [args]
+  (:count (first (query
+                  (assoc (base-graphql args) :select [:%count.*])))))