From 9752dcd61aa72a9e1e59bafcd55376ab1d275620 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 8 Aug 2018 09:53:13 -0700
Subject: HTML writer: Don't prefix epub: attributes with data-.

---
 src/Text/Pandoc/Writers/HTML.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index f07d0381f..25f3163c2 100644
--- 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
-- 
cgit v1.2.3