@@ -15,9 +15,9 @@ module Text.Pandoc.Writers.HTML (
15import Text.Pandoc.Definition
15import Text.Pandoc.Definition
16import Text.Pandoc.Shared
16import Text.Pandoc.Shared
17import Text.Html ( stringToHtmlString )
17import Text.Html ( stringToHtmlString )
18−import Text.Regex ( mkRegex )
18+import Text.Regex ( mkRegex, matchRegex )
19import Numeric ( showHex )
19import Numeric ( showHex )
20−import Char ( ord )
20+import Data.Char ( ord, toLower )
21import Data.List ( isPrefixOf, partition )
21import Data.List ( isPrefixOf, partition )
23-- | Convert Pandoc document to string in HTML format.
23-- | Convert Pandoc document to string in HTML format.
@@ -59,14 +59,27 @@ footnoteSection options notes =
59-- | Obfuscate a "mailto:" link using Javascript.
59-- | Obfuscate a "mailto:" link using Javascript.
60obfuscateLink :: WriterOptions -> [Inline] -> String -> String
60obfuscateLink :: WriterOptions -> [Inline] -> String -> String
61obfuscateLink options text src =
61obfuscateLink options text src =
62+ let emailRegex = mkRegex "mailto:*([^@]*)@(.*)"
62− let text' = inlineListToHtml options text in
63+ text' = inlineListToHtml options text
63− let linkText = if src == ("mailto:" ++ text')
64+ src' = map toLower src in
64− then "e"
65+ case (matchRegex emailRegex src') of
65− else "'" ++ text' ++ "'"
66+ (Just [name, domain]) ->
66− altText = if src == ("mailto:" ++ text')
67+ let domain' = gsub "\\." " dot " domain
67− then "\\1 [at] \\2"
68+ at' = obfuscateChar '@' in
68− else text' ++ " (\\1 [at] \\2)" in
69+ let linkText = if src' == ("mailto:" ++ text')
69− gsub "mailto:([^@]*)@(.*)" ("<script type=\"text/javascript\">h='\\2';n='\\1';e=n+'@'+h;document.write('<a href=\"mailto:'+e+'\">'+" ++ linkText ++ "+'<\\/a>');</script><noscript>" ++ altText ++ "</noscript>") src
70+ then "e"
71+ else "'" ++ text' ++ "'"
72+ altText = if src' == ("mailto:" ++ text')
73+ then name ++ " at " ++ domain'
74+ else text' ++ " (" ++ name ++ " at " ++
76+ "<script type=\"text/javascript\">\n<!--\nh='" ++
77+ obfuscateString domain ++ "';a='" ++ at' ++ "';n='" ++
78+ obfuscateString name ++ "';e=n+a+h;\n" ++
79+ "document.write('<a h'+'ref'+'=\"ma'+'ilto'+':'+e+'\">'+" ++
80+ linkText ++ "+'<\\/'+'a'+'>');\n// -->\n</script><noscript>" ++
81+ obfuscateString altText ++ "</noscript>"
82+ _ -> "<a href=\"" ++ src ++ "\">" ++ text' ++ "</a>" -- malformed email
71-- | Obfuscate character as entity.
84-- | Obfuscate character as entity.
72obfuscateChar :: Char -> String
85obfuscateChar :: Char -> String
@@ -75,6 +88,10 @@ obfuscateChar char =
75 let numstr = if even num then (show num) else ("x" ++ (showHex num "")) in
88 let numstr = if even num then (show num) else ("x" ++ (showHex num "")) in
76 "&#" ++ numstr ++ ";"
89 "&#" ++ numstr ++ ";"
91+-- | Obfuscate string using entities.
92+obfuscateString :: String -> String
93+obfuscateString = concatMap obfuscateChar
78-- | Escape string, preserving character entities and quote.
95-- | Escape string, preserving character entities and quote.
79stringToHtml :: String -> String
96stringToHtml :: String -> String
80stringToHtml str = escapePreservingRegex stringToHtmlString
97stringToHtml str = escapePreservingRegex stringToHtmlString