From ac35c9a31cd7082452f1fc0b0290f55e11811bca Mon Sep 17 00:00:00 2001 From: Michael Stahl Date: Thu, 27 Apr 2023 17:19:13 +0200 Subject: Writers.ODT: put manifest.version on directory file-entry See ODF 1.3 part 2, 4.16.14.1 : 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. --- src/Text/Pandoc/Writers/ODT.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 ) ) -- cgit v1.2.3