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 "Date | Type | Comment | Amount | Currency | Amount [CZK] | Balance | " (list-ref hr 3) " | " - (list-ref hr 5) + (exact->inexact (list-ref hr 5)) " | " (exact->inexact (car hr)) " | " @@ -109,15 +124,15 @@ (print "") (print "
---|
") (print (sanitize-html (string-intersperse (brmember-source mr) "\n"))) (print "") - (print "
") (for-each (lambda (l) (print (sanitize-html l))) @@ -127,6 +142,7 @@ (print "") (print "