@@ -124,6 +124,14 @@ blockToDocbook :: WriterOptions -> Block -> Doc
124blockToDocbook _ Null = empty
124blockToDocbook _ Null = empty
125blockToDocbook _ (Header _ _) = empty -- should not occur after hierarchicalize
125blockToDocbook _ (Header _ _) = empty -- should not occur after hierarchicalize
126blockToDocbook opts (Plain lst) = wrap opts lst
126blockToDocbook opts (Plain lst) = wrap opts lst
127+blockToDocbook opts (Para [Image txt (src,_)]) =
128+ let capt = inlinesToDocbook opts txt
129+ in inTagsIndented "figure" $
130+ inTagsSimple "title" capt $$
131+ (inTagsIndented "mediaobject" $
132+ (inTagsIndented "imageobject"
133+ (selfClosingTag "imagedata" [("fileref",src)])) $$
134+ inTagsSimple "textobject" (inTagsSimple "phrase" capt))
127blockToDocbook opts (Para lst) = inTagsIndented "para" $ wrap opts lst
135blockToDocbook opts (Para lst) = inTagsIndented "para" $ wrap opts lst
128blockToDocbook opts (BlockQuote blocks) =
136blockToDocbook opts (BlockQuote blocks) =
129 inTagsIndented "blockquote" $ blocksToDocbook opts blocks
137 inTagsIndented "blockquote" $ blocksToDocbook opts blocks