@@ -509,14 +509,14 @@ blockToLaTeX (Para [Image attr@(ident, _, _) txt (src,'f':'i':'g':':':tit)]) = d
509 let footnotes = notesToLaTeX notes
509 let footnotes = notesToLaTeX notes
510 lab <- labelFor ident
510 lab <- labelFor ident
511 let caption = "\\caption" <> captForLof <> braces capt <> lab
511 let caption = "\\caption" <> captForLof <> braces capt <> lab
512− let figure = cr <> "\\begin{figure}" $$ "\\centering" $$ img $$
513− caption $$ "\\end{figure}" <> cr
514− figure' <- hypertarget True ident figure
512+ innards <- hypertarget True ident $
513+ "\\centering" $$ img $$ caption <> cr
514+ let figure = cr <> "\\begin{figure}" $$ innards $$ "\\end{figure}"
515 return $ if inNote || inMinipage
515 return $ if inNote || inMinipage
516 -- can't have figures in notes or minipage (here, table cell)
516 -- can't have figures in notes or minipage (here, table cell)
517 -- http://www.tex.ac.uk/FAQ-ouparmd.html
517 -- http://www.tex.ac.uk/FAQ-ouparmd.html
518 then "\\begin{center}" $$ img $+$ capt $$ "\\end{center}"
518 then "\\begin{center}" $$ img $+$ capt $$ "\\end{center}"
519− else figure' $$ footnotes
519+ else figure $$ footnotes
520-- . . . indicates pause in beamer slides
520-- . . . indicates pause in beamer slides
521blockToLaTeX (Para [Str ".",Space,Str ".",Space,Str "."]) = do
521blockToLaTeX (Para [Str ".",Space,Str ".",Space,Str "."]) = do
522 beamer <- gets stBeamer
522 beamer <- gets stBeamer