HTML writer: don't add data- prefix to unknown attributes beginning with data-.

Or we'll get data-data-blah.
2017-10-16 23:06:13 -07:00 · 2017-10-16 23:06:13 -07:00 · 514958f5ea
commit 514958f5ea
parent 61641f996f
1 changed files with 1 additions and 0 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -551,6 +551,7 @@ toAttrs kvs = do
  return $ map (\(x,y) ->
     customAttribute
        (fromString (if not html5 || x `Set.member` html5Attributes
+                                  || "data-" `isPrefixOf` x
                        then x
                        else "data-" ++ x)) (toValue y)) kvs