diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 6a1aaf18d..8c31f12da 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -113,7 +113,7 @@ obfuscateLink opts txt src = obfuscateString name ++ "';e=n+a+h;\n" ++ "document.write(''+" ++ linkText ++ "+'<\\/'+'a'+'>');\n// -->\n")) +++ - noscript << obfuscateString altText + noscript (primHtml $ obfuscateString altText) _ -> anchor ! [href src] $ inlineListToHtml opts txt -- malformed email -- | Obfuscate character as entity. diff --git a/tests/writer.html b/tests/writer.html index f5d8f145a..9ac41494c 100644 --- a/tests/writer.html +++ b/tests/writer.html @@ -721,7 +721,7 @@ document.write(''+'Email link'+'<\/'+'a'+'>') // --> Email link (nobody at nowhere dot net)

'+e+'<\/'+'a'+'>'); // --> nobody at nowhere dot net