@@ -161,7 +161,7 @@ blockToLaTeX :: Block -- ^ Block to convert
161blockToLaTeX Null = return empty
161blockToLaTeX Null = return empty
162blockToLaTeX (Plain lst) = inlineListToLaTeX lst
162blockToLaTeX (Plain lst) = inlineListToLaTeX lst
163blockToLaTeX (Para [Image txt (src,tit)]) = do
163blockToLaTeX (Para [Image txt (src,tit)]) = do
164− capt <- inlineListToLaTeX txt
164+ capt <- inlineListToLaTeX $ deVerb txt
165 img <- inlineToLaTeX (Image txt (src,tit))
165 img <- inlineToLaTeX (Image txt (src,tit))
166 return $ "\\begin{figure}[htbp]" $$ "\\centering" $$ img $$
166 return $ "\\begin{figure}[htbp]" $$ "\\centering" $$ img $$
167 ("\\caption{" <> capt <> char '}') $$ "\\end{figure}" $$ blankline
167 ("\\caption{" <> capt <> char '}') $$ "\\end{figure}" $$ blankline
@@ -272,7 +272,7 @@ blockToLaTeX (Table caption aligns widths heads rows) = do
272 headers <- if all null heads
272 headers <- if all null heads
273 then return empty
273 then return empty
274 else liftM ($$ "\\hline") $ (tableRowToLaTeX widths) heads
274 else liftM ($$ "\\hline") $ (tableRowToLaTeX widths) heads
275− captionText <- inlineListToLaTeX caption
275+ captionText <- inlineListToLaTeX $ deVerb caption
276 rows' <- mapM (tableRowToLaTeX widths) rows
276 rows' <- mapM (tableRowToLaTeX widths) rows
277 let colDescriptors = concat $ zipWith toColDescriptor widths aligns
277 let colDescriptors = concat $ zipWith toColDescriptor widths aligns
278 let tableBody = text ("\\begin{tabular}{" ++ colDescriptors ++ "}") $$
278 let tableBody = text ("\\begin{tabular}{" ++ colDescriptors ++ "}") $$