diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 18 | ||||
| -rw-r--r-- | test/command/5836.md | 8 |
2 files changed, 17 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 94fd9427b..be19964a4 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -629,28 +629,28 @@ dollarsMath :: PandocMonad m => LP m Inlines dollarsMath = do symbol '$' display <- option False (True <$ symbol '$') - (do contents <- try $ T.unpack <$> pDollarsMath 0 + (do contents <- try $ T.unpack . untokenize <$> pDollarsMath 0 if display then (mathDisplay contents <$ symbol '$') else return $ mathInline contents) <|> (guard display >> return (mathInline "")) -- Int is number of embedded groupings -pDollarsMath :: PandocMonad m => Int -> LP m Text +pDollarsMath :: PandocMonad m => Int -> LP m [Tok] pDollarsMath n = do - Tok _ toktype t <- anyTok + tk@(Tok _ toktype t) <- anyTok case toktype of Symbol | t == "$" - , n == 0 -> return mempty + , n == 0 -> return [] | t == "\\" -> do - Tok _ _ t' <- anyTok - return (t <> t') - | t == "{" -> (t <>) <$> pDollarsMath (n+1) + tk' <- anyTok + ((tk :) . (tk' :)) <$> pDollarsMath n + | t == "{" -> (tk :) <$> pDollarsMath (n+1) | t == "}" -> if n > 0 - then (t <>) <$> pDollarsMath (n-1) + then (tk :) <$> pDollarsMath (n-1) else mzero - _ -> (t <>) <$> pDollarsMath n + _ -> (tk :) <$> pDollarsMath n -- citations diff --git a/test/command/5836.md b/test/command/5836.md index fbd5492e1..6fe1539cf 100644 --- a/test/command/5836.md +++ b/test/command/5836.md @@ -17,3 +17,11 @@ $\vara \varb$ ^D \(\alpha b\) ``` +``` +% pandoc -f latex -t latex +\newcommand{\vara}{\alpha} +\newcommand{\varb}{b} +\[\vara \varb\] +^D +\[\alpha b\] +``` |