From 34da56150cbee6449faec22faabf6b2af3c84ed9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 19:26:54 +0200
Subject: Move stuff from main.

---
 module/vcomponent/datetime.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm
index 2270d10e..e427b088 100644
--- a/module/vcomponent/datetime.scm
+++ b/module/vcomponent/datetime.scm
@@ -56,3 +56,7 @@ Event must have the DTSTART and DTEND attribute set."
   (time-difference
    (time-min (add-day start-of-day) (attr e 'DTEND))
    (time-max start-of-day (attr e 'DTSTART))))
+
+(define-public (ev-time<? a b)
+  (time<? (attr a 'DTSTART)
+          (attr b 'DTSTART)))
-- 
cgit v1.2.3