diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-05 22:04:53 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-05 22:04:53 -0800 |
commit | 1a2eea23a19aeb838bfdb9f7c2fa4ef9e83e72f1 (patch) | |
tree | 60ba26e5c729bd66a4896a80e490d36234b9d4da /src/Text/Pandoc/Writers | |
parent | c5f1a8ad2d2f7972e2c3e8bd22686bb99e84356d (diff) | |
parent | d46f434d4b8906ae3b983e568549213de94fd1a2 (diff) | |
download | pandoc-1a2eea23a19aeb838bfdb9f7c2fa4ef9e83e72f1.tar.gz |
Merge branch 'citations'
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 4d848d55b..8ff5ff9de 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -614,7 +614,9 @@ inlineToMarkdown opts (LineBreak) | otherwise = return $ " " <> cr inlineToMarkdown _ Space = return space inlineToMarkdown opts (Cite (c:cs) lst) - | writerCiteMethod opts == Citeproc = inlineListToMarkdown opts lst + | writerCiteMethod opts == Citeproc && not (null lst) && + case lst of { RawInline "latex" _ : _ -> False; _ -> True} = + inlineListToMarkdown opts lst | citationMode c == AuthorInText = do suffs <- inlineListToMarkdown opts $ citationSuffix c rest <- mapM convertOne cs |