MediaWiki writer: fix spacing issues.
+ Start cell on new line unless it's a single Para or Plain. + For single Para or Plain, insert a space after the `|` to avoid problems when the text begins with a character like `-`. Closes #2604, closes #2606.
This commit is contained in:
parent
6ed41cbdcc
commit
a68e072bac
2 changed files with 97 additions and 93 deletions
|
@ -306,7 +306,11 @@ tableCellToMediaWiki headless rownum (alignment, width, bs) = do
|
|||
let attr = if null attrs
|
||||
then ""
|
||||
else unwords attrs ++ "|"
|
||||
return $ marker ++ attr ++ trimr contents
|
||||
let sep = case bs of
|
||||
[Plain _] -> " "
|
||||
[Para _] -> " "
|
||||
_ -> "\n"
|
||||
return $ marker ++ attr ++ sep ++ trimr contents
|
||||
|
||||
alignmentToString :: Alignment -> String
|
||||
alignmentToString alignment = case alignment of
|
||||
|
|
Loading…
Add table
Reference in a new issue