diff options
author | Nikolay Yakimov <root@livid.pp.ru> | 2014-10-27 04:26:10 +0300 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-12-08 22:50:57 +0000 |
commit | f7b265e2ff79c36c88f5eb6a0bbb8005e2654ecc (patch) | |
tree | 739d86bfd54188efae31ddba59336bedd43f504c /src/Text/Pandoc/Writers | |
parent | 1a130fa48e71c49f233a3811786e49e26ee5409a (diff) | |
download | pandoc-f7b265e2ff79c36c88f5eb6a0bbb8005e2654ecc.tar.gz |
Fix for #1641 (docx table captions above tables)
Word doesn't really treat table captions as something special. It's just a paragraph with special style, nothing more, so simple reversal of output order in writer works fine.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index f8e8cc34d..5b9cc62ab 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -715,7 +715,8 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do let mkgridcol w = mknode "w:gridCol" [("w:w", show (floor (textwidth * w) :: Integer))] () return $ - mknode "w:tbl" [] + caption' ++ + [mknode "w:tbl" [] ( mknode "w:tblPr" [] ( mknode "w:tblStyle" [("w:val","TableNormal")] () : mknode "w:tblW" [("w:type", "pct"), ("w:w", show rowwidth)] () : @@ -727,7 +728,7 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do else map mkgridcol widths) : [ mkrow True headers' | not (all null headers) ] ++ map (mkrow False) rows' - ) : caption' + )] blockToOpenXML opts (BulletList lst) = do let marker = BulletMarker addList marker |