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

Add current fee column.

Browse source
This commit is contained in:
Dominik Pantůček 2024-06-11 20:12:16 +02:00
parent 85af3fcff3
commit ce74a8962d
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/members-print.scm
View file

@ -541,6 +541,7 @@
(cons (cons
(list (ansi-string #:bgblue #:brightyellow #:bold "Member") (list (ansi-string #:bgblue #:brightyellow #:bold "Member")
(ansi-string #:bgblue #:brightyellow #:bold "Status") (ansi-string #:bgblue #:brightyellow #:bold "Status")
(ansi-string #:bgblue #:brightyellow #:bold "Current")
(ansi-string #:bgblue #:brightyellow #:bold "Fees") (ansi-string #:bgblue #:brightyellow #:bold "Fees")
(ansi-string #:bgblue #:brightyellow #:bold "Credit") (ansi-string #:bgblue #:brightyellow #:bold "Credit")
(ansi-string #:bgblue #:brightyellow #:bold "Payments") (ansi-string #:bgblue #:brightyellow #:bold "Payments")
@ -551,6 +552,7 @@
(let ((total (list-ref member 5))) (let ((total (list-ref member 5)))
(list (list-ref member 0) (list (list-ref member 0)
(list-ref member 1) (list-ref member 1)
"---"
(sprintf "\t~A" (list-ref member 2)) (sprintf "\t~A" (list-ref member 2))
(sprintf "\t~A" (list-ref member 3)) (sprintf "\t~A" (list-ref member 3))
(sprintf "\t~A" (list-ref member 4)) (sprintf "\t~A" (list-ref member 4))