git.iko.soy/typeable/pandoc
on master help sign in
Shared: improve isTight.
4756681John MacFarlane
src/Text/Pandoc/Shared.hs+1−1
compare with master
unifiedsplit
@@ -623,7 +623,7 @@ onlySimpleTableCells = all isSimpleCell . concat
623
623
624-- | Detect if a list is tight.
624-- | Detect if a list is tight.
625isTightList :: [[Block]] -> Bool
625isTightList :: [[Block]] -> Bool
626−isTightList = all firstIsPlain
626+isTightList = all (\item -> firstIsPlain item || null item)
627 where firstIsPlain (Plain _ : _) = True
627 where firstIsPlain (Plain _ : _) = True
628 firstIsPlain _ = False
628 firstIsPlain _ = False
629
629
test/command/5857.mdnew file+11
@@ -0,0 +1,11 @@
1+```
2+% pandoc -f native -t markdown
3+[BulletList
4+ [[Plain [Str "a"]]
5+ ,[]
6+ ,[Plain [Str "b"]]]]
7+^D
8+- a
9+-
10+- b
11+```