diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-02-14 17:41:11 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-02-14 17:41:11 -0800 |
| commit | 7376d26c364826f2ef689f5c7040016369e0a558 (patch) | |
| tree | 4a62f66d89c2dca182ba57955db90c4624b861f7 /src | |
| parent | 0dfd427b6be6cec9777685ee3645b9c31d1df785 (diff) | |
| download | pandoc-7376d26c364826f2ef689f5c7040016369e0a558.tar.gz | |
Add TableNormal style to tables.
Needs testing with Word.
Diffstat (limited to 'src')
| -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 22278be7e..a2995b705 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -387,8 +387,9 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do return $ [ mknode "w:tbl" [] ( mknode "w:tblPr" [] - [ mknode "w:tblCaption" [("w:val", captionStr)] () - | not (null caption) ] + ( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++ + [ mknode "w:tblCaption" [("w:val", captionStr)] () + | not (null caption) ] ) : mknode "w:tblGrid" [] (if all (==0) widths then [] |