Basic reminder fill-in.

src/Makefile

@@ -316,7 +316,8 @@ util-mail.o: util-mail.import.scm
 util-mail.import.scm: $(UTIL-MAIL-SOURCES)
 
 REMINDERS-SOURCES=reminders.scm member-record.import.scm	\
-	util-mail.import.scm util-dict-list.import.scm
+	util-mail.import.scm util-dict-list.import.scm		\
+	members-payments.import.scm
 
 reminders.o: reminders.import.scm
 reminders.import.scm: $(REMINDERS-SOURCES)

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)