From da117c9d68fb2169b43dda6131bfa35856113347 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Tue, 16 Mar 2010 04:06:33 +0000 Subject: LaTeX writer: support figures with captions. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1892 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/LaTeX.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Text/Pandoc/Writers/LaTeX.hs') 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 -- cgit v1.2.3