Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown reader: Don't generate blank title, author, date elements.

Browse source
This commit is contained in:
John MacFarlane 2013-08-17 10:29:12 -07:00
parent caa89efc32
commit 5a5a252216
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -221,9 +221,9 @@ pandocTitleBlock = try $ do
title' <- title title' <- title
author' <- author author' <- author
date' <- date date' <- date
return $ B.setMeta "title" title' return $ if B.isNull title' then id else B.setMeta "title" title'
. B.setMeta "author" author' . if null author' then id else B.setMeta "author" author'
. B.setMeta "date" date' . if B.isNull date' then id else B.setMeta "date" date'
yamlTitleBlock :: MarkdownParser (F (Pandoc -> Pandoc)) yamlTitleBlock :: MarkdownParser (F (Pandoc -> Pandoc))
yamlTitleBlock = try $ do yamlTitleBlock = try $ do