diff options
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 5 | ||||
-rw-r--r-- | tests/writer.latex | 4 |
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. |