Make and print reminders.

This commit is contained in:
Dominik Pantůček 2023-04-10 21:50:29 +02:00
parent 3351f62e88
commit 37522b2c44

View file

@ -36,7 +36,8 @@
environment environment
mailman mailman
texts texts
tests) tests
reminders)
;; Print banner ;; Print banner
(print "HackerBase 0.9.4 (c) 2023 Brmlab, z.s.") (print "HackerBase 0.9.4 (c) 2023 Brmlab, z.s.")
@ -307,7 +308,10 @@
(print "Everyone paid on time.") (print "Everyone paid on time.")
(let () (let ()
(print "Notify" (-notify-months-)) (print "Notify" (-notify-months-))
(print (map member-nick nmembers)))))) (let loop ((lst nmembers))
(when (not (null? lst))
(make+print-reminder-email (car lst))
(loop (cdr lst))))))))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))