diff --git a/src/Makefile b/src/Makefile
index 9380a2f..2f88ed3 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -473,7 +473,7 @@ util-list.import.scm: $(UTIL-LIST-SOURCES)
 EXPORT-WEB-STATIC-SOURCES=export-web-static.scm brmember.import.scm	\
 	util-dir.import.scm mbase.import.scm				\
 	members-payments.import.scm cal-day.import.scm			\
-	util-git.import.scm configuration.import.scm
+	util-git.import.scm configuration.import.scm texts.import.scm
 
 export-web-static.o: export-web-static.import.scm
 export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES)
diff --git a/src/export-web-static.scm b/src/export-web-static.scm
index 5dc66cd..a46b067 100644
--- a/src/export-web-static.scm
+++ b/src/export-web-static.scm
@@ -42,7 +42,8 @@
 	 members-payments
 	 cal-day
 	 util-git
-	 configuration)
+	 configuration
+	 texts)
 
  ;; HTML entities
  (define (sanitize-html str)
@@ -52,66 +53,83 @@
 
  ;; Prints the HTML summary for given member to current-output-port
  (define (print-html-member mr)
-   (print "<html>")
-   (print "<head>")
-   (print "<title>Brmlab member "
-	  (brmember-nick mr)
-	  "</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 "<body>")
-   (print "<h1>Brmlab member " (brmember-nick mr) "</h1>")
-   (print "<hr>")
-   (print "<dl>")
-   (print "<dt>Nick:</dt><dd>" (brmember-nick mr) "</dd>")
-   (print "<dt>Id:</dt><dd>" (brmember-id mr) "</dd>")
-   (print "</dl>")
-   (print "<hr>")
-   (print "<h2>Member file</h2>")
-   (print "<pre>")
-   (print (sanitize-html
-	   (string-intersperse (brmember-source mr) "\n")))
-   (print "</pre>")
-   (print "<hr>")
-   (print "<h2>Payments history</h2>")
-   (print "<table>")
-   (print "<thead><tr><th>Date</th><th>Type</th><th>Comment</th><th>Amount</th><th>Currency</th><th>Amount [CZK]</th><th>Balance</th></tr></thead>")
-   (print "<tbody>")
-   (for-each (lambda (hr)
-	       (print "<tr><td>"
-		      (cal-day->string (cadr hr))
-		      "</td><td>"
-		      (list-ref hr 6)
-		      "</td><td>"
-		      (list-ref hr 4)
-		      "</td><td class=\"r\">"
-		      (exact->inexact (list-ref hr 2))
-		      "</td><td>"
-		      (list-ref hr 3)
-		      "</td><td class=\"r\">"
-		      (list-ref hr 5)
-		      "</td><td class=\"r\">"
-		      (exact->inexact (car hr))
-		      "</td></tr>"
-	       ))
-	     (brmember-balance-history mr))
-   (print "</tbody>")
-   (print "</table>")
-   (print "<hr>")
-   (print "<h2>Member File Git Log</h2>")
-   (print "<pre>")
-   (for-each (lambda (l)
-	       (print (sanitize-html l)))
-	     ((git (*members-directory*) #:output)
-	      'log '-p '-- 
-	      (brmember-file-name mr)))
-   (print "</pre>")
-   (print "</body>")
-   (print "</html>"))
+   (let ((bhs (brmember-balance-history mr)))
+     (print "<!DOCTYPE html>")
+     (print "<html>")
+     (print "<head>")
+     (print "<meta charset=\"utf-8\">")
+     (print "<title>Brmlab member "
+	    (brmember-nick mr)
+	    "</title>")
+     (print "<style>")
+     (print "body{padding:0px;margin:0px}")
+     (print "h1{padding:0px;margin:0px;text-indent:10px}")
+     (print "h1:after{display:block;border-top:1px solid #8cacbb;border-bottom:1px solid #8cacbb;padding:10px;content:\"\";background:#dee7ec;height:10px;padding:0px}")
+     (print "table{border-collapse:collapse;border:1px solid grey}")
+     (print "td,th{border:1px solid grey}")
+     (print ".r{text-align:right}")
+     (print ".gc{display:grid}")
+     (print ".gl{grid-column:1}")
+     (print ".gr{grid-column:2}")
+     (print "footer{background:#dee7ec;border-top:1px solid #8cacbb;padding:10px}")
+     (print "</style>")
+     (print "</head>")
+     (print "<body>")
+     (print "<h1>Brmlab member " (brmember-nick mr) "</h1>")
+     (print "<div class=\"gc\">")
+     (print "<div class=\"gl\">")
+     (print "<dl>")
+     (print "<dt>Nick:</dt><dd>" (brmember-nick mr) "</dd>")
+     (print "<dt>Id:</dt><dd>" (brmember-id mr) "</dd>")
+     (print "<dt>Balance:</dt><dd>" (caar (reverse bhs)) "</dd>")
+     (print "</dl>")
+     (print "<hr>")
+     (print "<h2>Payments history</h2>")
+     (print "<table>")
+     (print "<thead><tr><th>Date</th><th>Type</th><th>Comment</th><th>Amount</th><th>Currency</th><th>Amount [CZK]</th><th>Balance</th></tr></thead>")
+     (print "<tbody>")
+     (for-each (lambda (hr)
+		 (print "<tr><td>"
+			(cal-day->string (cadr hr))
+			"</td><td>"
+			(list-ref hr 6)
+			"</td><td>"
+			(list-ref hr 4)
+			"</td><td class=\"r\">"
+			(exact->inexact (list-ref hr 2))
+			"</td><td>"
+			(list-ref hr 3)
+			"</td><td class=\"r\">"
+			(list-ref hr 5)
+			"</td><td class=\"r\">"
+			(exact->inexact (car hr))
+			"</td></tr>"
+			))
+	       bhs)
+     (print "</tbody>")
+     (print "</table>")
+     (print "</div>")
+     (print "<div class=\"gr\">")
+     (print "<hr>")
+     (print "<h2>Member file</h2>")
+     (print "<pre>")
+     (print (sanitize-html
+	     (string-intersperse (brmember-source mr) "\n")))
+     (print "</pre>")
+     (print "<hr>")
+     (print "<h2>Member File Git Log</h2>")
+     (print "<pre>")
+     (for-each (lambda (l)
+		 (print (sanitize-html l)))
+	       ((git (*members-directory*) #:output)
+		'log '-p '-- 
+		(brmember-file-name mr)))
+     (print "</pre>")
+     (print "</div>")
+     (print "</div>")
+     (print "<footer>Generated by " banner-line "</footer>")
+     (print "</body>")
+     (print "</html>")))
 
  ;; Generates a single member in given directory
  (define (gen-html-member mr dir)
