@@ -130,6 +130,11 @@ blockToLaTeX (Plain lst) = do
130130 st <- get
131131 let opts = stOptions st
132132 wrapTeXIfNeeded opts True inlineListToLaTeX lst
133+blockToLaTeX (Para [Image txt (src,tit)]) = do
134+ capt <- inlineListToLaTeX txt
135+ img <- inlineToLaTeX (Image txt (src,tit))
136+ return $ text "\\begin{figure}[htb]" $$ text "\\centering" $$ img $$
137+ (text "\\caption{" <> capt <> char '}') $$ text "\\end{figure}\n"
133138blockToLaTeX (Para lst) = do
134139 st <- get
135140 let opts = stOptions st