@@ -472,7 +472,12 @@ mathInlineWith op cl = try $ do
472472 string op
473473 notFollowedBy space
474474 words' <- many1Till (count 1 (noneOf " \t\n\\")
475− <|> (char '\\' >> anyChar >>= \c -> return ['\\',c])
475+ <|> (char '\\' >>
476+ -- This next clause is needed because \text{..} can
477+ -- contain $, \(\), etc.
478+ (try (string "text" >>
479+ (("\\text" ++) <$> inBalancedBraces 0 ""))
480+ <|> (\c -> ['\\',c]) <$> anyChar))
476481 <|> do (blankline <* notFollowedBy' blankline) <|>
477482 (oneOf " \t" <* skipMany (oneOf " \t"))
478483 notFollowedBy (char '$')
@@ -480,6 +485,23 @@ mathInlineWith op cl = try $ do
480485 ) (try $ string cl)
481486 notFollowedBy digit -- to prevent capture of $5
482487 return $ concat words'
488+ where
489+ inBalancedBraces :: Stream s m Char => Int -> String -> ParserT s st m String
490+ inBalancedBraces 0 "" = do
491+ c <- anyChar
492+ if c == '{'
493+ then inBalancedBraces 1 "{"
494+ else mzero
495+ inBalancedBraces 0 s = return $ reverse s
496+ inBalancedBraces numOpen ('\\':xs) = do
497+ c <- anyChar
498+ inBalancedBraces numOpen (c:'\\':xs)
499+ inBalancedBraces numOpen xs = do
500+ c <- anyChar
501+ case c of
502+ '}' -> inBalancedBraces (numOpen - 1) (c:xs)
503+ '{' -> inBalancedBraces (numOpen + 1) (c:xs)
504+ _ -> inBalancedBraces numOpen (c:xs)
483505
484506mathDisplayWith :: Stream s m Char => String -> String -> ParserT s st m String
485507mathDisplayWith op cl = try $ do