From 3e94f022bd62f1ec334c19807ba7b716097ff0b1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 19 Apr 2023 13:41:42 +0200 Subject: [PATCH] Prepare for sending emails. --- src/hackerbase.scm | 4 +++- src/notifications.scm | 7 +++++++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index a7e1f38..b85a000 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -342,7 +342,9 @@ (print " " (car keys) ": " (length (ldict-ref status (car keys))))) (loop (cdr keys))))))) ((summary) - (make+print-summary-email MB)) + (if (-send-emails-) + (make+send-summary-email MB) + (make+print-summary-email MB))) (else (print "Nothing to do.")) diff --git a/src/notifications.scm b/src/notifications.scm index 933c5f8..5ff34b1 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -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))) + )