brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Generate basic HTML skeleton.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-19 09:02:27 +02:00
parent 53cfd1fd88
commit cf7f79c846
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/export-web-static.scm
View file

@ -34,6 +34,7 @@
(import scheme (import scheme
(chicken base) (chicken base)
(chicken format) (chicken format)
(chicken pathname)
brmember brmember
util-dir util-dir
mbase) mbase)
@ -49,14 +50,16 @@
(print "</body>") (print "</body>")
(print "</html>")) (print "</html>"))
(define (gen-html-member mr) (define (gen-html-member mr dir)
(let ((fname (format "~A.html" (brmember-id mr)))) (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) (define (gen-html-members mb dir)
(ensure-directory dir) (ensure-directory dir)
(with-mbase-progress% (with-mbase-progress%
mb dir mr mb dir mr
(print mr))) (gen-html-member mr dir)))
) )