diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-16 04:06:33 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-16 04:06:33 +0000 |
| commit | da117c9d68fb2169b43dda6131bfa35856113347 (patch) | |
| tree | ca89ba7a2803aa3d3c00a1d5cf605b3f4ac5ef56 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | cb31c89eab45319348b5d8d79dbec5acef8a945b (diff) | |
LaTeX writer: support figures with captions.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1892 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 5 |
1 files changed, 5 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 |