@@ -107,6 +107,12 @@ blockToTexinfo Null = return empty
107107blockToTexinfo (Plain lst) =
108108 inlineListToTexinfo lst
109109
110+blockToTexinfo (Para [Image txt (src,tit)]) = do
111+ capt <- inlineListToTexinfo txt
112+ img <- inlineToTexinfo (Image txt (src,tit))
113+ return $ text "@float" $$ img $$ (text "@caption{" <> capt <> char '}') $$
114+ text "@end float"
115+
110116blockToTexinfo (Para lst) =
111117 inlineListToTexinfo lst -- this is handled differently from Plain in blockListToTexinfo
112118