@@ -701,7 +701,9 @@ math3 = try $ char '$' >> math1 >>~ char '$'
701701
702702math4 :: GenParser Char st String
703703math4 = try $ do
704− name <- begin "equation" <|> begin "equation*" <|> begin "displaymath" <|> begin "displaymath*"
704+ name <- begin "displaymath" <|> begin "equation" <|> begin "equation*" <|>
705+ begin "gather" <|> begin "gather*" <|> begin "gathered" <|>
706+ begin "multline" <|> begin "multline*"
705707 spaces
706708 manyTill anyChar (end name)
707709
@@ -710,10 +712,12 @@ math5 = try $ (string "\\[") >> spaces >> manyTill anyChar (try $ string "\\]")
710712
711713math6 :: GenParser Char st String
712714math6 = try $ do
713− name <- begin "eqnarray" <|> begin "eqnarray*"
715+ name <- begin "eqnarray" <|> begin "eqnarray*" <|> begin "align" <|>
716+ begin "align*" <|> begin "alignat" <|> begin "alignat*" <|>
717+ begin "split" <|> begin "aligned" <|> begin "alignedat"
714718 spaces
715719 res <- manyTill anyChar (end name)
716− return $ filter (/= '&') res -- remove eqnarray alignment codes
720+ return $ filter (/= '&') res -- remove alignment codes
717721
718722--
719723-- links and images