simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 18:29:36 +03:00
Code Issues Projects Releases Wiki Activity

dev: clarify showAmountsCostB

Browse Source
This commit is contained in:
Simon Michael 2024-01-23 10:44:19 -10:00
parent ca55c2f0f8
commit e2ed2b3b6d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-lib/Hledger/Data/Amount.hs
View File

@ -84,7 +84,7 @@ module Hledger.Data.Amount (
csvDisplay,
showAmountB,
showAmount,
showAmountCostB,
showAmountsCostB,
cshowAmount,
showAmountWithZeroCommodity,
showAmountDebug,
@ -617,8 +617,9 @@ withDecimalPoint = flip setAmountDecimalPoint
-- Amount rendering
showAmountCostB :: Amount -> WideBuilder
showAmountCostB amt = case acost amt of
-- Show an amount's cost as @ UNITCOST or @@ TOTALCOST (builder version).
showAmountsCostB :: Amount -> WideBuilder
showAmountsCostB amt = case acost amt of
Nothing -> mempty
Just (UnitCost pa) -> WideBuilder (TB.fromString " @ ") 3 <> showAmountB noColour{displayZeroCommodity=True} pa
Just (TotalCost pa) -> WideBuilder (TB.fromString " @@ ") 4 <> showAmountB noColour{displayZeroCommodity=True} (sign pa)
@ -667,7 +668,7 @@ showAmountB
| amountLooksZero a && not displayZeroCommodity = (WideBuilder (TB.singleton '0') 1, "")
| otherwise = (quantity, quoteCommoditySymbolIfNeeded $ acommodity a)
space = if not (T.null comm) && ascommodityspaced style then WideBuilder (TB.singleton ' ') 1 else mempty
cost = if displayCost then showAmountCostB a else mempty
cost = if displayCost then showAmountsCostB a else mempty
-- | Colour version. For a negative amount, adds ANSI codes to change the colour,
-- currently to hard-coded red.