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

Finish preliminary HTML export.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-19 14:28:01 +02:00
parent 1b5eb4f3fc
commit d77beadf91
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -57,6 +57,11 @@
(print "<title>Brmlab member " (print "<title>Brmlab member "
(brmember-nick mr) (brmember-nick mr)
"</title>") "</title>")
(print "<style>")
(print "table{border-collapse:collapse;border:1px solid grey}")
(print "td,th{border:1px solid grey}")
(print ".r{text-align:right}")
(print "</style>")
(print "</head>") (print "</head>")
(print "<body>") (print "<body>")
(print "<h1>Brmlab member " (brmember-nick mr) "</h1>") (print "<h1>Brmlab member " (brmember-nick mr) "</h1>")
@ -83,13 +88,13 @@
(list-ref hr 6) (list-ref hr 6)
"</td><td>" "</td><td>"
(list-ref hr 4) (list-ref hr 4)
"</td><td>" "</td><td class=\"r\">"
(exact->inexact (list-ref hr 2)) (exact->inexact (list-ref hr 2))
"</td><td>" "</td><td>"
(list-ref hr 3) (list-ref hr 3)
"</td><td>" "</td><td class=\"r\">"
(list-ref hr 5) (list-ref hr 5)
"</td><td>" "</td><td class=\"r\">"
(exact->inexact (car hr)) (exact->inexact (car hr))
"</td></tr>" "</td></tr>"
)) ))