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 (find-members-by-predicate
mb mb
(lambda (mr) (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 #:border-style 'ascii
#:col-border #t #:col-border #t
#:row0-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 (boring-lst
(if (null? boring) (if (null? boring)
'() '()