aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-04-23 18:03:49 +0200
committerHugo Hörnquist <hugo@hornquist.se>2019-04-23 18:03:49 +0200
commit8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe (patch)
tree37e49d78df0916efcb0d547e0b28b63247cfec3d /module/vcomponent/recurrence.scm
parentChange event-length => event-length/day. (diff)
downloadcalp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.gz
calp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.xz
Rename module vcalendar => vcomponent.
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)))