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

ODT writer: Don't wrap text in opendocument.

Browse source
This commit is contained in:
John MacFarlane 2010-12-22 14:55:59 -08:00
parent 137dc85239
commit 4ba3afbb4d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/ODT.hs
View file

@ -64,7 +64,7 @@ writeODT mbRefOdt opts doc = do
picEntriesRef <- newIORef ([] :: [Entry])
let sourceDir = writerSourceDirectory opts
doc' <- processWithM (transformPic sourceDir picEntriesRef) doc
let newContents = writeOpenDocument opts doc'
let newContents = writeOpenDocument opts{writerWrapText = False} doc'
(TOD epochtime _) <- getClockTime
let contentEntry = toEntry "content.xml" epochtime $ fromString newContents
picEntries <- readIORef picEntriesRef