From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 20:11:11 +0100 Subject: Move C and Scheme code into subdirs. --- vcalendar/recurrence/internal.scm | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 vcalendar/recurrence/internal.scm (limited to 'vcalendar/recurrence/internal.scm') 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 '(interval wkst)) interval wkst)) - -(define weekdays - '(SU MO TU WE TH FR SA)) - -(define intervals - '(SECONDLY MINUTELY HOURLY DAILY WEEKLY MONTHLY YEARLY)) -- cgit v1.2.3