@@ -391,7 +391,7 @@ para = do
393bibliographic :: GenParser Char ParserState Block
393bibliographic :: GenParser Char ParserState Block
394−bibliographic = choice [ maketitle, title, authors, date ]
394+bibliographic = choice [ maketitle, title, subtitle, authors, date ]
396maketitle :: GenParser Char st Block
396maketitle :: GenParser Char st Block
397maketitle = try (string "\\maketitle") >> spaces >> return Null
397maketitle = try (string "\\maketitle") >> spaces >> return Null
@@ -404,6 +404,15 @@ title = try $ do
404 updateState (\state -> state { stateTitle = tit })
404 updateState (\state -> state { stateTitle = tit })
405 return Null
405 return Null
407+subtitle :: GenParser Char ParserState Block
409+ string "\\subtitle{"
410+ tit <- manyTill inline (char '}')
412+ updateState (\state -> state { stateTitle = stateTitle state ++
413+ Str ":" : LineBreak : tit })
407authors :: GenParser Char ParserState Block
416authors :: GenParser Char ParserState Block
408authors = try $ do
417authors = try $ do
409 string "\\author{"
418 string "\\author{"