@@ -577,7 +577,8 @@ inlineToLaTeX (Link txt (src, _)) =
577 case txt of
577 case txt of
578 [Code _ x] | x == src -> -- autolink
578 [Code _ x] | x == src -> -- autolink
579 do modify $ \s -> s{ stUrl = True }
579 do modify $ \s -> s{ stUrl = True }
580+ src' <- stringToLaTeX True x
580− return $ text $ "\\url{" ++ x ++ "}"
581+ return $ text $ "\\url{" ++ src' ++ "}"
581 _ -> do contents <- inlineListToLaTeX txt
582 _ -> do contents <- inlineListToLaTeX txt
582 src' <- stringToLaTeX True src
583 src' <- stringToLaTeX True src
583 return $ text ("\\href{" ++ src' ++ "}{") <>
584 return $ text ("\\href{" ++ src' ++ "}{") <>