@@ -76,7 +76,12 @@ addBlocks opts = foldr (addBlock opts) []
7676
7777addBlock :: ReaderOptions -> Node -> [Block] -> [Block]
7878addBlock opts (Node _ PARAGRAPH nodes) =
79− (Para (addInlines opts nodes) :)
79+ case addInlines opts nodes of
80+ [Image attr alt (src,tit)]
81+ | isEnabled Ext_implicit_figures opts
82+ -- the "fig:" prefix indicates an implicit figure
83+ -> (Para [Image attr alt (src, "fig:" <> tit)] :)
84+ ils -> (Para ils :)
8085addBlock _ (Node _ THEMATIC_BREAK _) =
8186 (HorizontalRule :)
8287addBlock opts (Node _ BLOCK_QUOTE nodes) =