Texinfo writer: Handle images in figures.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1901 788f1e2b-df1e-0410-8736-df70ead52e1b

src/Text/Pandoc/Writers/Texinfo.hs

@@ -107,6 +107,12 @@ blockToTexinfo Null = return empty
 blockToTexinfo (Plain lst) =
   inlineListToTexinfo lst
 
+blockToTexinfo (Para [Image txt (src,tit)]) = do
+  capt <- inlineListToTexinfo txt
+  img  <- inlineToTexinfo (Image txt (src,tit))
+  return $ text "@float" $$ img $$ (text "@caption{" <> capt <> char '}') $$
+           text "@end float"
+
 blockToTexinfo (Para lst) =
   inlineListToTexinfo lst    -- this is handled differently from Plain in blockListToTexinfo
 

tests/writer.texinfo

@@ -977,7 +977,10 @@ or here: <http://example.com/>
 @chapter Images
 From ``Voyage dans la Lune'' by Georges Melies (1902):
 
+@float
 @image{lalune,,,lalune,jpg}
+@caption{lalune}
+@end float
 
 Here is a movie @image{movie,,,movie,jpg} icon.