@@ -217,16 +217,15 @@ referenceKey = try $ do
217 lab <- reference
217 lab <- reference
219 skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[')
219 skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[')
220− let nl = char '\n' >> notFollowedBy blankline >> return ' '
221 let sourceURL = liftM unwords $ many $ try $ do
220 let sourceURL = liftM unwords $ many $ try $ do
222 notFollowedBy' referenceTitle
221 notFollowedBy' referenceTitle
223 skipMany spaceChar
222 skipMany spaceChar
224− optional nl
223+ optional $ newline >> notFollowedBy blankline
225 skipMany spaceChar
224 skipMany spaceChar
226 notFollowedBy' reference
225 notFollowedBy' reference
227− many1 (satisfy $ not . isBlank)
226+ many1 $ escapedChar' <|> satisfy (not . isBlank)
228 let betweenAngles = try $ char '<' >>
227 let betweenAngles = try $ char '<' >>
229− manyTill (noneOf ">\n" <|> nl) (char '>')
228+ manyTill (escapedChar' <|> litChar) (char '>')
230 src <- try betweenAngles <|> sourceURL
229 src <- try betweenAngles <|> sourceURL
231 tit <- option "" referenceTitle
230 tit <- option "" referenceTitle
232 blanklines
231 blanklines