From 36807db531d1b65a25fee9bf3afd4ece60f12041 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 5 Dec 2021 11:26:01 -0800 Subject: Commonmark writer: allow ')' delimiters on ordered lists. --- src/Text/Pandoc/Writers/Markdown.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 96de5e0cd..022dbc24f 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -588,7 +588,12 @@ blockToMarkdown' opts (OrderedList (start,sty,delim) items) = do then start else 1 let sty' = if isEnabled Ext_fancy_lists opts then sty else DefaultStyle - let delim' = if isEnabled Ext_fancy_lists opts then delim else DefaultDelim + let delim' = if isEnabled Ext_fancy_lists opts + then delim + else if variant == Commonmark && + (delim == OneParen || delim == TwoParens) + then OneParen -- commonmark only supports one paren + else DefaultDelim let attribs = (start', sty', delim') let markers = orderedListMarkers attribs let markers' = map (\m -> if T.length m < 3 -- cgit v1.2.3