@@ -751,7 +751,7 @@ transformTag :: WriterOptions
751751 -> Tag String
752752 -> IO (Tag String)
753753transformTag opts mediaRef tag@(TagOpen name attr)
754− | name == "video" || name == "source" || name == "img" = do
754+ | name `elem` ["video", "source", "img", "audio"] = do
755755 let src = fromAttrib "src" tag
756756 let poster = fromAttrib "poster" tag
757757 let oldsrc = maybe src (</> src) $ writerSourceURL opts
@@ -800,6 +800,11 @@ transformInline opts _ (x@(Math _ _))
800800 | WebTeX _ <- writerHTMLMathMethod opts = do
801801 raw <- makeSelfContained Nothing $ writeHtmlInline opts x
802802 return $ RawInline (Format "html") raw
803+transformInline opts mediaRef (RawInline fmt raw)
804+ | fmt == Format "html" = do
805+ let tags = parseTags raw
806+ tags' <- mapM (transformTag opts mediaRef) tags
807+ return $ RawInline fmt (renderTags tags')
803808transformInline _ _ x = return x
804809
805810writeHtmlInline :: WriterOptions -> Inline -> String