@@ -327,6 +327,7 @@ ignoreBlocks name = (name, p)
327blockCommands :: PandocMonad m => M.Map String (LP m Blocks)
327blockCommands :: PandocMonad m => M.Map String (LP m Blocks)
328blockCommands = M.fromList $
328blockCommands = M.fromList $
329 [ ("par", mempty <$ skipopts)
329 [ ("par", mempty <$ skipopts)
330+ , ("parbox", braced >> grouped blocks)
330 , ("title", mempty <$ (skipopts *>
331 , ("title", mempty <$ (skipopts *>
331 (grouped inline >>= addMeta "title")
332 (grouped inline >>= addMeta "title")
332 <|> (grouped block >>= addMeta "title")))
333 <|> (grouped block >>= addMeta "title")))