diff options
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 8877de95..6b09bebb 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -8,7 +8,6 @@ #:use-module (vcomponent datetime) #:use-module (vcomponent build) #:use-module (util) - #:use-module (util app) #:use-module (util exceptions) #:use-module (util config) #:use-module (util tree) @@ -20,6 +19,8 @@ #:use-module (text util) #:use-module (vcomponent datetime output) + #:autoload (vcomponent instance) (get-calendars get-event-set global-event-object) + #:use-module (git) ;; #:use-module (module config all) ) @@ -817,10 +818,10 @@ (unless (file-exists? link) (symlink "../static" link)))) -(define-method (html-chunked-main count start-date chunk-length) +(define (html-chunked-main count start-date chunk-length) - (define calendars (getf 'calendars)) - (define events (getf 'event-set)) + (define calendars (get-calendars global-event-object)) + (define events (get-event-set global-event-object)) ((@ (util time) report-time!) "html start") @@ -852,10 +853,10 @@ -(define-method (html-table-main count start-date) +(define (html-table-main count start-date) - (define calendars (getf 'calendars)) - (define events (getf 'event-set)) + (define calendars (get-calendars global-event-object)) + (define events (get-event-set global-event-object)) (create-files) |