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

Add -only-active to -fees.

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-06 21:33:47 +01:00
parent 2dc8d3c119
commit 45a7af9c27
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/members-print.scm
View file

@ -471,10 +471,14 @@
")"))))
;; Prints summary table of all fees and credits for all members
(define (print-members-fees-table MB . ds)
(let ((destroyed? (if (null? ds)
(define (print-members-fees-table MB . dsa)
(let ((destroyed? (if (null? dsa)
#f
(car ds))))
(car dsa)))
(only-active? (if (or (null? dsa)
(null? (cdr dsa)))
#f
(cadr dsa))))
(let* ((members ;; Pass 1
(map
(lambda (mr)
@ -500,8 +504,11 @@
(sort
(if destroyed?
(find-members-by-predicate MB (lambda x #t))
(find-members-by-predicate MB (lambda (mr)
(not (brmember-destroyed? mr)))))
(if only-active?
(find-members-by-predicate MB (lambda (mr)
(brmember-active? mr)))
(find-members-by-predicate MB (lambda (mr)
(not (brmember-destroyed? mr))))))
brmember<?)))
(balances (map (lambda (m)
(list-ref m 6))