@@ -309,18 +309,19 @@ enquote starred mblang = do
309309 else doubleQuoted . langspan <$> withQuoteContext InDoubleQuote tok
310310
311311blockquote :: PandocMonad m => Bool -> Maybe Text -> LP m Blocks
312−blockquote citations mblang = do
313− citePar <- if citations
314− then do
315− cs <- cites NormalCitation False
316− return $ para (cite cs mempty)
317− else return mempty
312+blockquote cvariant mblang = do
313+ citepar <- if cvariant
314+ then (\xs -> para (cite xs mempty))
315+ <$> cites NormalCitation False
316+ else option mempty $ para <$> bracketed inline
318317 let lang = mblang >>= babelLangToBCP47
319318 let langdiv = case lang of
320319 Nothing -> id
321320 Just l -> divWith ("",[],[("lang", renderLang l)])
321+ _closingPunct <- option mempty $ bracketed inline -- currently ignored
322322 bs <- grouped block
323− return $ blockQuote . langdiv $ (bs <> citePar)
323+ optional $ symbolIn (".:;?!" :: [Char]) -- currently ignored
324+ return $ blockQuote . langdiv $ (bs <> citepar)
324325
325326doAcronym :: PandocMonad m => Text -> LP m Inlines
326327doAcronym form = do