diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-05-16 15:50:59 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-05-16 15:50:59 -0700 |
| commit | 5a20cc07ddee4115bee48ceabe890f0d490d9a62 (patch) | |
| tree | 57a6c3e3a181c93b75de2d978b061473c6d6e26f /src/Text/Pandoc/Writers | |
| parent | f11b8ff0801bab83f3b050557fc195af78c46621 (diff) | |
| download | pandoc-5a20cc07ddee4115bee48ceabe890f0d490d9a62.tar.gz | |
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.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index c43f6f70f..89f100720 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -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" [] |