diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-02 20:54:30 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-02 20:54:30 -0700 |
| commit | 3cd62d7c35ab4b3f9781c63275c8d17619d308dd (patch) | |
| tree | b34a4a77fa01e750ad2145e823f9f9bb2c55d7ec /src/Text/Pandoc/Writers/Markdown.hs | |
| parent | 0da863f951e02e061d1112b50ece6b346bb0035d (diff) | |
Rename `Ext_yaml_title_block` -> `Ext_yaml_metadata_block`.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 9c9bfa906..80402a757 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -131,8 +131,8 @@ plainTitleBlock tit auths dat = (hcat (intersperse (text "; ") auths)) <> cr <> dat <> cr -yamlTitleBlock :: Value -> Doc -yamlTitleBlock v = "---" $$ (jsonToYaml v) $$ "..." +yamlMetadataBlock :: Value -> Doc +yamlMetadataBlock v = "---" $$ (jsonToYaml v) $$ "..." jsonToYaml :: Value -> Doc jsonToYaml (Object hashmap) = @@ -174,8 +174,8 @@ pandocToMarkdown opts (Pandoc meta blocks) = do let titleblock = case writerStandalone opts of True | isPlain -> plainTitleBlock title' authors' date' - | isEnabled Ext_yaml_title_block opts -> - yamlTitleBlock metadata + | isEnabled Ext_yaml_metadata_block opts -> + yamlMetadataBlock metadata | isEnabled Ext_pandoc_title_block opts -> pandocTitleBlock title' authors' date' | isEnabled Ext_mmd_title_block opts -> |