aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs15
1 files changed, 8 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 8e73af4ae..5e46caedb 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -309,18 +309,19 @@ enquote starred mblang = do
else doubleQuoted . langspan <$> withQuoteContext InDoubleQuote tok
blockquote :: PandocMonad m => Bool -> Maybe Text -> LP m Blocks
-blockquote citations mblang = do
- citePar <- if citations
- then do
- cs <- cites NormalCitation False
- return $ para (cite cs mempty)
- else return mempty
+blockquote cvariant mblang = do
+ citepar <- if cvariant
+ then (\xs -> para (cite xs mempty))
+ <$> cites NormalCitation False
+ else option mempty $ para <$> bracketed inline
let lang = mblang >>= babelLangToBCP47
let langdiv = case lang of
Nothing -> id
Just l -> divWith ("",[],[("lang", renderLang l)])
+ _closingPunct <- option mempty $ bracketed inline -- currently ignored
bs <- grouped block
- return $ blockQuote . langdiv $ (bs <> citePar)
+ optional $ symbolIn (".:;?!" :: [Char]) -- currently ignored
+ return $ blockQuote . langdiv $ (bs <> citepar)
doAcronym :: PandocMonad m => Text -> LP m Inlines
doAcronym form = do