diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-06-25 22:16:30 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-06-25 22:16:58 +0200 |
| commit | 45904ab27f2bc0daf0e7a37b79b204474a5c77a8 (patch) | |
| tree | f811f57c75150ebc019873d91afc4ca99dcbe9dd | |
| parent | 7eb08169aa3a4517e30599df310e712cb8e9cbc4 (diff) | |
| download | pandoc-45904ab27f2bc0daf0e7a37b79b204474a5c77a8.tar.gz | |
LaTeX reader: Treat `lilypond` as a verbatim environment.
Closes #4725.
| -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 5c0264b02..0578e4836 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -2296,6 +2296,7 @@ environments = M.fromList , ("minted", minted) , ("obeylines", obeylines) , ("tikzpicture", rawVerbEnv "tikzpicture") + , ("lilypond", rawVerbEnv "lilypond") -- etoolbox , ("ifstrequal", ifstrequal) , ("newtoggle", braced >>= newToggle) @@ -2338,7 +2339,7 @@ rawVerbEnv :: PandocMonad m => Text -> LP m Blocks rawVerbEnv name = do pos <- getPosition (_, raw) <- withRaw $ verbEnv name - let raw' = "\\begin{" ++ name ++ "}" ++ toksToString raw + let raw' = "\\begin{" ++ T.unpack name ++ "}" ++ toksToString raw exts <- getOption readerExtensions let parseRaw = extensionEnabled Ext_raw_tex exts if parseRaw |