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

Refactor member-to-notify predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-23 13:41:54 +02:00
parent 738db88cf8
commit b01a59ca22
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/members-payments.scm
View file

@ -236,6 +236,6 @@
(find-members-by-predicate
mb
(lambda (mr)
(member-to-notify? mb months))))
(member-to-notify? mr months))))
)

6
src/notifications.scm
View file

@ -169,7 +169,11 @@
#:border-style 'ascii
#:col-border #t
#:row0-border #t))))
(boring (find-members-by-predicate mb (compose not member-to-notify?)))
(boring (find-members-by-predicate
mb
(lambda (mr)
(and (brmember-active? mr)
(not (member-to-notify? mr))))))
(boring-lst
(if (null? boring)
'()