From 356ece29cb4ddd509c03973f2f72af39cc28c3da Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 8 Apr 2022 20:52:02 -0700 Subject: Commonmark/markua/gfm writers: avoid excessive indentation... on bullet lists. They are now nested by 2 spaces instead of 4. See #8011. --- src/Text/Pandoc/Writers/Markdown.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 222a2dd4a..f10290ec0 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -684,15 +684,15 @@ bulletListItemToMarkdown opts bs = do variant <- asks envVariant let exts = writerExtensions opts contents <- blockListToMarkdown opts $ taskListItemToAscii exts bs - let sps = T.replicate (writerTabStop opts - 2) " " let start = case variant of - Markua -> literal "* " - _ -> literal $ "- " <> sps + Markua -> "* " + Commonmark -> "- " + _ -> "- " <> T.replicate (writerTabStop opts - 2) " " -- remove trailing blank line if item ends with a tight list let contents' = if itemEndsWithTightList bs then chomp contents <> cr else contents - return $ hang (writerTabStop opts) start contents' + return $ hang (T.length start) (literal start) contents' -- | Convert ordered list item (a list of blocks) to markdown. orderedListItemToMarkdown :: PandocMonad m -- cgit v1.2.3