From 271c3f987e468b77ac9209e9efe3bbaa51717039 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 3 Aug 2007 22:14:32 +0000 Subject: Use \url{} for autolinks in LaTeX writer. git-svn-id: https://pandoc.googlecode.com/svn/trunk@832 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/LaTeX.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 19365a0f5..d907e8b88 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -250,9 +250,12 @@ inlineToLaTeX (HtmlInline str) = return "" inlineToLaTeX (LineBreak) = return "\\\\\n" inlineToLaTeX Space = return " " inlineToLaTeX (Link text (src, tit)) = do - contents <- inlineListToLaTeX $ deVerb text addToHeader "\\usepackage[breaklinks=true]{hyperref}" - return $ "\\href{" ++ src ++ "}{" ++ contents ++ "}" + case text of + [Code x] | x == src -> -- autolink + return $ "\\url{" ++ x ++ "}" + _ -> do contents <- inlineListToLaTeX $ deVerb text + return $ "\\href{" ++ src ++ "}{" ++ contents ++ "}" inlineToLaTeX (Image alternate (source, tit)) = do addToHeader "\\usepackage{graphicx}" return $ "\\includegraphics{" ++ source ++ "}" -- cgit v1.2.3