Prepare summary email action.

src/hackerbase.scm

@@ -159,6 +159,8 @@
 	   (-action- 'notify))
  (-status () "Show members directory status"
 	  (-action- 'status))
+ (-summary () "Send summary email"
+	   (-action- 'summary))
  )
 
 ;; Print banner
@@ -338,6 +340,8 @@
 	     (when (ldict-contains? status (car keys))
 	       (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
 	     (loop (cdr keys)))))))
+  ((summary)
+   (make+print-summary-email MB))
   (else
    (print "Nothing to do."))
   

src/notifications.scm

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