@@ -163,7 +163,7 @@ blockToLaTeX (Plain lst) = inlineListToLaTeX lst
163163blockToLaTeX (Para [Image txt (src,tit)]) = do
164164 capt <- inlineListToLaTeX txt
165165 img <- inlineToLaTeX (Image txt (src,tit))
166− return $ "\\begin{figure}[htb]" $$ "\\centering" $$ img $$
166+ return $ "\\begin{figure}[htbp]" $$ "\\centering" $$ img $$
167167 ("\\caption{" <> capt <> char '}') $$ "\\end{figure}" $$ blankline
168168blockToLaTeX (Para lst) = do
169169 result <- inlineListToLaTeX lst