diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 13:09:19 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 13:09:19 +0200 |
| commit | 060f31bab987ca20df5977f9351ee87dc44e423b (patch) | |
| tree | 41404c9434c14c853cb100467324f392f99239f8 /module/vcomponent.scm | |
| parent | Add assq-limit. (diff) | |
| download | calp-060f31bab987ca20df5977f9351ee87dc44e423b.tar.gz calp-060f31bab987ca20df5977f9351ee87dc44e423b.tar.xz | |
Modify config to store return of #:pre.
Diffstat (limited to 'module/vcomponent.scm')
| -rw-r--r-- | module/vcomponent.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index e4a0141a..61168e70 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -16,8 +16,12 @@ (re-export-modules (vcomponent base)) -(define-config calendar-files '() "" - pre: list?) +(define-config calendar-files '() + "Which files to parse. Takes a list of paths or a single string which will be globbed." + pre: (lambda (v) + (cond [(list? v) v] + [(string? v) ((@ (glob) glob) v)] + [else #f]))) (define-public (load-calendars calendar-files) (map parse-cal-path calendar-files)) |