brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Basic reminder fill-in.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 22:16:19 +02:00
parent cfd0e379a1
commit 4b3ef75515
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -316,7 +316,8 @@ util-mail.o: util-mail.import.scm
util-mail.import.scm: $(UTIL-MAIL-SOURCES) util-mail.import.scm: $(UTIL-MAIL-SOURCES)
REMINDERS-SOURCES=reminders.scm member-record.import.scm \ 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.o: reminders.import.scm
reminders.import.scm: $(REMINDERS-SOURCES) reminders.import.scm: $(REMINDERS-SOURCES)

9
src/reminders.scm
View file

@ -33,14 +33,21 @@
(import scheme (import scheme
(chicken base) (chicken base)
(chicken format)
member-record member-record
util-mail util-mail
util-dict-list) util-dict-list
members-payments)
;; Creates reminder email body ;; Creates reminder email body
(define (reminder-email-body mr) (define (reminder-email-body mr)
(list (list
(member-format "Ahoj ~N," mr) (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) (member-format "Hi ~N," mr)