diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-14 00:32:45 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-14 00:32:45 +0200 |
commit | ea111ad961d1a90e0008575bd9713992db553506 (patch) | |
tree | 9a906b67b63461e3ca73ca81777a907436cae86e /module/output/html.scm | |
parent | Simplify (output html). (diff) | |
download | calp-ea111ad961d1a90e0008575bd9713992db553506.tar.gz calp-ea111ad961d1a90e0008575bd9713992db553506.tar.xz |
Html-generate now returns sxml.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index d3a5b8be..f3ed6dc8 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -21,6 +21,8 @@ #:use-module ((vcomponent instance methods) :select (get-calendars get-event-set)) + #:use-module ((sxml simple) :select (sxml->xml)) + #:autoload (vcomponent instance) (global-event-object) ) @@ -56,7 +58,7 @@ (lambda (start-date) (define fname (get-filename start-date)) (format (current-error-port) "Writing to [~a]~%" fname) - (with-output-to-file fname (lambda () (proc calendars events)) )) + (with-output-to-file fname (lambda () (sxml->xml (proc calendars events))) )) (stream-take count (date-stream chunk-length start-date)) )) |