diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:20:31 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:20:31 -0700 |
commit | 03b1ba546f4f844887bccee799235c94a81734e4 (patch) | |
tree | 246534e8370ab153916132c38ff7a3d51ea78cbf /src/Text/Pandoc | |
parent | d21304bab08248b6b41b7fc7305a5000505e59f6 (diff) | |
download | pandoc-03b1ba546f4f844887bccee799235c94a81734e4.tar.gz |
Made markdown writer sensitive to Ext_startnum, Ext_fancy_lists.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 5426beabe..5b2e0161e 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -323,7 +323,11 @@ blockToMarkdown opts (Table caption aligns widths headers rows) = do blockToMarkdown opts (BulletList items) = do contents <- mapM (bulletListItemToMarkdown opts) items return $ cat contents <> blankline -blockToMarkdown opts (OrderedList attribs items) = do +blockToMarkdown opts (OrderedList (start,sty,delim) items) = do + let start' = if 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') let markers = orderedListMarkers attribs let markers' = map (\m -> if length m < 3 then m ++ replicate (3 - length m) ' ' |