reminders have been graphqld

src/clj/auto_ap/db/reminders.clj

@@ -1,17 +1,22 @@
 (ns auto-ap.db.reminders
-  (:require [auto-ap.db.utils :refer [clj->db db->clj get-conn]]
+  (:require [auto-ap.db.utils :refer [clj->db db->clj get-conn query]]
             [clj-time.core :as time]
             [amazonica.aws.simpleemail :as ses]
             [clojure.java.jdbc :as j]
             [config.core :refer [env]]
             [clj-time.jdbc :as jdbc]
-            [clojure.string :as str]))
+            [clojure.string :as str]
+            [honeysql.core :as sql]
+            [honeysql.helpers :as helpers]))
 
 (defn insert [row]
   (db->clj (first (j/insert! (get-conn)
                              :reminders
                              (clj->db row)))))
 
+(def base-query (sql/build :select :reminders.*
+                           :from :reminders))
+
 (defn get-all []
   (map db->clj (j/query (get-conn)
                         (str
@@ -43,6 +48,36 @@
 (defn finish [id]
   (j/update! (get-conn) :reminders {:sent (time/now)} ["id = ?" id] ))
 
+(def all-keys #{:id :vendor-id :email :body :subject :sent :scheduled})
+
+(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 :reminders.vendor-id] )
+              (helpers/merge-order-by [:v.name (when-not asc :desc)]))
+
+          :else
+          q)))
+
+
+(defn base-graphql [{:keys [imported company-id]}]
+  base-query)
+
+(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.*])))))
+
 (defn template []
   {:subject "Reminder to send invoices"
    :body (str "This is a reminder to please reply with a [format of invoice: pdf/excel]"