From a729dd8ad35cd3b80e1abcf0ac00eea8bda69f99 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 18 Nov 2016 16:47:23 +0100
Subject: Docx writer: fixed XML markup for empty cells.
Closes #3238.
Previously the Compact style wasn't being applied properly
to empty cells.
---
src/Text/Pandoc/Writers/Docx.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src/Text/Pandoc')
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
--
cgit v1.2.3