From 03278985b4f4259a816c50b0af40d6495b67930f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 19:26:58 +0200
Subject: [PATCH] List all active emails.

---
 src/members-base.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/members-base.scm b/src/members-base.scm
index 90c4a2f..14cc71f 100644
--- a/src/members-base.scm
+++ b/src/members-base.scm
@@ -43,12 +43,14 @@
   members-base-update
   members-base-add-unpaired
   members-base-unpaired
+  members-base-active-emails
   )
 
  (import scheme
 	 (chicken base)
 	 (chicken string)
 	 (chicken random)
+	 (chicken sort)
 	 testing
 	 utils
 	 dictionary
@@ -228,4 +230,16 @@
  (define (members-base-unpaired mb)
    (dict-ref mb 'unpaired '()))
 
+ ;; Returns the list of emails of all active members sorted
+ ;; alphabetically
+ (define (members-base-active-emails mb)
+   (sort
+    (filter
+     string?
+     (map
+      (lambda (mr)
+	(member-record-info mr 'mail))
+      (members-base-members mb)))
+    string-ci<?))
+
  )