@@ -130,6 +130,11 @@ blockToLaTeX (Plain lst) = do
130 st <- get
130 st <- get
131 let opts = stOptions st
131 let opts = stOptions st
132 wrapTeXIfNeeded opts True inlineListToLaTeX lst
132 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"
133blockToLaTeX (Para lst) = do
138blockToLaTeX (Para lst) = do
134 st <- get
139 st <- get
135 let opts = stOptions st
140 let opts = stOptions st