aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:36:14 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:36:14 -0700
commit80467d1b184a045a30db78f84084b7af76a5f89b (patch)
treed1aff6e3e349b506a1ccbf99f9583fdbf4f8ea8a /src/Text/Pandoc
parentfbf7cbfdc8842e30efa082b2a7651d2341358656 (diff)
downloadpandoc-80467d1b184a045a30db78f84084b7af76a5f89b.tar.gz
DokuWiki writer: Use pointy brackets for email links.
(#1398)
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 9f748ffe5..05db00361 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -419,6 +419,8 @@ inlineToDokuWiki opts (Link txt (src, _)) = do
label <- inlineListToDokuWiki opts txt
case txt of
[Str s] | escapeURI s == src -> return src
+ | "mailto:" ++ escapeURI s == src -> return $
+ "<" ++ s ++ ">"
_ -> if isURI src
then return $ "[[" ++ src ++ "|" ++ label ++ "]]"
else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"