From 71da4f8c55a042498cdc2d8f3f3a02c5dd823c47 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 13 Jul 2014 15:45:45 -0700 Subject: DokuWiki writer: More tweaks to email links. (#1398) --- src/Text/Pandoc/Writers/DokuWiki.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Writers/DokuWiki.hs') diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index 05db00361..929715bd9 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -44,7 +44,7 @@ import Text.Pandoc.Options import Text.Pandoc.Shared import Text.Pandoc.Writers.Shared import Text.Pandoc.Templates (renderTemplate') -import Data.List ( intersect, intercalate ) +import Data.List ( intersect, intercalate, isPrefixOf ) import Network.URI ( isURI ) import Control.Monad.State @@ -418,9 +418,8 @@ inlineToDokuWiki _ Space = return " " 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 ++ ">" + [Str s] | "mailto:" `isPrefixOf` src -> return $ "<" ++ s ++ ">" + | escapeURI s == src -> return src _ -> if isURI src then return $ "[[" ++ src ++ "|" ++ label ++ "]]" else return $ "[[" ++ src' ++ "|" ++ label ++ "]]" -- cgit v1.2.3