@@ -1433,7 +1433,7 @@ inlineToHtml opts inline = do
1433 return $ if T.null tit
1433 return $ if T.null tit
1434 then link'
1434 then link'
1435 else link' ! A.title (toValue tit)
1435 else link' ! A.title (toValue tit)
1436− (Image attr txt (s,tit)) -> do
1436+ (Image attr@(_, _, attrList) txt (s, tit)) -> do
1437 let alternate = stringify txt
1437 let alternate = stringify txt
1438 slideVariant <- gets stSlideVariant
1438 slideVariant <- gets stSlideVariant
1439 let isReveal = slideVariant == RevealJsSlides
1439 let isReveal = slideVariant == RevealJsSlides
@@ -1446,7 +1446,8 @@ inlineToHtml opts inline = do
1446 [A.title $ toValue tit | not (T.null tit)] ++
1446 [A.title $ toValue tit | not (T.null tit)] ++
1448 imageTag = (if html5 then H5.img else H.img
1448 imageTag = (if html5 then H5.img else H.img
1449− , [A.alt $ toValue alternate | not (null txt)] )
1449+ , [A.alt $ toValue alternate | not (null txt) &&
1450+ isNothing (lookup "alt" attrList)] )
1450 mediaTag tg fallbackTxt =
1451 mediaTag tg fallbackTxt =
1451 let linkTxt = if null txt
1452 let linkTxt = if null txt
1452 then fallbackTxt
1453 then fallbackTxt