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

Generate head.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -470,7 +470,7 @@ UTIL-LIST-SOURCES=util-list.scm testing.import.scm
util-list.o: util-list.import.scm util-list.o: util-list.import.scm
util-list.import.scm: $(UTIL-LIST-SOURCES) util-list.import.scm: $(UTIL-LIST-SOURCES)
EXPORT-WEB-STATIC-SOURCES=export-web-static.scm EXPORT-WEB-STATIC-SOURCES=export-web-static.scm brmember.import.scm
export-web-static.o: export-web-static.import.scm export-web-static.o: export-web-static.import.scm
export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES) export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES)

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

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