From b2a8731e32c27a230a970b747df13ad84d473b5d Mon Sep 17 00:00:00 2001 From: Clare Macrae Date: Mon, 15 Jul 2013 09:35:04 +0100 Subject: Weak implementation of hyperlinks for dokuwiki (#386) TODO Simplify the code --- src/Text/Pandoc/Writers/DokuWiki.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index 0169e0931..b6929ad1e 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -386,7 +386,7 @@ inlineToDokuWiki opts (Link txt (src, _)) = do case txt of [Str s] | escapeURI s == src -> return src _ -> if isURI src - then return $ "[" ++ src ++ " " ++ label ++ "]" + then return $ "[[" ++ src ++ "|" ++ label ++ "]]" else return $ "[[" ++ src' ++ "|" ++ label ++ "]]" where src' = case src of '/':xs -> xs -- with leading / it's a -- cgit v1.2.3