blob: b2598207a56b6ee846cc444fc297afad6460b1ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (vcomponent config)
:use-module (hnh util)
:use-module (calp translation)
:use-module (calp util config))
(define-config calendar-files '()
description: (_ "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-config default-calendar ""
description: (_ "Default calendar to use for operations. Set to empty string to unset")
pre: (ensure string?))
|