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

Add some reminder content.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 21:53:13 +02:00
parent 37522b2c44
commit f4cb441835
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/reminders.scm
View file

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