LaTeX writer: support figures with captions.

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

2 files changed, 9 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 3362c1d25..02fbf4add 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -130,6 +130,11 @@ blockToLaTeX (Plain lst) = do
   st <- get
   let opts = stOptions st
   wrapTeXIfNeeded opts True inlineListToLaTeX lst
+blockToLaTeX (Para [Image txt (src,tit)]) = do
+  capt <- inlineListToLaTeX txt
+  img <- inlineToLaTeX (Image txt (src,tit))
+  return $ text "\\begin{figure}[htb]" $$ text "\\centering" $$ img $$
+           (text "\\caption{" <> capt <> char '}') $$ text "\\end{figure}\n"
 blockToLaTeX (Para lst) = do
   st <- get
   let opts = stOptions st
diff --git a/tests/writer.latex b/tests/writer.latex
index a23625252..dbefdb8fd 100644
--- a/tests/writer.latex
+++ b/tests/writer.latex
@@ -809,7 +809,11 @@ or here: <http://example.com/>
 
 From ``Voyage dans la Lune'' by Georges Melies (1902):
 
+\begin{figure}[htb]
+\centering
 \includegraphics{lalune.jpg}
+\caption{lalune}
+\end{figure}
 
 Here is a movie \includegraphics{movie.jpg} icon.