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

DOCX writer: Add missing settings.xml to the zip container.

Browse source 
Closes #990.
This commit is contained in:
John MacFarlane 2013-09-19 09:48:02 -07:00
parent 464b174d0f
commit d27e5a6ff0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -257,6 +257,7 @@ writeDocx opts doc@(Pandoc meta _) = do
docPropsAppEntry <- entryFromArchive "docProps/app.xml" docPropsAppEntry <- entryFromArchive "docProps/app.xml"
themeEntry <- entryFromArchive "word/theme/theme1.xml" themeEntry <- entryFromArchive "word/theme/theme1.xml"
fontTableEntry <- entryFromArchive "word/fontTable.xml" fontTableEntry <- entryFromArchive "word/fontTable.xml"
settingsEntry <- entryFromArchive "word/settings.xml"
webSettingsEntry <- entryFromArchive "word/webSettings.xml" webSettingsEntry <- entryFromArchive "word/webSettings.xml"
-- Create archive -- Create archive
@ -264,7 +265,8 @@ writeDocx opts doc@(Pandoc meta _) = do
contentTypesEntry : relsEntry : contentEntry : relEntry : contentTypesEntry : relsEntry : contentEntry : relEntry :
footnoteRelEntry : numEntry : styleEntry : footnotesEntry : footnoteRelEntry : numEntry : styleEntry : footnotesEntry :
docPropsEntry : docPropsAppEntry : themeEntry : docPropsEntry : docPropsAppEntry : themeEntry :
fontTableEntry : webSettingsEntry : imageEntries fontTableEntry : settingsEntry : webSettingsEntry :
imageEntries
return $ fromArchive archive return $ fromArchive archive
styleToOpenXml :: Style -> [Element] styleToOpenXml :: Style -> [Element]