Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Commonmark writer: allow ')' delimiters on ordered lists.

Browse source
This commit is contained in:
John MacFarlane 2021-12-05 11:26:01 -08:00
parent 51f6f0e3a1
commit 36807db531
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -588,7 +588,12 @@ blockToMarkdown' opts (OrderedList (start,sty,delim) items) = do
then start then start
else 1 else 1
let sty' = if isEnabled Ext_fancy_lists opts then sty else DefaultStyle 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 attribs = (start', sty', delim')
let markers = orderedListMarkers attribs let markers = orderedListMarkers attribs
let markers' = map (\m -> if T.length m < 3 let markers' = map (\m -> if T.length m < 3