aboutsummaryrefslogtreecommitdiff
path: root/vcalendar/recurrence/internal.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:11:11 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:17:52 +0100
commitd46183860c1f3f10095e95023adcb79b1896ab0e (patch)
treedd331a0efe9777bfe84160139da1e39df3226b71 /vcalendar/recurrence/internal.scm
parentAdd stuff to test.scm. (diff)
downloadcalp-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.scm28
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))