diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-03-14 23:11:04 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-03-14 23:11:04 -0700 |
| commit | 348b383731bdb254ea7bced89ce61ed40c549b8e (patch) | |
| tree | 476e66535eb0a0508e572856248f57b1f8c1f0fe | |
| parent | 2e1e76394a671a127919cd5805bcf61a6cda92e8 (diff) | |
| download | pandoc-348b383731bdb254ea7bced89ce61ed40c549b8e.tar.gz | |
LaTeX reader: allow block content in \title{}.
Closes #2001.
| -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 1df2d4caf..5f01b5b6d 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -271,7 +271,9 @@ ignoreBlocks name = (name, doraw <|> (mempty <$ optargs)) blockCommands :: M.Map String (LP Blocks) blockCommands = M.fromList $ [ ("par", mempty <$ skipopts) - , ("title", mempty <$ (skipopts *> tok >>= addMeta "title")) + , ("title", mempty <$ (skipopts *> + (grouped inline >>= addMeta "title") + <|> (grouped block >>= addMeta "title"))) , ("subtitle", mempty <$ (skipopts *> tok >>= addMeta "subtitle")) , ("author", mempty <$ (skipopts *> authors)) -- -- in letter class, temp. store address & sig as title, author |