HTML writer: Don't prefix epub: attributes with data-.

2018-08-08 09:53:13 -07:00 · 2018-08-08 09:53:13 -07:00 · 9752dcd61a
commit 9752dcd61a
parent 6728049225
1 changed files with 1 additions and 0 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -580,6 +580,7 @@ toAttrs kvs = do
  return $ map (\(x,y) ->
     customAttribute
        (fromString (if not html5 || x `Set.member` html5Attributes
+                                  || "epub:" `isPrefixOf` x
                                  || "data-" `isPrefixOf` x
                        then x
                        else "data-" ++ x)) (toValue y)) kvs