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

Prepare summary email action.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-17 21:30:13 +02:00
parent 863afdc5b4
commit c5955679db
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/hackerbase.scm
View file

@ -159,6 +159,8 @@
(-action- 'notify)) (-action- 'notify))
(-status () "Show members directory status" (-status () "Show members directory status"
(-action- 'status)) (-action- 'status))
(-summary () "Send summary email"
(-action- 'summary))
) )
;; Print banner ;; Print banner
@ -338,6 +340,8 @@
(when (ldict-contains? status (car keys)) (when (ldict-contains? status (car keys))
(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)
(make+print-summary-email MB))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))

6
src/notifications.scm
View file

@ -30,6 +30,8 @@
( (
make+print-reminder-email make+print-reminder-email
make+send-reminder-email make+send-reminder-email
make+print-summary-email
) )
(import scheme (import scheme
@ -118,4 +120,8 @@
(subject . "xxx") (subject . "xxx")
(body . ,(summary-email-body mb))))) (body . ,(summary-email-body mb)))))
(define (make+print-summary-email mb)
(let ((em (make-summary-email mb)))
(print-notification-email em)))
) )