Nicely formatted email body.

src/reminders.scm

@@ -42,20 +42,31 @@
 
  ;; Creates reminder email body
  (define (reminder-email-body mr)
-   (list
-    (member-format "Ahoj ~N," mr)
-    "podle evidence členů a bankovního účtu to vypadá, že máš nedoplatek"
-    (format "ve výši ~A Kč." (format-amount (member-total-balance mr)))
-    "Zkontroluj, prosím, zda tvé platby členských příspěvků"
-    (member-format "s variabilním symbolem ~I byly zaslány na" mr)
-    "správný účet 1234/2010"
-    ""
-    ""
-    (member-format "Hi ~N," mr)
-    ""
-    "--"
-    "Brmlab Hackerspace Members Database"
-    ))
+   (let ((C identity)
+	 (M (lambda (s)
+	      (member-format s mr)))
+	 (F format)
+	 (absdebt (format-amount (- (member-total-balance mr))))
+	 (macc "2500079551/2010"))
+     (list
+      (M "Ahoj ~N,")
+      (C "podle evidence členů a bankovního účtu to vypadá, že máš nedoplatek")
+      (F "ve výši ~A Kč." absdebt)
+      (C "Zkontroluj, prosím, zda tvé platby členských příspěvků")
+      (M "s variabilním symbolem ~I byly zaslány na")
+      (F "správný účet ~A." macc)
+      ""
+      ""
+      (M "Dear ~N,")
+      (C "according to the members database and bank account statements, it appears")
+      (F "your payment of ~A CZK is missing." absdebt)
+      (C "Please, check whether your membership fees were transfered")
+      (M "correctly with the variable symbol (identification) ~I to")
+      (F "the correct bank account ~A." macc)
+      ""
+      "--"
+      "Brmlab Hackerspace Members Database"
+      )))
 
  ;; Creates reminder email dictionary
  (define (make-reminder-email mr)