@@ -250,9 +250,12 @@ inlineToLaTeX (HtmlInline str) = return ""
250inlineToLaTeX (LineBreak) = return "\\\\\n"
250inlineToLaTeX (LineBreak) = return "\\\\\n"
251inlineToLaTeX Space = return " "
251inlineToLaTeX Space = return " "
252inlineToLaTeX (Link text (src, tit)) = do
252inlineToLaTeX (Link text (src, tit)) = do
253− contents <- inlineListToLaTeX $ deVerb text
254 addToHeader "\\usepackage[breaklinks=true]{hyperref}"
253 addToHeader "\\usepackage[breaklinks=true]{hyperref}"
255+ [Code x] | x == src -> -- autolink
256+ return $ "\\url{" ++ x ++ "}"
257+ _ -> do contents <- inlineListToLaTeX $ deVerb text
255− return $ "\\href{" ++ src ++ "}{" ++ contents ++ "}"
258+ return $ "\\href{" ++ src ++ "}{" ++ contents ++ "}"
256inlineToLaTeX (Image alternate (source, tit)) = do
259inlineToLaTeX (Image alternate (source, tit)) = do
257 addToHeader "\\usepackage{graphicx}"
260 addToHeader "\\usepackage{graphicx}"
258 return $ "\\includegraphics{" ++ source ++ "}"
261 return $ "\\includegraphics{" ++ source ++ "}"