slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bal/bs/is/cf: drop short name, indent fields from multicolumn CSV

Browse Source
This commit is contained in:
Simon Michael 2018-01-13 11:18:07 -08:00
parent 3756439a5f
commit de5d22ac21
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger/Hledger/Cli/Commands/Balance.hs
View File

@ -511,20 +511,20 @@ renderComponent1 opts (acctname, depth, total) (FormatField ljust min max field)
-- | Render a multi-column balance report as CSV. -- | Render a multi-column balance report as CSV.
multiBalanceReportAsCsv :: ReportOpts -> MultiBalanceReport -> CSV multiBalanceReportAsCsv :: ReportOpts -> MultiBalanceReport -> CSV
multiBalanceReportAsCsv opts (MultiBalanceReport (colspans, items, (coltotals,tot,avg))) = multiBalanceReportAsCsv opts (MultiBalanceReport (colspans, items, (coltotals,tot,avg))) =
("account" : "short account" : "indent" : map showDateSpan colspans ("account" : map showDateSpan colspans
++ (if row_total_ opts then ["total"] else []) ++ (if row_total_ opts then ["total"] else [])
++ (if average_ opts then ["average"] else []) ++ (if average_ opts then ["average"] else [])
) : ) :
[T.unpack a : T.unpack a' : show i : [T.unpack a :
map showMixedAmountOneLineWithoutPrice map showMixedAmountOneLineWithoutPrice
(amts (amts
++ (if row_total_ opts then [rowtot] else []) ++ (if row_total_ opts then [rowtot] else [])
++ (if average_ opts then [rowavg] else [])) ++ (if average_ opts then [rowavg] else []))
| (a,a',i, amts, rowtot, rowavg) <- items] | (a, _, _, amts, rowtot, rowavg) <- items]
++ ++
if no_total_ opts if no_total_ opts
then [] then []
else [["totals", "", ""] else [["totals"]
++ map showMixedAmountOneLineWithoutPrice ( ++ map showMixedAmountOneLineWithoutPrice (
coltotals coltotals
++ (if row_total_ opts then [tot] else []) ++ (if row_total_ opts then [tot] else [])