diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-11-18 16:47:23 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-11-18 16:47:23 +0100 |
| commit | a729dd8ad35cd3b80e1abcf0ac00eea8bda69f99 (patch) | |
| tree | e2d4573f20325919a5d09c320a27b6d90102133e | |
| parent | 9141f1fdbbebcd2ce1158121a39f4b4bcfe5c234 (diff) | |
| download | pandoc-a729dd8ad35cd3b80e1abcf0ac00eea8bda69f99.tar.gz | |
Docx writer: fixed XML markup for empty cells.
Closes #3238.
Previously the Compact style wasn't being applied properly
to empty cells.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index b59227647..b6da3dc69 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -894,7 +894,7 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do [ mknode "w:tcBorders" [] $ mknode "w:bottom" [("w:val","single")] () , mknode "w:vAlign" [("w:val","bottom")] () ] - let emptyCell = [mknode "w:p" [] [pCustomStyle "Compact"]] + let emptyCell = [mknode "w:p" [] [mknode "w:pPr" [] [pCustomStyle "Compact"]]] let mkcell border contents = mknode "w:tc" [] $ [ borderProps | border ] ++ if null contents |