@@ -211,11 +211,17 @@ blockToRST :: PandocMonad m
211211 => Block -- ^ Block element
212212 -> RST m Doc
213213blockToRST Null = return empty
214−blockToRST (Div attr bs) = do
214+blockToRST (Div (ident,classes,_kvs) bs) = do
215215 contents <- blockListToRST bs
216− let startTag = ".. raw:: html" $+$ nest 3 (tagWithAttrs "div" attr)
217− let endTag = ".. raw:: html" $+$ nest 3 "</div>"
218− return $ blankline <> startTag $+$ contents $+$ endTag $$ blankline
216+ let classes' = filter (/= "container") classes
217+ return $ blankline $$
218+ (".. container::" <> space <>
219+ text (unwords classes')) $$
220+ (if null ident
221+ then blankline
222+ else " :name: " <> text ident $$ blankline) $$
223+ nest 3 contents $$
224+ blankline
219225blockToRST (Plain inlines) = inlineListToRST inlines
220226-- title beginning with fig: indicates that the image is a figure
221227blockToRST (Para [Image attr txt (src,'f':'i':'g':':':tit)]) = do