Generate head.
This commit is contained in:
parent
678d18a87b
commit
7c4c55eb9e
2 changed files with 9 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue