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
mailman
texts
tests)
tests
reminders)
;; Print banner
(print "HackerBase 0.9.4 (c) 2023 Brmlab, z.s.")
@ -307,7 +308,10 @@
(print "Everyone paid on time.")
(let ()
(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
(print "Nothing to do."))