@@ -64,8 +64,6 @@ import Text.XML.Light ( unode, Element(..), unqual, Attr(..), add_attrs
6464import Text.Pandoc.UUID (getRandomUUID)
6565import Text.Pandoc.Writers.HTML (writeHtmlString, writeHtml)
6666import Data.Char ( toLower, isDigit, isAlphaNum )
67−import Network.URI ( unEscapeString, nonStrictRelativeTo,
68− escapeURIString, isAllowedInURI, parseURIReference )
6967import Text.Pandoc.MIME (MimeType, getMimeType)
7068import qualified Control.Exception as E
7169import Text.Blaze.Html.Renderer.Utf8 (renderHtml)
@@ -766,23 +764,20 @@ metadataElement version md currentTime =
766764showDateTimeISO8601 :: UTCTime -> String
767765showDateTimeISO8601 = formatTime defaultTimeLocale "%FT%TZ"
768766
769−transformTag :: WriterOptions
770− -> IORef [(FilePath, FilePath)] -- ^ (oldpath, newpath) media
767+transformTag :: IORef [(FilePath, FilePath)] -- ^ (oldpath, newpath) media
771768 -> Tag String
772769 -> IO (Tag String)
773−transformTag opts mediaRef tag@(TagOpen name attr)
770+transformTag mediaRef tag@(TagOpen name attr)
774771 | name `elem` ["video", "source", "img", "audio"] = do
775772 let src = fromAttrib "src" tag
776773 let poster = fromAttrib "poster" tag
777− let oldsrc = src `relativeTo` writerSourceURL opts
778− let oldposter = poster `relativeTo` writerSourceURL opts
779− newsrc <- modifyMediaRef mediaRef oldsrc
780− newposter <- modifyMediaRef mediaRef oldposter
774+ newsrc <- modifyMediaRef mediaRef src
775+ newposter <- modifyMediaRef mediaRef poster
781776 let attr' = filter (\(x,_) -> x /= "src" && x /= "poster") attr ++
782777 [("src", newsrc) | not (null newsrc)] ++
783778 [("poster", newposter) | not (null newposter)]
784779 return $ TagOpen name attr'
785−transformTag _ _ tag = return tag
780+transformTag _ tag = return tag
786781
787782modifyMediaRef :: IORef [(FilePath, FilePath)] -> FilePath -> IO FilePath
788783modifyMediaRef _ "" = return ""
@@ -792,7 +787,7 @@ modifyMediaRef mediaRef oldsrc = do
792787 Just n -> return n
793788 Nothing -> do
794789 let new = "media/file" ++ show (length media) ++
795− takeExtension oldsrc
790+ takeExtension (takeWhile (/='?') oldsrc) -- remove query
796791 modifyIORef mediaRef ( (oldsrc, new): )
797792 return new
798793
@@ -800,10 +795,10 @@ transformBlock :: WriterOptions
800795 -> IORef [(FilePath, FilePath)] -- ^ (oldpath, newpath) media
801796 -> Block
802797 -> IO Block
803−transformBlock opts mediaRef (RawBlock fmt raw)
798+transformBlock _ mediaRef (RawBlock fmt raw)
804799 | fmt == Format "html" = do
805800 let tags = parseTags raw
806− tags' <- mapM (transformTag opts mediaRef) tags
801+ tags' <- mapM (transformTag mediaRef) tags
807802 return $ RawBlock fmt (renderTags' tags')
808803transformBlock _ _ b = return b
809804
@@ -811,18 +806,17 @@ transformInline :: WriterOptions
811806 -> IORef [(FilePath, FilePath)] -- ^ (oldpath, newpath) media
812807 -> Inline
813808 -> IO Inline
814−transformInline opts mediaRef (Image lab (src,tit)) = do
815− let oldsrc = src `relativeTo` writerSourceURL opts
816− newsrc <- modifyMediaRef mediaRef oldsrc
809+transformInline _ mediaRef (Image lab (src,tit)) = do
810+ newsrc <- modifyMediaRef mediaRef src
817811 return $ Image lab (newsrc, tit)
818812transformInline opts _ (x@(Math _ _))
819813 | WebTeX _ <- writerHTMLMathMethod opts = do
820814 raw <- makeSelfContained opts $ writeHtmlInline opts x
821815 return $ RawInline (Format "html") raw
822−transformInline opts mediaRef (RawInline fmt raw)
816+transformInline _ mediaRef (RawInline fmt raw)
823817 | fmt == Format "html" = do
824818 let tags = parseTags raw
825− tags' <- mapM (transformTag opts mediaRef) tags
819+ tags' <- mapM (transformTag mediaRef) tags
826820 return $ RawInline fmt (renderTags' tags')
827821transformInline _ _ x = return x
828822
@@ -1205,10 +1199,3 @@ docTitle' meta = fromMaybe [] $ go <$> lookupMeta "title" meta
12051199 go (MetaList xs) = concatMap go xs
12061200 go _ = []
12071201
1208−relativeTo :: String -> Maybe String -> String
1209−relativeTo src mbbase =
1210− case (parseURIReference (ensureEscaped src),
1211− mbbase >>= parseURIReference . ensureEscaped) of
1212− (Just src', Just base') -> show (src' `nonStrictRelativeTo` base')
1213− _ -> unEscapeString src
1214− where ensureEscaped = escapeURIString isAllowedInURI