diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:11:11 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:17:52 +0100 |
| commit | d46183860c1f3f10095e95023adcb79b1896ab0e (patch) | |
| tree | dd331a0efe9777bfe84160139da1e39df3226b71 /module/vcalendar/recur.scm | |
| parent | Add stuff to test.scm. (diff) | |
| download | calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz | |
Move C and Scheme code into subdirs.
Diffstat (limited to 'module/vcalendar/recur.scm')
| -rw-r--r-- | module/vcalendar/recur.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/module/vcalendar/recur.scm b/module/vcalendar/recur.scm new file mode 100644 index 00000000..3657cae6 --- /dev/null +++ b/module/vcalendar/recur.scm @@ -0,0 +1,12 @@ +(define-module (vcalendar recur) + #: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))) |