aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-08-08 09:53:13 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-08-08 09:53:13 -0700
commit9752dcd61aa72a9e1e59bafcd55376ab1d275620 (patch)
treeebf5fc23f072b193c70868de47537dafa6b5513c /src/Text/Pandoc/Writers
parent672804922542cc3d3a1719a2b4064ba91fccc6c8 (diff)
downloadpandoc-9752dcd61aa72a9e1e59bafcd55376ab1d275620.tar.gz
HTML writer: Don't prefix epub: attributes with data-.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs1
1 files changed, 1 insertions, 0 deletions
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