src/members-print.scm

@@ -541,7 +541,6 @@
 	 (cons
 	  (list (ansi-string #:bgblue #:brightyellow #:bold "Member")
 		(ansi-string #:bgblue #:brightyellow #:bold "Status")
-		(ansi-string #:bgblue #:brightyellow #:bold "Current")
 		(ansi-string #:bgblue #:brightyellow #:bold "Fees")
 		(ansi-string #:bgblue #:brightyellow #:bold "Credit")
 		(ansi-string #:bgblue #:brightyellow #:bold "Payments")
@@ -552,8 +551,6 @@
 	      (let ((total (list-ref member 5)))
 		(list (list-ref member 0)
 		      (list-ref member 1)
-		      "---"
-		      
 		      (sprintf "\t~A" (list-ref member 2))
 		      (sprintf "\t~A" (list-ref member 3))
 		      (sprintf "\t~A" (list-ref member 4))
@@ -572,7 +569,6 @@
 		  (payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances)))
 		  (total (- (+ credit payment) fees)))
 	     (list (list (ansi-string #:bold "Total")
-			 ""
 			 ""
 			 (ansi-string "\t" #:bold (sprintf "~A" fees))
 			 (ansi-string "\t" #:bold (sprintf "~A" credit))