aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX/SIunitx.hs17
1 files changed, 11 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
index 9a14c9a3e..49a6d7301 100644
--- a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
@@ -76,12 +76,17 @@ parseNumPart =
if T.null uncertainty
then return $ str basenum
else return $ str $ basenum <> "\xa0\xb1\xa0" <>
- case T.break (=='.') basenum of
- (_,ys)
- | T.length ys <= 1 -> uncertainty
- | otherwise -> "0." <>
- T.replicate (T.length ys - 1 - T.length uncertainty) "0"
- <> uncertainty
+ let (_,ys) = T.break (=='.') basenum
+ in case (T.length ys - 1, T.length uncertainty) of
+ (0,_) -> uncertainty
+ (x,y)
+ | x > y -> "0." <> T.replicate (x - y) "0" <>
+ T.dropWhileEnd (=='0') uncertainty
+ | otherwise -> T.take (y - x) uncertainty <>
+ case T.dropWhileEnd (=='0')
+ (T.drop (y - x) uncertainty) of
+ t | T.null t -> mempty
+ | otherwise -> "." <> t
parseComma = str "." <$ char ','
parsePlusMinus = str "\xa0\xb1\xa0" <$ try (string "+-")
parseParens =