From 0a9b05f3fdf0b3245c673532094a7315ddd07ba0 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 9 Jul 2020 11:45:16 -0700 Subject: [PATCH] ;refactor balance report column headings --- hledger/Hledger/Cli/Commands/Balance.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs index ec3b712d2..4bd44e0ea 100644 --- a/hledger/Hledger/Cli/Commands/Balance.hs +++ b/hledger/Hledger/Cli/Commands/Balance.hs @@ -602,12 +602,13 @@ balanceReportAsTable opts@ReportOpts{average_, row_total_, balancetype_} (map rowvals items) where totalscolumn = row_total_ && balancetype_ `notElem` [CumulativeChange, HistoricalBalance] - mkDate = case balancetype_ of - PeriodChange -> showDateSpanMonthAbbrev - _ -> maybe "" (showDate . prevday) . spanEnd - colheadings = map mkDate colspans + colheadings = map mkheading colspans ++ [" Total" | totalscolumn] ++ ["Average" | average_] + where + mkheading = case balancetype_ of + PeriodChange -> showDateSpanMonthAbbrev + _ -> maybe "" (showDate . prevday) . spanEnd accts = map renderacct items renderacct row = replicate ((prrDepth row - 1) * 2) ' ' ++ T.unpack (prrDisplayName row)