diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:03:49 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:03:49 +0200 |
commit | 8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe (patch) | |
tree | 37e49d78df0916efcb0d547e0b28b63247cfec3d /module/vcomponent/recurrence.scm | |
parent | Change event-length => event-length/day. (diff) | |
download | calp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.gz calp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.xz |
Rename module vcalendar => vcomponent.
Diffstat (limited to 'module/vcomponent/recurrence.scm')
-rw-r--r-- | module/vcomponent/recurrence.scm | 12 |
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))) |