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 /vcalendar/recurrence/internal.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 'vcalendar/recurrence/internal.scm')
-rw-r--r-- | vcalendar/recurrence/internal.scm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/vcalendar/recurrence/internal.scm b/vcalendar/recurrence/internal.scm deleted file mode 100644 index b62d75c2..00000000 --- a/vcalendar/recurrence/internal.scm +++ /dev/null @@ -1,28 +0,0 @@ -(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)) |