@@ -405,7 +405,7 @@ inline = choice [ strong, emph, strikeout, superscript, subscript,
405405 accentedChar, specialChar, specialInline, escapedChar,
406406 unescapedChar, str, endline, whitespace ] <?> "inline"
407407
408−specialInline = choice [ link, image, footnote, rawLaTeXInline ]
408+specialInline = choice [ url, link, image, footnote, rawLaTeXInline ]
409409 <?> "link, raw TeX, note, or image"
410410
411411accentedChar = normalAccentedChar <|> specialAccentedChar
@@ -654,6 +654,11 @@ math2 = try (do
654654-- links and images
655655--
656656
657+url = try (do
658+ string "\\url"
659+ url <- charsInBalanced '{' '}'
660+ return (Link [Code url] (url, "")))
661+
657662link = try (do
658663 string "\\href{"
659664 url <- manyTill anyChar (char '}')