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:
John MacFarlane 2016-01-02 12:14:12 -08:00
parent 6ed41cbdcc
commit a68e072bac
2 changed files with 97 additions and 93 deletions

View file

@ -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