diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-24 09:05:51 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 17:23:56 -0800 |
commit | eb26fa6f540fa9c44135a73f2104fbd0d32d78c1 (patch) | |
tree | f679f4438b1ec7ce2e73756b1ca4fd446d0e179f /src/Text/Pandoc/Readers/Markdown.hs | |
parent | bd43c0f4c940b755e2d68c7146c7f5201fb181d9 (diff) | |
download | pandoc-eb26fa6f540fa9c44135a73f2104fbd0d32d78c1.tar.gz |
Distinguish latex & context environments; blank line after in writers.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e7abbc695..63e3262e7 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -711,9 +711,10 @@ rawVerbatimBlock = try $ do rawTeXBlock :: GenParser Char ParserState Block rawTeXBlock = do failIfStrict - result <- rawLaTeXEnvironment' <|> rawConTeXtEnvironment' + result <- liftM (RawBlock "latex") rawLaTeXEnvironment' + <|> liftM (RawBlock "context") rawConTeXtEnvironment' spaces - return $ RawBlock "latex" result + return result rawHtmlBlocks :: GenParser Char ParserState Block rawHtmlBlocks = do @@ -1186,7 +1187,7 @@ inlineNote = try $ do rawLaTeXInline' :: GenParser Char ParserState Inline rawLaTeXInline' = do failIfStrict - (rawConTeXtEnvironment' >>= return . RawInline "latex") + (rawConTeXtEnvironment' >>= return . RawInline "context") <|> (rawLaTeXEnvironment' >>= return . RawInline "latex") <|> rawLaTeXInline |