From 052684712b8a36854c622468f5d4ddd367199c1c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 25 Mar 2019 08:43:59 -0700
Subject: HTML reader: read `data-foo` attribute into `foo`.

The HTML writer adds the `data-` prefix for HTML5
for nonstandard attributes.  But the attributes are
represented in the AST without the `data-` prefix,
so we should strip this when reading HTML.

Closes #5392.
---
 src/Text/Pandoc/Readers/HTML.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 45af20ca8..dfc31f7af 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -807,7 +807,8 @@ mathMLToTeXMath s = writeTeX <$> readMathML s
 
 toStringAttr :: [(Text, Text)] -> [(String, String)]
 toStringAttr = map go
-  where go (x,y) = (T.unpack x, T.unpack y)
+  where go (x,y) = (T.unpack (fromMaybe x $ T.stripPrefix "data-" x),
+                    T.unpack y)
 
 pScriptMath :: PandocMonad m => TagParser m Inlines
 pScriptMath = try $ do
-- 
cgit v1.2.3