Get all information in HTML export.

This commit is contained in:
Dominik Pantůček 2023-06-19 14:02:23 +02:00
parent 20b3c31bf5
commit fb1230e5e3
3 changed files with 45 additions and 4 deletions

View file

@ -550,6 +550,8 @@
(list (cal-day->string (cadr r))
(list-ref r 6)
(list-ref r 4)
(format "\t~A" (exact->inexact (list-ref r 2)))
(list-ref r 3)
(format "\t~A" (exact->inexact (list-ref r 5)))
(format "\t~A" (exact->inexact (car r)))
))
@ -558,7 +560,8 @@
#:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none)
...)
(cons '("\tDate\t" "\tType\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
(cons '("\tDate\t" "\tType\t" "\tComment\t"
"\tAmount\t" "\tCurrency\t" "\tAmount [CZK]\t" "\tBalance\t")
data))))
)