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

Start with small tweaks as proof of concept.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:09:55 +02:00
parent 1147d73b11
commit 8f0d5acf0a
6 changed files with 35 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bbstool.scm
View file

@ -143,9 +143,15 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if mr
(let ()
(print-member-table mr)
(print-member-calendar-table mr)
(print "Total fees: " (member-fees-total mr))
)
(let* ((fees (member-fees-total mr))
(credit (member-credit-total mr))
(payments (member-payments-total mr))
(balance (- (+ credit payments) fees)))
(print "Total fees: " fees)
(print "Total credit: " credit)
(print "Total payments: " payments)
(print "Balance: " balance)
))
(print-members-base-table MB))
(newline))
((print-stats)