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

balance: fix excessive indent in multicolumn tree mode

Browse Source
This commit is contained in:
Simon Michael 2014-04-13 11:06:51 -07:00
parent c93b19cb10
commit cad37b7dce
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Balance.hs
View File

@ -387,7 +387,7 @@ periodBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltotals))
| otherwise = items -- dbg "2" $ filter (any (not . isZeroMixedAmount) . snd) $ dbg "1" items
accts = map renderacct items'
renderacct ((a,a',i),_)
| tree_ opts = replicate (i*2) ' ' ++ a'
| tree_ opts = replicate ((i-1)*2) ' ' ++ a'
| otherwise = accountNameDrop (drop_ opts) a
acctswidth = maximum $ map length $ accts
totalrow | no_total_ opts = row "" []
@ -408,7 +408,7 @@ cumulativeBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltota
trimborder = ("":) . (++[""]) . drop 1 . init . map (drop 1 . init)
accts = map renderacct items
renderacct ((a,a',i),_)
| tree_ opts = replicate (i*2) ' ' ++ a'
| tree_ opts = replicate ((i-1)*2) ' ' ++ a'
| otherwise = accountNameDrop (drop_ opts) a
acctswidth = maximum $ map length $ accts
addtotalrow | no_total_ opts = id
@ -429,7 +429,7 @@ historicalBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltota
trimborder = ("":) . (++[""]) . drop 1 . init . map (drop 1 . init)
accts = map renderacct items
renderacct ((a,a',i),_)
| tree_ opts = replicate (i*2) ' ' ++ a'
| tree_ opts = replicate ((i-1)*2) ' ' ++ a'
| otherwise = accountNameDrop (drop_ opts) a
acctswidth = maximum $ map length $ accts
addtotalrow | no_total_ opts = id