diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-08 17:06:26 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-08 17:07:27 -0800 |
| commit | c6338fa88340c76271934e90d96fa9ff606ae78a (patch) | |
| tree | 46e75f2d4019cdadc4341415e6eec048097d4235 /src | |
| parent | 8cf9b23b45ea4272c5a7b6a218029d31cafc59b1 (diff) | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 4 |
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 |