fix: respect session duration in include-past filter

GaiwanTeam · Sep 19, 2024 · e7bfb81 · e7bfb81
1 parent 1ebc448
commit e7bfb81
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/co/gaiwan/compass/model/session.clj b/src/co/gaiwan/compass/model/session.clj
@@ -5,7 +5,8 @@
   (:require
    [co.gaiwan.compass.model.assets :as assets]
    [clojure.string :as str]
-   [java-time.api :as time]))
+   [java-time.api :as time]
+   [co.gaiwan.compass.db :as db]))
 
 (defn participating?
   "If user participates this session"
@@ -96,7 +97,11 @@
     (if v
       sessions
       (remove
-       #(time/before? (:session/time %) now)
+       #(time/before?
+         (time/+
+          (:session/time %)
+          (time/duration (:session/duration %)))
+         now)
        sessions))))
 
 (defmethod apply-filter :spots-available [sessions user k v]