git.iko.soy/typeable/pandoc
on master help sign in
Markdown reader: Fix title block parsing.

Now if mmd_title_blocks is specified, pandoc will parse a MMD title block if it sees one, even if pandoc_title_blocks is enabled.

commita49ecc9fe707d3dd2c68929f35c3b390ae5ae6e7 authorJohn MacFarlane <fiddlosopher@gmail.com> dateTue 12 Feb 2013, 19:55 (14 years ago) parent86dd9f1
1 file changed+4−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Markdown.hs+4−1
src/Text/Pandoc/Readers/Markdown.hs+4−1
@@ -195,11 +195,14 @@ dateLine = try $ do
195195 trimInlinesF . mconcat <$> manyTill inline newline
196196
197197titleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
198−titleBlock = pandocTitleBlock <|> mmdTitleBlock
198+titleBlock = pandocTitleBlock
199+ <|> mmdTitleBlock
200+ <|> return (mempty, return [], mempty)
199201
200202pandocTitleBlock :: MarkdownParser (F Inlines, F [Inlines], F Inlines)
201203pandocTitleBlock = try $ do
202204 guardEnabled Ext_pandoc_title_block
205+ lookAhead (char '%')
203206 title <- option mempty titleLine
204207 author <- option (return []) authorsLine
205208 date <- option mempty dateLine