From cf7f79c8469ef1a3bd5df53652c56f86f3dd5a52 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 19 Jun 2023 09:02:27 +0200 Subject: [PATCH] Generate basic HTML skeleton. --- src/export-web-static.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/export-web-static.scm b/src/export-web-static.scm index 326b6c8..d11dfe7 100644 --- a/src/export-web-static.scm +++ b/src/export-web-static.scm @@ -34,6 +34,7 @@ (import scheme (chicken base) (chicken format) + (chicken pathname) brmember util-dir mbase) @@ -49,14 +50,16 @@ (print "") (print "")) - (define (gen-html-member mr) + (define (gen-html-member mr dir) (let ((fname (format "~A.html" (brmember-id mr)))) - #f)) + (with-output-to-file (make-pathname dir (format "~A.html" (brmember-nick mr))) + (lambda () + (print-html-member mr))))) (define (gen-html-members mb dir) (ensure-directory dir) (with-mbase-progress% mb dir mr - (print mr))) + (gen-html-member mr dir))) )