diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:52:28 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:52:28 +0200 |
commit | 06f77b50a90f5c1c2a8428962b31bccc54ac29af (patch) | |
tree | df80457752b61f88b14dc86172d6d121535ef049 /module/vcomponent.scm | |
parent | Slight changes to define-config. (diff) | |
download | calp-06f77b50a90f5c1c2a8428962b31bccc54ac29af.tar.gz calp-06f77b50a90f5c1c2a8428962b31bccc54ac29af.tar.xz |
Remove (vcomponent load) module.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index ab850963..e4a0141a 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -1,6 +1,7 @@ (define-module (vcomponent) :use-module (util) :use-module (util app) + :use-module (util config) :use-module (srfi srfi-1) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) @@ -8,15 +9,19 @@ :use-module (datetime util) :use-module (vcomponent base) :use-module (vcomponent parse) - :use-module (vcomponent load) :use-module ((vcomponent recurrence) :select (generate-recurrence-set repeating?)) :use-module ((vcomponent datetime) :select (ev-time<?)) :re-export (make-vcomponent - parse-cal-path parse-calendar - load-calendars load-calendars*)) + parse-cal-path parse-calendar)) (re-export-modules (vcomponent base)) +(define-config calendar-files '() "" + pre: list?) + +(define-public (load-calendars calendar-files) + (map parse-cal-path calendar-files)) + (define-method (init-app calendar-files) (setf 'calendars (load-calendars calendar-files)) |