diff options
| author | You Jiangbin <[email protected]> | 2026-01-07 18:21:06 +0800 |
|---|---|---|
| committer | GitHub <[email protected]> | 2026-01-07 11:21:06 +0100 |
| commit | c0b66602c2177ef871a11cf8c29d49062c612072 (patch) | |
| tree | ba2f360ee3689791286da33a1ee3b76045ed73ba /src | |
| parent | 81f33bdaff10164ccbd052088fe5087cf860776f (diff) | |
Fix docx writer: skip directory entries when building media overrides (#11379)
Pandoc's docx writer was previously adding an `<Override>`
for `/word/media/` in `[Content_Types].xml` when the reference doc
contains media, which violates OPC rules and causes Word
to report corruption.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 1a4bc4ca2..44dd168be 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -297,7 +297,8 @@ writeDocx opts doc = do map mkImageOverride imgs ++ [ mkMediaOverride (eRelativePath e) | e <- zEntries refArchive - , "word/media/" `isPrefixOf` eRelativePath e ] + , "word/media/" `isPrefixOf` eRelativePath e + , not ("/" `isSuffixOf` eRelativePath e) ] let mkDefaultNode (ext, mt) = mknode "Default" [("Extension",ext),("ContentType",mt)] () |