@@ -45,9 +45,7 @@ doSI tok = do
4545 unit]
4646
4747doSInum :: PandocMonad m => LP m Inlines
48−doSInum = skipopts *> (tonum . untokenize . map convertPM <$> braced)
49− where convertPM (Tok pos (CtrlSeq "pm") _) = Tok pos Word "\xb1\xa0"
50− convertPM t = t
48+doSInum = skipopts *> (tonum . untokenize <$> braced)
5149
5250tonum :: Text -> Inlines
5351tonum value =
@@ -74,12 +72,16 @@ parseNumPart =
7472 parseDecimalNum <|>
7573 parseComma <|>
7674 parsePlusMinus <|>
75+ parsePM <|>
7776 parseI <|>
7877 parseExp <|>
7978 parseX <|>
8079 parseSpace
8180 where
82− parseDecimalNum = do
81+ parseDecimalNum, parsePlusMinus, parsePM,
82+ parseComma, parseI, parseX,
83+ parseExp, parseSpace :: Parser Text () Inlines
84+ parseDecimalNum = try $ do
8385 pref <- option mempty $ (mempty <$ char '+') <|> ("\x2212" <$ char '-')
8486 basenum <- (pref <>) . T.pack
8587 <$> many1 (satisfy (\c -> isDigit c || c == '.'))
@@ -100,6 +102,7 @@ parseNumPart =
100102 | otherwise -> "." <> t
101103 parseComma = str "." <$ char ','
102104 parsePlusMinus = str "\xa0\xb1\xa0" <$ try (string "+-")
105+ parsePM = str "\xa0\xb1\xa0" <$ try (string "\\pm")
103106 parseParens =
104107 char '(' *> many1 (satisfy (\c -> isDigit c || c == '.')) <* char ')'
105108 parseI = str "i" <$ char 'i'