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