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

Split out sending and printing of email data structure.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-17 20:24:33 +02:00
parent 852f1eac5a
commit 264925b319
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/notifications.scm
View file

@ -79,7 +79,7 @@
(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-notification-email em)
(print "### From: " (ldict-ref em 'from "-")) (print "### From: " (ldict-ref em 'from "-"))
(print "### To: " (ldict-ref em 'to)) (print "### To: " (ldict-ref em 'to))
(print "### Subject: " (ldict-ref em 'subject)) (print "### Subject: " (ldict-ref em 'subject))
@ -88,18 +88,22 @@
(print (car lines)) (print (car lines))
(loop (cdr lines))))) (loop (cdr lines)))))
;; Sends notification email - the dictionary representation
(define (send-notification-email em)
(print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to))
(send-mail (ldict-ref em 'body)
#:from (*email-from*)
#:to (ldict-ref em 'to)
#:subject (ldict-ref em 'subject)))
;; Creates and prints reminder email for given member record ;; Creates and prints reminder email for given member record
(define (make+print-reminder-email mr) (define (make+print-reminder-email mr)
(print-reminder-email (print-notification-email
(make-reminder-email mr))) (make-reminder-email mr)))
;; Actually send emails ;; Actually send emails
(define (make+send-reminder-email mr) (define (make+send-reminder-email mr)
(let ((em (make-reminder-email mr))) (let ((em (make-reminder-email mr)))
(print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to)) (send-notification-email em)))
(send-mail (ldict-ref em 'body)
#:from (*email-from*)
#:to "joe@joe.cz"
#:subject (ldict-ref em 'subject))))
) )