diff --git a/src/export-web-static.scm b/src/export-web-static.scm index a46b067..ab3501a 100644 --- a/src/export-web-static.scm +++ b/src/export-web-static.scm @@ -58,33 +58,48 @@ (print "") (print "") (print "") - (print "Brmlab member " + (print "<title>Brmlab Member: " (brmember-nick mr) "") (print "") (print "") (print "") - (print "

Brmlab member " (brmember-nick mr) "

") + (print "

Brmlab Member: " (brmember-nick mr) "

") (print "
") (print "
") + (print "
") + ;;(print "

Basic Information

") (print "
") - (print "
Nick:
" (brmember-nick mr) "
") - (print "
Id:
" (brmember-id mr) "
") - (print "
Balance:
" (caar (reverse bhs)) "
") + (print "
Nickname/Username
(Přezdívka/Uživatelské jméno)
" + (brmember-nick mr) "
") + (print "
Member ID, Variable Symbol for Payments
(Členské číslo, variabilní symbol plateb)
" + (brmember-id mr) "
") + (print "
Balance in CZK
(Zůstatek v Kč)
" (caar (reverse bhs)) "
") + (print "
Account for Payments
(Účet pro platbu příspěvků)
2500079551/2010
") (print "
") - (print "
") - (print "

Payments history

") + (print "
") + (print "
") + (print "

Payments History

") (print "") (print "") (print "") @@ -100,7 +115,7 @@ "" @@ -109,15 +124,15 @@ (print "") (print "
DateTypeCommentAmountCurrencyAmount [CZK]Balance
" (list-ref hr 3) "" - (list-ref hr 5) + (exact->inexact (list-ref hr 5)) "" (exact->inexact (car hr)) "
") (print "
") + (print "
") (print "
") - (print "
") + (print "
") (print "

Member file

") (print "
")
      (print (sanitize-html
 	     (string-intersperse (brmember-source mr) "\n")))
      (print "
") - (print "
") - (print "

Member File Git Log

") + (print "

Changes History

") (print "
")
      (for-each (lambda (l)
 		 (print (sanitize-html l)))
@@ -127,6 +142,7 @@
      (print "
") (print "
") (print "
") + (print "
") (print "") (print "") (print "")))