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
|
let attr = if null attrs
|
||||||
then ""
|
then ""
|
||||||
else unwords attrs ++ "|"
|
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 -> String
|
||||||
alignmentToString alignment = case alignment of
|
alignmentToString alignment = case alignment of
|
||||||
|
|
Loading…
Add table
Reference in a new issue