Handle types correctly, fix body membership.

This commit is contained in:
Dominik Pantůček 2023-06-18 19:48:50 +02:00
parent 34f54b2bb0
commit 0c3ebde1fb
3 changed files with 8 additions and 4 deletions

View file

@ -548,6 +548,7 @@
(define (print-member-balances-table mr)
(let ((data (map (lambda (r)
(list (cal-day->string (cadr r))
(list-ref r 6)
(list-ref r 4)
(format "\t~A" (exact->inexact (list-ref r 5)))
(format "\t~A" (exact->inexact (car r)))
@ -557,7 +558,7 @@
#:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none)
...)
(cons '("\tDate\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
(cons '("\tDate\t" "\tType\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
data))))
)