From 88e14917882b0c3f79e942b61027882fe9a7fe87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 24 May 2020 22:31:08 +0200
Subject: Handle events with no DTEND.

---
 module/vcomponent/group.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/group.scm')

diff --git a/module/vcomponent/group.scm b/module/vcomponent/group.scm
index 1e5728c6..72acbce9 100644
--- a/module/vcomponent/group.scm
+++ b/module/vcomponent/group.scm
@@ -26,7 +26,11 @@
                  ;; of tommorow, and finishes with the rest when it finds the first
                  ;; object which begins tomorow (after midnight, exclusize).
                  (filter-sorted-stream*
-                  (lambda (e) (date/-time<? tomorow (attr e 'DTEND)))
+                  (lambda (e) (date/-time<? tomorow
+                                       (or (attr e 'DTEND)
+                                           (if (date? (attr e 'DTSTART))
+                                               (date+ (attr e 'DTSTART) (date day: 1))
+                                               (attr e 'DTSTART)))))
                   (lambda (e) (date/-time<=? tomorow (attr e 'DTSTART)))
                   stream)))
 
-- 
cgit v1.2.3