SelfContained: Add aria-label to svg elements.

Screen readers don't seem to pay attention to an alt attribute on
svg.  But they do read the aria-label. So if there's an alt
attribute, we copy its contents to aria-label, unless there is
already an aria-label. This will make pandoc's output with
`--embed-resources` more accessible.

Closes #9525.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
index fdec874ff..e59971231 100644
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -146,7 +146,13 @@ convertTags (t@(TagOpen tagname as):ts)
   | any (isSourceAttribute tagname) as
      = do
        as' <- mapM processAttribute as
-       let attrs = rights as'
+       let rawattrs = rights as'
+       let attrs = case lookup "alt" rawattrs of
+                     Nothing -> rawattrs
+                     Just alt -> -- see #9525
+                        case lookup "aria-label" rawattrs of
+                          Nothing -> ("aria-label", alt) : rawattrs
+                          Just _ -> rawattrs
        let svgContents = lefts as'
        rest <- convertTags ts
        case svgContents of