diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-11-06 14:43:23 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-11-06 14:43:23 -0700 |
| commit | f7f6b2427d5bef595b819d30f16fb332397349d3 (patch) | |
| tree | a2fa101d6b15fbde1b0690761158ce05a2b2ea15 /src/Text/Pandoc/Readers | |
| parent | db037418477d9b85be15bc8f76b0ebc016f03668 (diff) | |
| download | pandoc-f7f6b2427d5bef595b819d30f16fb332397349d3.tar.gz | |
Changes to use citeproc-hs 0.3.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 030da9167..0256184f6 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1346,5 +1346,9 @@ parseLabel = try $ do (p',o) = if p /= [] && last p == '+' then (init p , True ) else (p , False) - return $ Citation cit (trim p') (trim loc) 0 o na 0 + mode = case (na,o) of + (True, False) -> SuppressAuthor + (False,True ) -> AuthorOnly + _ -> NormalCitation + return $ Citation cit (trim p') (trim loc) mode 0 0 #endif |