git.iko.soy/typeable/pandoc
on master help sign in
ODT writer: Don't wrap text in opendocument.
4ba3afbJohn MacFarlane
src/Text/Pandoc/Writers/ODT.hs+1−1
compare with master
unifiedsplit
@@ -64,7 +64,7 @@ writeODT mbRefOdt opts doc = do
64 picEntriesRef <- newIORef ([] :: [Entry])
64 picEntriesRef <- newIORef ([] :: [Entry])
65 let sourceDir = writerSourceDirectory opts
65 let sourceDir = writerSourceDirectory opts
66 doc' <- processWithM (transformPic sourceDir picEntriesRef) doc
66 doc' <- processWithM (transformPic sourceDir picEntriesRef) doc
67− let newContents = writeOpenDocument opts doc'
67+ let newContents = writeOpenDocument opts{writerWrapText = False} doc'
68 (TOD epochtime _) <- getClockTime
68 (TOD epochtime _) <- getClockTime
69 let contentEntry = toEntry "content.xml" epochtime $ fromString newContents
69 let contentEntry = toEntry "content.xml" epochtime $ fromString newContents
70 picEntries <- readIORef picEntriesRef
70 picEntries <- readIORef picEntriesRef