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.
This commit is contained in:
Michael Stahl
2023-04-28 12:17:22 -07:00
committed by John MacFarlane
parent f3e1d33ea0
commit ac35c9a31c
+2 -2
View File
@@ -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 )
)