From 13698e79680c656392aecc51a60cd1e6e19bdefa Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 6 Mar 2017 21:18:32 +0100 Subject: Markdown writer: Fixed false ordered lists in YAML metadata. Now we properly escape things that would otherwise start ordered lists, such as --- title: 1. inline ... Closes #3492. Closes #1685. --- src/Text/Pandoc/Writers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index f665ec448..ad3eb62df 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -185,7 +185,7 @@ pandocToMarkdown opts (Pandoc meta blocks) = do isPlain <- asks envPlain metadata <- metaToJSON' (fmap (render colwidth) . blockListToMarkdown opts) - (fmap (render colwidth) . inlineListToMarkdown opts) + (fmap (render colwidth) . blockToMarkdown opts . Plain) meta let title' = maybe empty text $ getField "title" metadata let authors' = maybe [] (map text) $ getField "author" metadata -- cgit v1.2.3