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

Move all fees functions to member-fees module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 14:42:03 +02:00
parent b37a7ac2fb
commit d483025321
2 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

23
bbstool.scm
View file

@ -26,7 +26,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
")
(import testing
(chicken format)
listing
dictionary
month
@ -135,23 +134,11 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "Current month: " (month->string (*current-month*)))
(newline)
(if mr
(let* ((mc (member-calendar mr))
(fees (member-calendar->fees mc)))
(let ()
(print-member-table mr)
(print (table->string (cons (map (lambda (c)
(sprintf "\t~A\t" c))
(list "" 1 2 3 4 5 6 7 8 9 10 11 12))
(member-calendar->years-table mc))
#:table-border #t
#:row-border #t
#:col-border #t
#:ansi #t
))
;; (print fees)
(print "Total fees: " (foldl + 0 fees))
)
(print-members-base-table MB)
)
(print-member-calendar-table mr)
(print "Total fees: " (member-fees-total mr)))
(print-members-base-table MB))
(newline))
((print-stats)
(newline)
@ -185,6 +172,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(loop (cdr mb)))))
((fees)
(newline)
(print-member-fees-table MB))
(print-members-fees-table MB))
)