diff options
| author | Viktor Kronvall <viktor.kronvall@gmail.com> | 2014-08-17 03:24:22 +0200 |
|---|---|---|
| committer | Viktor Kronvall <viktor.kronvall@gmail.com> | 2014-08-17 03:24:44 +0200 |
| commit | 753e47194c9f04f72532139e6bf2e9122a1356c3 (patch) | |
| tree | 59cdf0b6c23af5ea8e42d5136fecb8ae08b5e8b5 /src | |
| parent | 9f3c34841b4751289cb3ecea222b99d07dbd986d (diff) | |
| download | pandoc-753e47194c9f04f72532139e6bf2e9122a1356c3.tar.gz | |
Simplify row width calculation.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index b01a1567e..010a6e3ff 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -596,8 +596,8 @@ 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 fullrow = 5000 -- 100% specified in pct + let rowwidth = fullrow * sum widths let mkgridcol w = mknode "w:gridCol" [("w:w", show $ (floor (textwidth * w) :: Integer))] () return $ |