diff options
| author | Simon Schuster <git@rationality.eu> | 2021-08-20 16:41:50 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-08-21 18:08:27 -0700 |
| commit | 591cdca38b8af5a50a4e121b34d87f3c9bca5844 (patch) | |
| tree | 2ea7fa61adc1ebe2de2eafe9ded80a39e1694787 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | d05460d00d7c9af3b4913f1760ea385a7d855d84 (diff) | |
| download | pandoc-591cdca38b8af5a50a4e121b34d87f3c9bca5844.tar.gz | |
LaTeX-parser: restrict \endinput to current file
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 31c8d9095..5d3ff5f95 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -890,7 +890,7 @@ blockCommands = M.fromList addMeta "bibliography" . splitBibs . untokenize)) , ("addbibresource", mempty <$ (skipopts *> braced >>= addMeta "bibliography" . splitBibs . untokenize)) - , ("endinput", mempty <$ skipMany anyTok) + , ("endinput", mempty <$ skipSameFileToks) -- includes , ("lstinputlisting", inputListing) , ("inputminted", inputMinted) @@ -921,6 +921,10 @@ blockCommands = M.fromList , ("epigraph", epigraph) ] +skipSameFileToks :: PandocMonad m => LP m () +skipSameFileToks = do + pos <- getPosition + skipMany $ infile (sourceName pos) environments :: PandocMonad m => M.Map Text (LP m Blocks) environments = M.union (tableEnvironments blocks inline) $ |