aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-11-08 17:06:26 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-11-08 17:07:27 -0800
commitc6338fa88340c76271934e90d96fa9ff606ae78a (patch)
tree46e75f2d4019cdadc4341415e6eec048097d4235
parent8cf9b23b45ea4272c5a7b6a218029d31cafc59b1 (diff)
downloadpandoc-c6338fa88340c76271934e90d96fa9ff606ae78a.tar.gz
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.
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs4
1 files 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