diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/XWiki.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/XWiki.hs b/src/Text/Pandoc/Writers/XWiki.hs index ce0f83b61..e6cd0b086 100644 --- a/src/Text/Pandoc/Writers/XWiki.hs +++ b/src/Text/Pandoc/Writers/XWiki.hs @@ -139,9 +139,11 @@ formRow row = do tableCellXWiki :: PandocMonad m => Bool -> [Block] -> XWikiReader m Text tableCellXWiki isHeader cell = do contents <- blockListToXWiki cell + let isMultiline = (length . split (== '\n')) contents > 1 + let contents' = intercalate contents $ if isMultiline then [pack "(((", pack ")))"] else [mempty, mempty] let cellBorder = if isHeader then "|=" else "|" - return $ cellBorder <> contents - + return $ cellBorder <> contents' + inlineListToXWiki :: PandocMonad m => [Inline] -> XWikiReader m Text inlineListToXWiki lst = |