@@ -768,15 +768,18 @@ orderedListItemToMarkdown :: PandocMonad m
768768orderedListItemToMarkdown opts marker bs = do
769769 let exts = writerExtensions opts
770770 contents <- blockListToMarkdown opts $ taskListItemToAscii exts bs
771− let sps = case length marker - writerTabStop opts of
771+ let sps = case writerTabStop opts - length marker of
772772 n | n > 0 -> text $ replicate n ' '
773773 _ -> text " "
774+ let ind = if isEnabled Ext_four_space_rule opts
775+ then writerTabStop opts
776+ else max (writerTabStop opts) (length marker + 1)
774777 let start = text marker <> sps
775778 -- remove trailing blank line if item ends with a tight list
776779 let contents' = if itemEndsWithTightList bs
777780 then chomp contents <> cr
778781 else contents
779− return $ hang (writerTabStop opts) start $ contents' <> cr
782+ return $ hang ind start $ contents' <> cr
780783
781784-- | Convert definition list item (label, list of blocks) to markdown.
782785definitionListItemToMarkdown :: PandocMonad m