diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 | ||||
| -rw-r--r-- | test/command/6869.md | 6 |
2 files changed, 9 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 diff --git a/test/command/6869.md b/test/command/6869.md new file mode 100644 index 000000000..cd8ff9ff4 --- /dev/null +++ b/test/command/6869.md @@ -0,0 +1,6 @@ +``` +% pandoc -f latex -t native +\cite[„Aber“]{key} +^D +[Para [Cite [Citation {citationId = "key", citationPrefix = [], citationSuffix = [Str "\8222Aber\8220"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [RawInline (Format "latex") "\\cite[\8222Aber\8220]{key}"]]] +``` |