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

4
src/hackerbase.scm
View file

@ -342,7 +342,9 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys))))) (print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys))))))) (loop (cdr keys)))))))
((summary) ((summary)
(make+print-summary-email MB)) (if (-send-emails-)
(make+send-summary-email MB)
(make+print-summary-email MB)))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))

7
src/notifications.scm
View file

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