diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:25:56 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:25:56 +0200 |
commit | 5188fb2251e02b32fd017dc7ba8cd6d0ce892c75 (patch) | |
tree | c79ed2f7b1734ebccc53fa4daee9ed1a5a2862c4 /module/output/html.scm | |
parent | Repair vcomponent describe. (diff) | |
download | calp-5188fb2251e02b32fd017dc7ba8cd6d0ce892c75.tar.gz calp-5188fb2251e02b32fd017dc7ba8cd6d0ce892c75.tar.xz |
Remove (util app).
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) |