Fixed recurrence code.

1 files changed, 28 insertions, 0 deletions

diff --git a/vcalendar/recurrence/internal.scm b/vcalendar/recurrence/internal.scm
new file mode 100644
index 00000000..b62d75c2
--- /dev/null
+++ b/vcalendar/recurrence/internal.scm
@@ -0,0 +1,28 @@
+(define-module (vcalendar recurrence internal)
+  #:use-module (util)
+  #:use-module (srfi srfi-88)
+  #:export (make-recur-rule
+            weekdays intervals))
+
+;; (list
+;;  (build-recur-rules "FREQ=HOURLY")
+;;  (build-recur-rules "FREQ=HOURLY;COUNT=3")
+;;  (build-recur-rules "FREQ=ERR;COUNT=3")
+;;  (build-recur-rules "FREQ=HOURLY;COUNT=err")
+;;  (build-recur-rules "FREQ=HOURLY;COUNT=-1"))
+
+;; Immutable, since I easily want to be able to generate the recurence set for
+;; the same event multiple times.
+(define-quick-record recur-rule
+  (public: freq until count interval bysecond byminute byhour
+           byday bymonthday byyearday byweekno bymonth bysetpos
+           wkst))
+
+(define (make-recur-rule interval wkst)
+  ((record-constructor <recur-rule> '(interval wkst)) interval wkst))
+
+(define weekdays
+  '(SU MO TU WE TH FR SA))
+
+(define intervals
+  '(SECONDLY MINUTELY HOURLY DAILY WEEKLY MONTHLY YEARLY))