mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-21 05:43:39 +08:00
Fix spacing issue.
This commit is contained in:
@@ -193,7 +193,7 @@ addBlockTitle tit' bs =
|
||||
B.singleton $ B.Div attr (B.Div ("",["title"],[]) [B.Para tit] : bs')
|
||||
[B.Div attr bs'] -> -- put title Div inside
|
||||
B.singleton $ B.Div attr (B.Div ("",["title"],[]) [B.Para tit] : bs')
|
||||
_ -> B.divWith B.nullAttr (B.divWith ("",["title"],[]) (B.para tit') <> bs)
|
||||
_ -> B.divWith B.nullAttr (B.divWith ("",["title"],[]) (B.para tit') <> bs)
|
||||
|
||||
doBlock :: PandocMonad m => A.Block -> m B.Blocks
|
||||
doBlock (A.Block attr@(A.Attr ps kvs) mbtitle bt) = do
|
||||
|
||||
Reference in New Issue
Block a user