@@ -231,8 +231,13 @@ blockCommands = M.fromList $
231 , ("subsubsection", section 3)
231 , ("subsubsection", section 3)
232 , ("paragraph", section 4)
232 , ("paragraph", section 4)
233 , ("subparagraph", section 5)
233 , ("subparagraph", section 5)
235+ , ("frametitle", section 3)
236+ , ("framesubtitle", section 4)
234 , ("opening", (para . trimInlines) <$> tok)
238 , ("opening", (para . trimInlines) <$> tok)
235 , ("closing", closing)
239 , ("closing", closing)
236 , ("rule", optional opt *> tok *> tok *> pure horizontalRule)
241 , ("rule", optional opt *> tok *> tok *> pure horizontalRule)
237 , ("begin", mzero) -- these are here so they won't be interpreted as inline
242 , ("begin", mzero) -- these are here so they won't be interpreted as inline
238 , ("end", mzero)
243 , ("end", mzero)