From 36807db531d1b65a25fee9bf3afd4ece60f12041 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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(-)
(limited to 'src')
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