diff options
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent.scm | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index 7618084c..0f000ba5 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -1,26 +1,17 @@ (define-module (vcomponent) :use-module (hnh util) - :use-module (calp util config) :use-module (vcomponent base) + :use-module (vcomponent config) ;; :use-module ((vcomponent util instance methods) ;; :select (make-vcomponent)) :use-module ((vcomponent util parse-cal-path) :select (parse-cal-path)) - :re-export (make-vcomponent parse-cal-path)) + :re-export (make-vcomponent + parse-cal-path + ;; configuration items + calendar-files default-calendar)) (define cm (module-public-interface (current-module))) (module-use! cm (resolve-interface '(vcomponent base))) (module-use! cm (resolve-interface '(vcomponent util instance methods))) - -(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?)) - |