git.iko.soy/typeable/pandoc
on master help sign in
Fix multiline table for XWiki writer (#5683)
d4fa38aZihang Chen
src/Text/Pandoc/Writers/XWiki.hs+4−2
@@ -139,9 +139,11 @@ formRow row = do
139tableCellXWiki :: PandocMonad m => Bool -> [Block] -> XWikiReader m Text
139tableCellXWiki :: PandocMonad m => Bool -> [Block] -> XWikiReader m Text
140tableCellXWiki isHeader cell = do
140tableCellXWiki isHeader cell = do
141 contents <- blockListToXWiki cell
141 contents <- blockListToXWiki cell
142+ let isMultiline = (length . split (== '\n')) contents > 1
143+ let contents' = intercalate contents $ if isMultiline then [pack "(((", pack ")))"] else [mempty, mempty]
142 let cellBorder = if isHeader then "|=" else "|"
144 let cellBorder = if isHeader then "|=" else "|"
143− return $ cellBorder <> contents
145+ return $ cellBorder <> contents'
144−
146+
145
147
146inlineListToXWiki :: PandocMonad m => [Inline] -> XWikiReader m Text
148inlineListToXWiki :: PandocMonad m => [Inline] -> XWikiReader m Text
147inlineListToXWiki lst =
149inlineListToXWiki lst =