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

Prepare for sending emails.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-19 13:41:42 +02:00
parent 1eb93de083
commit 3e94f022bd
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/notifications.scm
View file

@ -32,6 +32,7 @@
make+send-reminder-email
make+print-summary-email
make+send-summary-email
)
(import scheme
@ -174,8 +175,14 @@
(today/iso)))
(body . ,(summary-email-body mb)))))
;; Just print to standard output
(define (make+print-summary-email mb)
(let ((em (make-summary-email mb)))
(print-notification-email em)))
;; Actually send emails
(define (make+send-summary-email mr)
(let ((em (make-summary-email mr)))
(send-notification-email em)))
)