diff options
Diffstat (limited to 'users/grfn/bbbg/src/bbbg/db/event.clj')
-rw-r--r-- | users/grfn/bbbg/src/bbbg/db/event.clj | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/users/grfn/bbbg/src/bbbg/db/event.clj b/users/grfn/bbbg/src/bbbg/db/event.clj index 41716499db03..5e93691dfa14 100644 --- a/users/grfn/bbbg/src/bbbg/db/event.clj +++ b/users/grfn/bbbg/src/bbbg/db/event.clj @@ -4,7 +4,8 @@ [bbbg.db :as db] [bbbg.event :as event] [bbbg.util.sql :refer [count-where]] - [honeysql.helpers :refer [merge-group-by merge-left-join merge-select]] + [honeysql.helpers + :refer [merge-group-by merge-left-join merge-select merge-where]] [java-time :refer [local-date]])) (defn create! [db event] @@ -32,6 +33,16 @@ ([] (on-day (local-date))) ([db] (db/list db (today)))) +(defn upcoming + ([] (upcoming {:select [:event.*] :from [:event]})) + ([query] + (merge-where query [:>= :date (local-date)]))) + +(defn past + ([] (past {:select [:event.*] :from [:event]})) + ([query] + (merge-where query [:< :date (local-date)]))) + (defn with-attendee-counts [query] (-> query |