Cap events at 250

GaiwanTeam · Sep 9, 2024 · af6fe96 · af6fe96
1 parent 2eae423
commit af6fe96
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 3 deletions.
diff --git a/src/co/gaiwan/compass/db.clj b/src/co/gaiwan/compass/db.clj
@@ -1,7 +1,6 @@
 (ns co.gaiwan.compass.db
   (:require
    [clojure.walk :as walk]
-   [co.gaiwan.compass.db.migrations :as migrations]
    [co.gaiwan.compass.db.schema :as schema]
    [datomic.api :as d]
    [integrant.core :as ig]
@@ -21,7 +20,7 @@
   (let [conn (d/connect url)]
     @(transact conn (concat (schema/schema-tx)
                             wagontrain/schema))
-    (wagontrain/migrate! conn (munge-to-db migrations/all))
+    (wagontrain/migrate! conn (munge-to-db @(requiring-resolve 'co.gaiwan.compass.db.migrations/all)))
     conn))
 
 (defmethod ig/halt-key! :compass/db [_ conn])

diff --git a/src/co/gaiwan/compass/db/migrations.clj b/src/co/gaiwan/compass/db/migrations.clj
@@ -1,5 +1,7 @@
 (ns co.gaiwan.compass.db.migrations
-  (:require [co.gaiwan.compass.db.data :as data]))
+  (:require
+   [co.gaiwan.compass.db.data :as data]
+   [datomic.api :as d]))
 
 (def all
   [{:label :add-locations
@@ -28,4 +30,21 @@
      {:db/ident :location.type/hal5
       :location/name "Hal 5 - Workshop Zone"}
      {:location/name "Hal 5 - Community Space"}]}
+
+   {:label :cap-capacity-fn
+    :tx-data
+    [{:db/ident :compass.fn/cap-capacity
+      :db/fn (d/function {:lang "clojure"
+                          :params '[db cap]
+                          :code '(for [sid (datomic.api/q '[:find [?e ...]
+                                                            :in $ ?cap
+                                                            :where
+                                                            [?e :session/capacity ?c]
+                                                            [(< ?cap ?c)]]
+                                                          db cap)]
+                                   [:db/add sid :session/capacity cap])})}]}
+
+   {:label :cap-capacity-250
+    :tx-data
+    [[:compass.fn/cap-capacity 250]]}
    ])