From 13581f9fb87937793daf4b2a5b5b87a550db27e1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 20 Apr 2019 22:48:39 +0200
Subject: Rename (vcalendar {recur => recurrence}).

---
 module/vcalendar/recurrence.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 module/vcalendar/recurrence.scm

(limited to 'module/vcalendar/recurrence.scm')

diff --git a/module/vcalendar/recurrence.scm b/module/vcalendar/recurrence.scm
new file mode 100644
index 00000000..ae08feb6
--- /dev/null
+++ b/module/vcalendar/recurrence.scm
@@ -0,0 +1,12 @@
+(define-module (vcalendar recurrence)
+  #:use-module (vcalendar)
+  #:use-module (vcalendar recurrence generate)
+  #:re-export (generate-recurrence-set)
+  #:export (repeating?))
+
+;; EXDATE is also a property linked to recurense rules
+;; but that property alone don't create a recuring event.
+(define (repeating? ev)
+  "Does this event repeat?"
+  (or (attr ev 'RRULE)
+      (attr ev 'RDATE)))
-- 
cgit v1.2.3