From c64d40a415aafb8c48286a10ed3502be802c7888 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 6 Apr 2019 19:06:33 +0200
Subject: Add ev-time<?.

---
 module/vcalendar/datetime.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/vcalendar/datetime.scm b/module/vcalendar/datetime.scm
index d28096c6..f6df03d5 100644
--- a/module/vcalendar/datetime.scm
+++ b/module/vcalendar/datetime.scm
@@ -33,3 +33,6 @@ Event must have the DTSTART and DTEND attribute set."
          (end (add-day start)))
     (event-overlaps? ev start end)))
 
+(define-public (ev-time<? a b)
+  (time<? (attr a 'DTSTART)
+          (attr b 'DTSTART)))
-- 
cgit v1.2.3