@@ -271,7 +271,9 @@ ignoreBlocks name = (name, doraw <|> (mempty <$ optargs))
271271blockCommands :: M.Map String (LP Blocks)
272272blockCommands = M.fromList $
273273 [ ("par", mempty <$ skipopts)
274− , ("title", mempty <$ (skipopts *> tok >>= addMeta "title"))
274+ , ("title", mempty <$ (skipopts *>
275+ (grouped inline >>= addMeta "title")
276+ <|> (grouped block >>= addMeta "title")))
275277 , ("subtitle", mempty <$ (skipopts *> tok >>= addMeta "subtitle"))
276278 , ("author", mempty <$ (skipopts *> authors))
277279 -- -- in letter class, temp. store address & sig as title, author