From ea111ad961d1a90e0008575bd9713992db553506 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Aug 2020 00:32:45 +0200 Subject: Html-generate now returns sxml. --- module/output/html.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'module/output/html.scm') 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)) )) -- cgit v1.2.3