aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/AsciiDoc.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Writers/AsciiDoc.hs')
-rw-r--r--src/Text/Pandoc/Writers/AsciiDoc.hs13
1 files changed, 11 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index 5904f7da1..333b62a74 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -438,8 +438,17 @@ addBlock opts d b = do
x <- chomp <$> blockToAsciiDoc opts b
return $
case b of
- BulletList{} -> d <> cr <> x
- OrderedList{} -> d <> cr <> x
+ BulletList{}
+ -> case d of
+ Concat (Concat _ CarriageReturn) (Text 1 "+")
+ -> d <> blankline <> x -- see #11006
+ _ -> d <> cr <> x
+ OrderedList listAttr _
+ -> case d of
+ Concat (Concat _ CarriageReturn) (Text 1 "+")
+ | (1, DefaultStyle, _) <- listAttr
+ -> d <> blankline <> x -- see #11006
+ _ -> d <> cr <> x
Para (Math DisplayMath _:_) -> d <> cr <> x
Plain (Math DisplayMath _:_) -> d <> cr <> x
Para{} | isEmpty d -> x