Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

EPUB writer: fixed modified paths for raw HTML tags

Browse source 
(src, poster, etc.)  This had not been updated for the
new EPUB container layout, with a separate text/ subdirectory.
Closes #4050. Closes #4055.
This commit is contained in:
John MacFarlane 2017-11-08 17:06:26 -08:00
parent 8cf9b23b45
commit c6338fa883
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -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