aboutsummaryrefslogtreecommitdiff
path: root/module/vcalendar/recurrence.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcalendar/recurrence.scm')
-rw-r--r--module/vcalendar/recurrence.scm12
1 files changed, 12 insertions, 0 deletions
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)))