@@ -253,7 +253,10 @@ blockToAsciiDoc opts (OrderedList (_start, sty, _delim) items) = do
253blockToAsciiDoc opts (DefinitionList items) = do
253blockToAsciiDoc opts (DefinitionList items) = do
254 contents <- mapM (definitionListItemToAsciiDoc opts) items
254 contents <- mapM (definitionListItemToAsciiDoc opts) items
255 return $ cat contents <> blankline
255 return $ cat contents <> blankline
256−blockToAsciiDoc opts (Div _ bs) = blockListToAsciiDoc opts bs
256+blockToAsciiDoc opts (Div (ident,_,_) bs) = do
257+ let identifier = if (null ident) then empty else ("[[" <> text ident <> "]]")
258+ contents <- blockListToAsciiDoc opts bs
259+ return $ identifier $$ contents
258-- | Convert bullet list item (list of blocks) to asciidoc.
261-- | Convert bullet list item (list of blocks) to asciidoc.
259bulletListItemToAsciiDoc :: WriterOptions -> [Block] -> State WriterState Doc
262bulletListItemToAsciiDoc :: WriterOptions -> [Block] -> State WriterState Doc