From 6d30d3e0b3b4a7005018179ff1098dd16eeb2652 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 12 Jul 2019 17:03:01 -0700 Subject: Pass through aria- attributes to HTML5. Also document addition of data- prefix to unknown attributes. Closes #5646. --- src/Text/Pandoc/Writers/HTML.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index ca44583ab..241479157 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -621,6 +621,7 @@ toAttrs kvs = do if x `Set.member` (html5Attributes <> rdfaAttributes) || ':' `elem` x -- e.g. epub: namespace || "data-" `isPrefixOf` x + || "aria-" `isPrefixOf` x then Just $ customAttribute (fromString x) (toValue y) else Just $ customAttribute (fromString ("data-" ++ x)) (toValue y) -- cgit v1.2.3