Names cleanup, alignment and amount formatting.

src/export-sheet.scm

@@ -38,7 +38,9 @@
 	 mbase
 	 brmember
 	 brmember-format
-	 util-bst-ldict)
+	 util-bst-ldict
+	 members-payments
+	 util-format)
 
  (define (print-attendance-sheet MB)
    (print "\\documentclass[11pt]{article}")
@@ -61,9 +63,11 @@
      (string-intersperse
       (map
        (lambda (x)
-	 "l")
+	 (if (symbol? x)
+	     "l" "r"))
        colnames)
       "|")))
+   (print "\\hline")
    (print
     (string-intersperse
      (map
@@ -83,12 +87,37 @@
      (when (not (null? mrs))
        (let* ((mr (car mrs))
 	      (info (ldict-ref mr 'info))
-	      (name (ldict-ref info 'name "ERROR")))
+	      (name (ldict-ref info 'name "ERROR"))
+	      (name* (string-translate*
+		      name
+		      '(("_" . " "))))
+	      (namel (string-split name*))
+	      (sname (car (reverse namel)))
+	      (fname
+	       (string-intersperse
+		(reverse
+		 (cdr
+		  (reverse namel)))
+		" ")))
 	 (print
 	  (brmember-id mr)
 	  " & "
-	  "name"
+	  (string-translate*
+	   (brmember-nick mr)
+	   '(("_" . "\\_")))
+	  " & "
+	  fname
+	  " & "
+	  sname
+	  " & "
+	  (format-amount
+	   (member-total-balance mr))
+	  " & "
+	  "?"
+	  " & "
+	  "~ ~ ~ ~ ~"
 	  " \\\\")
+	 (print "\\hline")
 	 (loop (cdr mrs)))))
    (print "\\end{tabular}")
    (print "\\end{center}")