From 3be39d55c492c6e92cd0b7906fe762bd9cd61d89 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 18:41:31 +0200
Subject: [PATCH] Add sort of list members.

---
 src/mailman.scm | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/src/mailman.scm b/src/mailman.scm
index 6a47da8..2911b56 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -39,6 +39,7 @@
 	 (chicken base)
 	 (chicken pathname)
 	 (chicken string)
+	 (chicken sort)
 	 utils)
 
  ;; Where does the mailman binaries reside
@@ -62,7 +63,9 @@
 
  ;; Returns the list of members of given list
  (define (list-mailman-list-members lst)
-   (get-mailman-output-lines "list_members" lst))
+   (sort
+    (get-mailman-output-lines "list_members" lst)
+    string<?))
 
  ;; Creates a representation of basic mailman list information
  (define (make-mailman-list name members)
@@ -73,16 +76,31 @@
  (define mailman-list-name car)
  (define mailman-list-members cdr)
 
+ ;; Loads a single mailman list as mailman structure
+ (define (load-mailman-list name)
+   (make-mailman-list name
+		      (list-mailman-list-members name)))
+
  ;; Loads all lists and members
  (define (load-mailman-lists)
    (map
-    (lambda (name)
-      (make-mailman-list name
-			 (list-mailman-list-members name)))
+    load-mailman-list
     (list-mailman-lists)))
 
  ;; List of lists, returns the whole list record (including name)
  (define (find-mailman-list lsts name)
    (assoc name lsts))
 
+ ;; Ensures given email is in given ML
+ (define (mailman-ensure-member ml email)
+   #f)
+
+ ;; Makes sure given member is removed
+ (define (mailman-ensure-not-member ml email)
+   #f)
+
+ ;; Ensures given ML subscribers are exactly what is in emails list
+ (define (mailman-sync-members ml emails)
+   #f)
+
  )