Texinfo writer: Handle images in figures.

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

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
index bd77c57bb..47a318631 100644
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/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