From 5ff4aaff1b474e998e0b980df8ac2a60faf6cfd4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 19 Mar 2023 19:00:09 +0100
Subject: [PATCH] Compute stats.

---
 members-base.scm | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/members-base.scm b/members-base.scm
index e1de064..f49ebb2 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -54,7 +54,8 @@
 	 primes
 	 member-record
 	 ansi
-	 period)
+	 period
+	 month)
 
  ;; Gets all files and symbolic links from given directory. The
  ;; symbolic links are represented by cons cells with car being the
@@ -280,11 +281,21 @@
 
  ;; Returns a list two lists: keys, data.
  ;; Each data record contains values for all keys.
- (define (members-base-stats . args)
+ (define (members-base-stats mb)
    (let ((keys '(month total active suspended students destroyed invalid)))
      (let mloop ((data '())
-		 (month '(2015 1))) ; TODO: *oldest-month*
-       #f)))
+		 (month (*member-default-joined*)))
+       (if (month<? month (*current-month*))
+	   (let ((bi (parameterize ((*current-month* month))
+		       (members-base-info mb))))
+	     (let kloop ((row '())
+			 (keys keys))
+	       (if (null? keys)
+		   (mloop (cons (reverse row) data)
+			  (month-add month 1))
+		   (kloop (cons (dict-ref bi (car keys)) row)
+			  (cdr keys)))))
+	   (list keys (reverse data))))))
 
  ;; Basic information about members-base in human-readable form.
  (define (print-members-base-info mb)