diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-11-20 13:39:00 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-20 13:40:26 -0800 |
| commit | 9a4097640f052468054105cde8ef342ac8a1db30 (patch) | |
| tree | 5318d7e588b1b7867c280fd8088aeee3346edbb5 /src/Text/Pandoc/Readers | |
| parent | 797db8d30631cbd704575ee11d3bdda5bf57270f (diff) | |
| download | pandoc-9a4097640f052468054105cde8ef342ac8a1db30.tar.gz | |
Improve LaTeX option parsing...
in cases where we run into trouble parsing inlines til the
closing `]`, e.g. quotes, we return a plain string with the
option contents. Previously we mistakenly included the brackets
in this string.
Closes #6869.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 61c9abe3a..2ec191154 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -559,7 +559,9 @@ tok = try $ spaces >> grouped inline <|> inlineCommand' <|> singleChar' return $ str t opt :: PandocMonad m => LP m Inlines -opt = bracketed inline <|> (str <$> rawopt) +opt = bracketed inline + <|> + (str . T.dropWhile (=='[') . T.dropWhileEnd (==']') <$> rawopt) paropt :: PandocMonad m => LP m Inlines paropt = parenWrapped inline |