@@ -782,8 +782,8 @@ parseBlock (Elem e) =
782 "para" -> parseMixed para (elContent e)
782 "para" -> parseMixed para (elContent e)
783 "formalpara" -> do
783 "formalpara" -> do
784 tit <- case filterChild (named "title") e of
784 tit <- case filterChild (named "title") e of
785− Just t -> para . strong . (<> str ".") <$>
785+ Just t -> divWith ("",["formalpara-title"],[]) .
786− getInlines t
786+ para . strong <$> getInlines t
787 Nothing -> return mempty
787 Nothing -> return mempty
788 (tit <>) <$> parseMixed para (elContent e)
788 (tit <>) <$> parseMixed para (elContent e)
789 "simpara" -> parseMixed para (elContent e)
789 "simpara" -> parseMixed para (elContent e)