IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

REFACTOR: improve heading-list to handle dual headings

Browse Source
This commit is contained in:
Christopher Lam 2017-12-10 10:17:06 +08:00
parent e1ba5f3248
commit a5306d0454
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnucash/report/standard-reports/transaction.scm
View File

@ -1055,7 +1055,7 @@ Credit Card, and Income accounts."))))))
(cons 'notes (opt-val gnc:pagename-display (N_ "Notes")))))
(define (make-heading-list columns-used)
(define (add-if pred? item) (if pred? (list item) '()))
(define (add-if pred? . items) (if pred? items '()))
(append
(add-if (column-uses? 'date columns-used)
(_ "Date"))
@ -1087,11 +1087,9 @@ Credit Card, and Income accounts."))))))
(add-if (column-uses? 'amount-single columns-used)
(_ "Amount"))
;; FIXME: Proper labels: what?
(if (column-uses? 'amount-double columns-used)
(list
(_ "Debit")
(_ "Credit"))
'())
(add-if (column-uses? 'amount-double columns-used)
(_ "Debit")
(_ "Credit"))
(add-if (column-uses? 'running-balance columns-used)
(_ "Balance"))))