diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 17:57:52 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 17:57:52 -0800 |
| commit | 5a9ca2617289d59e4de619a7746f04d0b9e70473 (patch) | |
| tree | 1799d5b20e18aa6cdaa0be754ddddeaf2c37a634 | |
| parent | 237c10992e4cf22a8dd64b385fc44168468021c6 (diff) | |
| parent | 94500f7469ec57ba4363167c1a47a043600aedb7 (diff) | |
| download | pandoc-5a9ca2617289d59e4de619a7746f04d0b9e70473.tar.gz | |
Merge pull request #2502 from minoki/latex-comment-environment
LaTeX reader: Handle `comment` environment.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index dd73feea8..ffb4182ad 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -887,7 +887,7 @@ verbatimEnv' = fmap snd <$> string "\\begin" name <- braced' guard $ name `elem` ["verbatim", "Verbatim", "lstlisting", - "minted", "alltt"] + "minted", "alltt", "comment"] manyTill anyChar (try $ string $ "\\end{" ++ name ++ "}") blob' :: IncludeParser @@ -1040,6 +1040,7 @@ environments = M.fromList , ("code", guardEnabled Ext_literate_haskell *> (codeBlockWith ("",["sourceCode","literate","haskell"],[]) <$> verbEnv "code")) + , ("comment", mempty <$ verbEnv "comment") , ("verbatim", codeBlock <$> verbEnv "verbatim") , ("Verbatim", do options <- option [] keyvals let kvs = [ (if k == "firstnumber" |