Docx writer: enable column and row bands for tables.

This change will not have any effect with the default style.
However, it enables users to use a style (via a reference.docx)
that turns on row and/or column bands.

Closes #6371.
This commit is contained in:
John MacFarlane
2020-05-16 15:50:59 -07:00
parent f11b8ff080
commit 5a20cc07dd
29 changed files with 6 additions and 1 deletions
+6 -1
View File
@@ -1017,7 +1017,12 @@ blockToOpenXML' opts (Table _ blkCapt specs thead tbody tfoot) = do
( mknode "w:tblPr" []
( mknode "w:tblStyle" [("w:val","Table")] () :
mknode "w:tblW" [("w:type", "pct"), ("w:w", show rowwidth)] () :
mknode "w:tblLook" [("w:firstRow",if hasHeader then "1" else "0") ] () :
mknode "w:tblLook" [("w:firstRow",if hasHeader then "1" else "0")
,("w:lastRow","0")
,("w:firstColumn","0")
,("w:lastColumn","0")
,("w:noHBand","0")
,("w:noVBand","0")] () :
[ mknode "w:tblCaption" [("w:val", T.unpack captionStr)] ()
| not (null caption) ] )
: mknode "w:tblGrid" []