Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Check biblio for all citations, not just textual.

Browse source
This commit is contained in:
John MacFarlane 2010-11-22 23:09:30 -08:00
parent 3c7c1d8574
commit b48fa0ea59
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -1332,9 +1332,6 @@ noneOfUnlessEscaped cs =
textualCite :: GenParser Char ParserState [Citation]
textualCite = try $ do
(_, key) <- citeKey
st <- getState
unless (key `elem` stateCitations st) $
fail "not a citation"
let first = Citation{ citationId = key
, citationPrefix = []
, citationSuffix = []
@ -1368,13 +1365,16 @@ normalCite = try $ do
char ']'
return citations
citeKey :: GenParser Char st (Bool, String)
citeKey :: GenParser Char ParserState (Bool, String)
citeKey = try $ do
suppress_author <- option False (char '-' >> return True)
char '@'
first <- letter
rest <- many $ (noneOf ",;]@ \t\n")
return (suppress_author, first:rest)
let key = first:rest
st <- getState
guard $ key `elem` stateCitations st
return (suppress_author, key)
locator :: GenParser Char st String
locator = try $ do