f1eb3b3 · typeable/pandoc

git.iko.soy/typeable/pandoc

Add original classes to JS obfuscated links (#3554)

HTML links containing classes originally now preserve them when using javascript email obfuscation. Fixes #2989

commitf1eb3b316904a20ccde4b60aa62977ad73e2d6a2 authorTimm Albers <timmm.albers@gmail.com> dateTue 4 Apr 2017, 10:36 (10 years ago) parent7410d25

1 file changed+4−1

unifiedsplit

src/Text/Pandoc/Writers/HTML.hs+4−1

@@ -475,6 +475,8 @@ obfuscateLink opts attr (renderHtml -> txt) s =

475475 then ("e", name' ++ " at " ++ domain')

476476 else ("'" ++ obfuscateString txt ++ "'",

477477 txt ++ " (" ++ name' ++ " at " ++ domain' ++ ")")

478+ (_, classNames, _) = attr

479+ classNamesStr = concatMap (' ':) classNames

478480 in case meth of

479481 ReferenceObfuscation ->

480482 -- need to use preEscapedString or &'s are escaped to & in URL

@@ -487,7 +489,8 @@ obfuscateLink opts attr (renderHtml -> txt) s =

487489 preEscapedString ("\n<!--\nh='" ++

488490 obfuscateString domain ++ "';a='" ++ at' ++ "';n='" ++

489491 obfuscateString name' ++ "';e=n+a+h;\n" ++

490− "document.write('<a h'+'ref'+'=\"ma'+'ilto'+':'+e+'\" clas'+'s=\"em' + 'ail\">'+" ++

492+ "document.write('<a h'+'ref'+'=\"ma'+'ilto'+':'+e+'\" clas'+'s=\"em' + 'ail" ++

493+ classNamesStr ++ "\">'+" ++

491494 linkText ++ "+'<\\/'+'a'+'>');\n// -->\n")) >>

492495 H.noscript (preEscapedString $ obfuscateString altText)

493496 _ -> throwError $ PandocSomeError $ "Unknown obfuscation method: " ++ show meth