diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-01-07 16:41:25 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-01-07 16:42:05 -0800 |
| commit | 327e1428c5cdcb62beef6d2e00ab6f1d699256f0 (patch) | |
| tree | 12a1127d8000477be335c67cefe2f9e073f04c7f /src/Text/Pandoc/Writers/Markdown.hs | |
| parent | c0d8b186d142eb5e9f845de0a4ebcadd04c32dce (diff) | |
| download | pandoc-327e1428c5cdcb62beef6d2e00ab6f1d699256f0.tar.gz | |
gfm/commonmark writer: implement start number on ordered lists.
Previously they always started at 1, but according to the spec
the start number is respected. Closes #7009.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index c349fd713..1b5c00468 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -674,7 +674,10 @@ blockToMarkdown' opts (BulletList items) = do contents <- inList $ mapM (bulletListItemToMarkdown opts) items return $ (if isTightList items then vcat else vsep) contents <> blankline blockToMarkdown' opts (OrderedList (start,sty,delim) items) = do - let start' = if isEnabled Ext_startnum opts then start else 1 + variant <- asks envVariant + let start' = if variant == Commonmark || isEnabled Ext_startnum opts + 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 attribs = (start', sty', delim') |