From 13da2dcc564a81d1e4e965d3bc832da28daab4a8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 17:20:40 +0200
Subject: Move event-length.

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

(limited to 'module/vcalendar')

diff --git a/module/vcalendar/datetime.scm b/module/vcalendar/datetime.scm
index d9813372..2715b5db 100644
--- a/module/vcalendar/datetime.scm
+++ b/module/vcalendar/datetime.scm
@@ -43,3 +43,9 @@ Event must have the DTSTART and DTEND attribute set."
 (define (ev-time<? a b)
   (time<? (attr a 'DTSTART)
           (attr b 'DTSTART)))
+
+;; Returns length of the event @var{e}, as a time-duration object.
+(define-public (event-length e)
+  (time-difference
+   (attr e 'DTEND)
+   (attr e 'DTSTART)))
-- 
cgit v1.2.3