@@ -323,7 +323,11 @@ blockToMarkdown opts (Table caption aligns widths headers rows) = do
323blockToMarkdown opts (BulletList items) = do
323blockToMarkdown opts (BulletList items) = do
324 contents <- mapM (bulletListItemToMarkdown opts) items
324 contents <- mapM (bulletListItemToMarkdown opts) items
325 return $ cat contents <> blankline
325 return $ cat contents <> blankline
326−blockToMarkdown opts (OrderedList attribs items) = do
326+blockToMarkdown opts (OrderedList (start,sty,delim) items) = do
327+ let start' = if isEnabled Ext_startnum opts then start else 1
328+ let sty' = if isEnabled Ext_fancy_lists opts then sty else DefaultStyle
329+ let delim' = if isEnabled Ext_fancy_lists opts then delim else DefaultDelim
330+ let attribs = (start', sty', delim')
327 let markers = orderedListMarkers attribs
331 let markers = orderedListMarkers attribs
328 let markers' = map (\m -> if length m < 3
332 let markers' = map (\m -> if length m < 3
329 then m ++ replicate (3 - length m) ' '
333 then m ++ replicate (3 - length m) ' '