Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Include row width in table rows.

Browse source 
Added a property to all table rows where the sum of column widths
is specified in pct (fraction of 5000).
This commit is contained in:
Christoffer Ackelman 2014-08-15 13:52:30 +02:00 • committed by Viktor Kronvall
parent cb4ae6112e
commit 9f3c34841b
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Docx.hs
View file

@ -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" []