Modified markdown reader for new Math block.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1115 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-11-29 08:09:17 +00:00
parent 7f4fd9ab3d
commit 576ddc1b99

View file

@ -704,7 +704,7 @@ math = try $ do
notFollowedBy space
words <- sepBy1 mathWord (many1 space)
char '$'
return $ TeX ("$" ++ (joinWithSep " " words) ++ "$")
return $ Math $ joinWithSep " " words
emph = ((enclosed (char '*') (char '*') inline) <|>
(enclosed (char '_') (char '_' >> notFollowedBy alphaNum) inline)) >>=