Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Org writer: fix extra blank line inserted after empty list item.

Browse source 
Addresses issue 2 from #7810.
This commit is contained in:
John MacFarlane 2022-01-08 21:22:21 -08:00
parent 252211bd27
commit 8736fe11ee
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/Org.hs
View file

@ -220,7 +220,7 @@ bulletListItemToOrg items = do
exts <- gets $ writerExtensions . stOptions exts <- gets $ writerExtensions . stOptions
contents <- blockListToOrg (taskListItemToOrg exts items) contents <- blockListToOrg (taskListItemToOrg exts items)
return $ hang 2 "- " contents $$ return $ hang 2 "- " contents $$
if endsWithPlain items if null items || endsWithPlain items
then cr then cr
else blankline else blankline
@ -238,7 +238,7 @@ orderedListItemToOrg marker counter items = do
counter counter
return $ hang (T.length marker + 1) return $ hang (T.length marker + 1)
(literal marker <> cookie <> space) contents $$ (literal marker <> cookie <> space) contents $$
if endsWithPlain items if null items || endsWithPlain items
then cr then cr
else blankline else blankline