Generate head.

This commit is contained in:
Dominik Pantůček 2023-06-18 22:10:10 +02:00
parent 678d18a87b
commit 7c4c55eb9e
2 changed files with 9 additions and 2 deletions

View file

@ -31,10 +31,17 @@
gen-html-members
)
(import scheme)
(import scheme
(chicken base)
brmember)
(define (print-html-member mr)
(print "<html>")
(print "<head>")
(print "<title>Brmlab member "
(brmember-nick mr)
"</title>")
(print "</head>")
(print "</html>"))
(define (gen-html-member mr)