diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 6af32e7e5..4d848d55b 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -141,7 +141,10 @@ pandocToMarkdown opts (Pandoc (Meta title authors date) blocks) = do let context = writerVariables opts ++ [ ("toc", render colwidth toc) , ("body", main) + , ("title", render Nothing title') + , ("date", render Nothing date') ] ++ + [ ("author", render Nothing a) | a <- authors' ] ++ [ ("titleblock", render colwidth titleblock) | not (null title && null authors && null date) ] if writerStandalone opts |