simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-07 21:15:19 +03:00
Code Issues Projects Releases Wiki Activity

;bin: register-max: tweaks

Browse Source
This commit is contained in:
Simon Michael 2023-01-29 08:14:15 -10:00
parent 173985dbfc
commit 6589b506ed
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/hledger-register-max.hs
View File

@ -5,7 +5,7 @@
-- Usage:
-- hledger-register-max [REGISTERARGS]
-- hledger register-max -- [REGISTERARGS]
-- For historical balances, add -H. For negative balances, add --invert. For value, add -V --infer-market-prices, etc.
-- For historical balances, add -H. To see the smallest, add --invert. For value, add -V --infer-market-prices, etc.
-- Examples:
-- $ hledger-register-max -f examples/bcexample.hledger -H checking
@ -46,10 +46,10 @@ printItem (_, _, _, p, bal) = do
d = postingDate p
mt = ptransaction p
desc = fmt 30 $ maybe "-" tdescription mt
acct = fmt 40 $ paccount p
acct = fmt 30 $ paccount p
amt = fmta 12 $ T.pack $ showMixedAmountOneLine $ pamount p
baltxt = fmta 12 $ T.pack $ showMixedAmountOneLine bal
T.putStrLn $ T.unwords [showDate d, desc, "", acct, "", amt, " ", baltxt]
where
fmt w = formatText True (Just w) (Just w) . textElideRight (w-2)
fmt w = formatText True (Just w) (Just w) . textElideRight w
fmta w = formatText False (Just w) Nothing