From b98049ee6c126fb6a6834e0525b37430490131dd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 2 Aug 2012 21:03:54 -0700 Subject: Made markdown writer sensitive to Ext_pandoc_title_blocks. --- src/Text/Pandoc/Writers/Markdown.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 3b79cbcd4..fccdd66d5 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -91,7 +91,8 @@ pandocToMarkdown opts (Pandoc (Meta title authors date) blocks) = do title' <- inlineListToMarkdown opts title authors' <- mapM (inlineListToMarkdown opts) authors date' <- inlineListToMarkdown opts date - let titleblock = not $ null title && null authors && null date + let titleblock = isEnabled Ext_pandoc_title_blocks opts && + not (null title && null authors && null date) let headerBlocks = filter isHeaderBlock blocks let toc = if writerTableOfContents opts then tableOfContents opts headerBlocks -- cgit v1.2.3