Basic reminder fill-in.

src/reminders.scm

@@ -33,14 +33,21 @@
 
  (import scheme
 	 (chicken base)
+	 (chicken format)
 	 member-record
 	 util-mail
-	 util-dict-list)
+	 util-dict-list
+	 members-payments)
 
  ;; 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č." (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)