diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 15:36:14 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 15:36:14 -0700 |
| commit | 80467d1b184a045a30db78f84084b7af76a5f89b (patch) | |
| tree | d1aff6e3e349b506a1ccbf99f9583fdbf4f8ea8a /src/Text/Pandoc | |
| parent | fbf7cbfdc8842e30efa082b2a7651d2341358656 (diff) | |
| download | pandoc-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.hs | 2 |
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 ++ "]]" |