aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-01-21 11:28:35 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2013-01-21 11:28:35 -0800
commit26d30d6d38dca9e6c7fd5db812e5646e367ff5aa (patch)
treea4eb7130f32998899554b652f6d2d833e1d6fe8e /src/Text/Pandoc
parentaf849537819885694cc4487056721480ab21067d (diff)
downloadpandoc-26d30d6d38dca9e6c7fd5db812e5646e367ff5aa.tar.gz
Use proportional font for email autolinks with obfuscation.
Closes #714.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 32d52f3e7..da03d495d 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -341,7 +341,7 @@ obfuscateLink opts txt s =
at' = obfuscateChar '@'
(linkText, altText) =
if txt == drop 7 s' -- autolink
- then ("'<code>'+e+'</code>'", name' ++ " at " ++ domain')
+ then ("e", name' ++ " at " ++ domain')
else ("'" ++ txt ++ "'", txt ++ " (" ++ name' ++ " at " ++
domain' ++ ")")
in case meth of