From 9f3c34841b4751289cb3ecea222b99d07dbd986d Mon Sep 17 00:00:00 2001
From: Christoffer Ackelman <christoffer.ackelman@gmail.com>
Date: Fri, 15 Aug 2014 13:52:30 +0200
Subject: [PATCH] Include row width in table rows.
Added a property to all table rows where the sum of column widths
is specified in pct (fraction of 5000).
---
src/Text/Pandoc/Writers/Docx.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 38031b7dc..b01a1567e 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -596,12 +596,15 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
else contents
let mkrow border cells = mknode "w:tr" [] $ map (mkcell border) cells
let textwidth = 7920 -- 5.5 in in twips, 1/20 pt
+ let fullrow = 5000
+ let rowwidth = sum $ map (fullrow *) widths
let mkgridcol w = mknode "w:gridCol"
[("w:w", show $ (floor (textwidth * w) :: Integer))] ()
return $
[ mknode "w:tbl" []
( mknode "w:tblPr" []
( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++
+ [ mknode "w:tblW" [("w:type", "pct"), ("w:w", (show rowwidth))] () ] ++
[ mknode "w:tblCaption" [("w:val", captionStr)] ()
| not (null caption) ] )
: mknode "w:tblGrid" []