diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:03:54 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:03:54 -0700 |
| commit | b98049ee6c126fb6a6834e0525b37430490131dd (patch) | |
| tree | 53129f3b1b9c3bb4719ef98dd1604b3765087590 /src/Text/Pandoc | |
| parent | 1d7fd8012df7d9e9bb00d3be1f98917491d9c755 (diff) | |
| download | pandoc-b98049ee6c126fb6a6834e0525b37430490131dd.tar.gz | |
Made markdown writer sensitive to Ext_pandoc_title_blocks.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |