can edit.

This commit is contained in:
Bryce Covert
2018-04-14 09:46:36 -07:00
parent b6b7b1932a
commit 5ab67c5887
3 changed files with 139 additions and 27 deletions

View File

@@ -1,5 +1,5 @@
(ns auto-ap.db.reminders
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn query]]
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn query execute!]]
[clj-time.core :as time]
[amazonica.aws.simpleemail :as ses]
[clojure.java.jdbc :as j]
@@ -9,6 +9,8 @@
[honeysql.core :as sql]
[honeysql.helpers :as helpers]))
(def all-keys #{:id :vendor-id :email :body :subject :sent :scheduled})
(defn insert [row]
(db->clj (first (j/insert! (get-conn)
:reminders
@@ -17,12 +19,19 @@
(def base-query (sql/build :select :reminders.*
:from :reminders))
(defn get-all []
(map db->clj (j/query (get-conn)
(str
" SELECT reminders.*, vendors.name as vendor_name "
" FROM reminders INNER join vendors on reminders.vendor_id = vendors.id "
" ORDER BY sent DESC, scheduled DESC"))))
(defn get-by-id [id]
(query (-> base-query
(helpers/merge-where [:= :id id]))))
(defn update! [id data]
(println data)
(-> (sql/build
:update :reminders
:set (select-keys data all-keys )
:where [:= :id id])
execute!)
(get-by-id id))
(defn delete-all []
(j/delete! (get-conn) :reminders []))
@@ -48,7 +57,7 @@
(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)]