brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Sorted members in summary emails.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 18:12:45 +02:00
parent 244b7d8c25
commit 1bb73b6948
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/notifications.scm
View file

@ -39,6 +39,7 @@
(chicken base) (chicken base)
(chicken format) (chicken format)
(chicken string) (chicken string)
(chicken sort)
brmember brmember
util-mail util-mail
util-dict-list util-dict-list
@ -141,7 +142,9 @@
(list "" (list ""
"Unpaired transactions:") "Unpaired transactions:")
(unpaired-table mb #:border-style 'ascii)))) (unpaired-table mb #:border-style 'ascii))))
(debtors (members-to-notify mb 1)) (debtors (sort
(members-to-notify mb 1)
brmember<?))
(debtors-lst (debtors-lst
(if (null? debtors) (if (null? debtors)
'() '()
@ -169,11 +172,13 @@
#:border-style 'ascii #:border-style 'ascii
#:col-border #t #:col-border #t
#:row0-border #t)))) #:row0-border #t))))
(boring (find-members-by-predicate (boring (sort
(find-members-by-predicate
mb mb
(lambda (mr) (lambda (mr)
(and (brmember-active? mr) (and (brmember-active? mr)
(not (member-to-notify? mr)))))) (not (member-to-notify? mr)))))
brmember<?))
(boring-lst (boring-lst
(if (null? boring) (if (null? boring)
'() '()