From 3429790dbe4142e76ba7d6f985f7a932b9fbd431 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 31 Mar 2023 22:59:04 +0200
Subject: [PATCH] Sort member payments.

---
 members-payments.scm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/members-payments.scm b/members-payments.scm
index 32df3ad..de273bf 100644
--- a/members-payments.scm
+++ b/members-payments.scm
@@ -37,6 +37,7 @@
 	 (chicken string)
 	 (chicken io)
 	 (chicken irregex)
+	 (chicken sort)
 	 bank-account
 	 member-record
 	 members-base
@@ -115,11 +116,18 @@
 
  ;; Adds all balances - payments are converted to CZK.
  (define (member-add-balance mr)
-   (dict-set mr
-	     'balance
-	     (make-dict `((fees . ,(member-fees-total mr))
-			  (credit . ,(member-credit-total mr))
-			  (payment . ,(member-payments-total mr))))))
+   (let ((mr0 (dict-set mr
+			'balance
+			(make-dict `((fees . ,(member-fees-total mr))
+				     (credit . ,(member-credit-total mr))
+				     (payment . ,(member-payments-total mr)))))))
+     (dict-set mr0
+	       'payments
+	       (sort (dict-ref mr0 'payments '())
+		     (lambda (a b)
+		       (string<? (bank-transaction-date a)
+				 (bank-transaction-date b)))))))
+
 
  ;; Total amount paid
  (define (member-payments-total mr)