diff options
| author | Michael Stahl <[email protected]> | 2023-04-27 17:19:13 +0200 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-04-28 12:17:22 -0700 |
| commit | ac35c9a31cd7082452f1fc0b0290f55e11811bca (patch) | |
| tree | 0dcbcd5157f5d383cf6cd6534aef81976b633843 | |
| parent | f3e1d33ea074968c9a96db2ecf0059c398709ea6 (diff) | |
Writers.ODT: put manifest.version on directory file-entry
See ODF 1.3 part 2, 4.16.14.1 <manifest:file-entry>:
The manifest:version attribute specifies the format version of a file
entry. For documents that are composed from multiple files, this
attribute is specified at the manifest entry that references the
folder that contains these files.
| -rw-r--r-- | src/Text/Pandoc/Writers/ODT.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs index 4d11ee331..c5ca33029 100644 --- a/src/Text/Pandoc/Writers/ODT.hs +++ b/src/Text/Pandoc/Writers/ODT.hs @@ -113,7 +113,6 @@ pandocToODT opts doc@(Pandoc meta _) = do Just m -> selfClosingTag "manifest:file-entry" [("manifest:media-type", m) ,("manifest:full-path", T.pack fp) - ,("manifest:version", "1.3") ] let files = [ ent | ent <- filesInArchive archive, not ("META-INF" `isPrefixOf` ent) ] @@ -127,7 +126,8 @@ pandocToODT opts doc@(Pandoc meta _) = do [("xmlns:manifest","urn:oasis:names:tc:opendocument:xmlns:manifest:1.0") ,("manifest:version","1.3")] ( selfClosingTag "manifest:file-entry" [("manifest:media-type","application/vnd.oasis.opendocument.text") - ,("manifest:full-path","/")] + ,("manifest:full-path","/") + ,("manifest:version", "1.3")] $$ vcat ( map toFileEntry files ) $$ vcat ( map toFileEntry formulas ) ) |