From 8736fe11eedaacfc5794696b834d6018947681db Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 8 Jan 2022 21:22:21 -0800 Subject: [PATCH] Org writer: fix extra blank line inserted after empty list item. Addresses issue 2 from #7810. --- src/Text/Pandoc/Writers/Org.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 0cf33f5b6..d6f3d6e37 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -220,7 +220,7 @@ bulletListItemToOrg items = do exts <- gets $ writerExtensions . stOptions contents <- blockListToOrg (taskListItemToOrg exts items) return $ hang 2 "- " contents $$ - if endsWithPlain items + if null items || endsWithPlain items then cr else blankline @@ -238,7 +238,7 @@ orderedListItemToOrg marker counter items = do counter return $ hang (T.length marker + 1) (literal marker <> cookie <> space) contents $$ - if endsWithPlain items + if null items || endsWithPlain items then cr else blankline