From 4b3ef7551556835e155943101ff8b67933fa8447 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 10 Apr 2023 22:16:19 +0200 Subject: [PATCH] Basic reminder fill-in. --- src/Makefile | 3 ++- src/reminders.scm | 9 ++++++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/src/Makefile b/src/Makefile index 280bb1d..c1bf5b6 100644 --- a/src/Makefile +++ b/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) diff --git a/src/reminders.scm b/src/reminders.scm index be24c37..20a3953 100644 --- a/src/reminders.scm +++ b/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)