aboutsummaryrefslogtreecommitdiff
path: root/module/vcalendar/recurrence.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-04-20 22:48:39 +0200
committerHugo Hörnquist <hugo@hornquist.se>2019-04-20 22:48:39 +0200
commit13581f9fb87937793daf4b2a5b5b87a550db27e1 (patch)
tree30d27f6afe3fd0d7871910960cd97c0380157162 /module/vcalendar/recurrence.scm
parentAdd timezone handling. (diff)
downloadcalp-13581f9fb87937793daf4b2a5b5b87a550db27e1.tar.gz
calp-13581f9fb87937793daf4b2a5b5b87a550db27e1.tar.xz
Rename (vcalendar {recur => recurrence}).
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)))