Make and print reminders.
This commit is contained in:
parent
3351f62e88
commit
37522b2c44
1 changed files with 6 additions and 2 deletions
|
@ -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."))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue