From c6338fa88340c76271934e90d96fa9ff606ae78a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 8 Nov 2017 17:06:26 -0800
Subject: [PATCH] EPUB writer: fixed modified paths for raw HTML tags
(src, poster, etc.) This had not been updated for the
new EPUB container layout, with a separate text/ subdirectory.
Closes #4050. Closes #4055.
---
src/Text/Pandoc/Writers/EPUB.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index 23df046d0..e943ef17f 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -942,8 +942,8 @@ transformTag tag@(TagOpen name attr)
newsrc <- modifyMediaRef src
newposter <- modifyMediaRef poster
let attr' = filter (\(x,_) -> x /= "src" && x /= "poster") attr ++
- [("src", newsrc) | not (null newsrc)] ++
- [("poster", newposter) | not (null newposter)]
+ [("src", "../" ++ newsrc) | not (null newsrc)] ++
+ [("poster", "../" ++ newposter) | not (null newposter)]
return $ TagOpen name attr'
transformTag tag = return tag