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

Output email with address, nick and id.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 21:59:14 +02:00
parent f4cb441835
commit 8a89fc3ad6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/reminders.scm
View file

@ -40,15 +40,15 @@
;; Creates reminder email body
(define (reminder-email-body mr)
(list
(member-format "reminder for ~N" mr)
(member-format "reminder for ~N id ~I" mr)
))
;; Creates reminder email dictionary
(define (make-reminder-email mr)
(make-ldict
`((to (member-email mr))
(subject "Připomínka členských příspěvků / Membership fees reminder")
(body ,(reminder-email-body mr)))))
`((to . ,(member-record-info mr 'mail))
(subject . "Připomínka členských příspěvků / Membership fees reminder")
(body . ,(reminder-email-body mr)))))
;; Prints email to the console
(define (print-reminder-email em)