aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/recurrence.scm')
-rw-r--r--module/vcomponent/recurrence.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/module/vcomponent/recurrence.scm b/module/vcomponent/recurrence.scm
new file mode 100644
index 00000000..d1113477
--- /dev/null
+++ b/module/vcomponent/recurrence.scm
@@ -0,0 +1,12 @@
+(define-module (vcomponent recurrence)
+ #:use-module (vcomponent)
+ #:use-module (vcomponent 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)))