diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index f35ab4f29..5d02a2be5 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -701,7 +701,9 @@ math3 = try $ char '$' >> math1 >>~ char '$' math4 :: GenParser Char st String math4 = try $ do - name <- begin "equation" <|> begin "equation*" <|> begin "displaymath" <|> begin "displaymath*" + name <- begin "displaymath" <|> begin "equation" <|> begin "equation*" <|> + begin "gather" <|> begin "gather*" <|> begin "gathered" <|> + begin "multline" <|> begin "multline*" spaces manyTill anyChar (end name) @@ -710,10 +712,12 @@ math5 = try $ (string "\\[") >> spaces >> manyTill anyChar (try $ string "\\]") math6 :: GenParser Char st String math6 = try $ do - name <- begin "eqnarray" <|> begin "eqnarray*" + name <- begin "eqnarray" <|> begin "eqnarray*" <|> begin "align" <|> + begin "align*" <|> begin "alignat" <|> begin "alignat*" <|> + begin "split" <|> begin "aligned" <|> begin "alignedat" spaces res <- manyTill anyChar (end name) - return $ filter (/= '&') res -- remove eqnarray alignment codes + return $ filter (/= '&') res -- remove alignment codes -- -- links and images |