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

dev: showAmountB: clarify

Browse Source
This commit is contained in:
Simon Michael 2023-08-27 09:06:12 +01:00
parent 4bd0dd7ab0
commit f620a3e0ea
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -510,10 +510,13 @@ showAmount :: Amount -> String
showAmount = wbUnpack . showAmountB noColour showAmount = wbUnpack . showAmountB noColour
-- | General function to generate a WideBuilder for an Amount, according the -- | General function to generate a WideBuilder for an Amount, according the
-- supplied AmountDisplayOpts. The special "missing" amount is displayed as -- supplied AmountDisplayOpts. This is the main function to use for showing
-- the empty string. This is the main function to use for showing
-- Amounts, constructing a builder; it can then be converted to a Text with -- Amounts, constructing a builder; it can then be converted to a Text with
-- wbToText, or to a String with wbUnpack. -- wbToText, or to a String with wbUnpack.
-- Some special cases:
--
-- * The special "missing" amount is displayed as the empty string.
--
showAmountB :: AmountDisplayOpts -> Amount -> WideBuilder showAmountB :: AmountDisplayOpts -> Amount -> WideBuilder
showAmountB _ Amount{acommodity="AUTO"} = mempty showAmountB _ Amount{acommodity="AUTO"} = mempty
showAmountB opts a@Amount{astyle=style} = showAmountB opts a@Amount{astyle=style} =
@ -561,27 +564,27 @@ showAmountDebug Amount{..} =
++ ", aprice=" ++ showAmountPriceDebug aprice ++ ", astyle=" ++ show astyle ++ "}" ++ ", aprice=" ++ showAmountPriceDebug aprice ++ ", astyle=" ++ show astyle ++ "}"
-- | Get a Text Builder for the string representation of the number part of of an amount, -- | Get a Text Builder for the string representation of the number part of of an amount,
-- using the display settings from its commodity. Also returns the width of the -- using the display settings from its commodity. Also returns the width of the number.
-- number.
showamountquantity :: Amount -> WideBuilder showamountquantity :: Amount -> WideBuilder
showamountquantity amt@Amount{astyle=AmountStyle{asdecimalmark=mdec, asdigitgroups=mgrps}} = showamountquantity amt@Amount{astyle=AmountStyle{asdecimalmark=mdec, asdigitgroups=mgrps}} =
signB <> intB <> fracB signB <> intB <> fracB
where where
Decimal e n = amountRoundedQuantity amt Decimal decplaces mantissa = amountRoundedQuantity amt
numtxt = T.pack . show $ abs mantissa
strN = T.pack . show $ abs n numlen = T.length numtxt
len = T.length strN intLen = max 1 $ numlen - fromIntegral decplaces
intLen = max 1 $ len - fromIntegral e
dec = fromMaybe '.' mdec dec = fromMaybe '.' mdec
padded = T.replicate (fromIntegral e + 1 - len) "0" <> strN numtxtwithzero = T.replicate (fromIntegral decplaces + 1 - numlen) "0" <> numtxt
(intPart, fracPart) = T.splitAt intLen padded (intPart, fracPart) = T.splitAt intLen numtxtwithzero
intB = applyDigitGroupStyle mgrps intLen $ if decplaces == 0 then numtxt else intPart
signB = if mantissa < 0 then WideBuilder (TB.singleton '-') 1 else mempty
fracB = if decplaces > 0
then WideBuilder (TB.singleton dec <> TB.fromText fracPart) (1 + fromIntegral decplaces)
else mempty
intB = applyDigitGroupStyle mgrps intLen $ if e == 0 then strN else intPart -- | Given an integer as text, and its length, apply the given DigitGroupStyle,
signB = if n < 0 then WideBuilder (TB.singleton '-') 1 else mempty -- inserting digit group separators between digit groups where appropriate.
fracB = if e > 0 then WideBuilder (TB.singleton dec <> TB.fromText fracPart) (fromIntegral e + 1) else mempty -- Returns a Text builder and the number of digit group separators used.
-- | Split a string representation into chunks according to DigitGroupStyle,
-- returning a Text builder and the number of separators used.
applyDigitGroupStyle :: Maybe DigitGroupStyle -> Int -> T.Text -> WideBuilder applyDigitGroupStyle :: Maybe DigitGroupStyle -> Int -> T.Text -> WideBuilder
applyDigitGroupStyle Nothing l s = WideBuilder (TB.fromText s) l applyDigitGroupStyle Nothing l s = WideBuilder (TB.fromText s) l
applyDigitGroupStyle (Just (DigitGroups _ [])) l s = WideBuilder (TB.fromText s) l applyDigitGroupStyle (Just (DigitGroups _ [])) l s = WideBuilder (TB.fromText s) l