@@ -40,6 +40,7 @@ import Text.PrettyPrint.HughesPJ hiding ( Str )
4040data WriterState =
4141 WriterState { stInNote :: Bool -- @True@ if we're in a note
4242 , stOLLevel :: Int -- level of ordered list nesting
43+ , stUsedIdents :: [String] -- identifiers used already
4344 , stOptions :: WriterOptions -- writer options, so they don't have to be parameter
4445 , stVerbInNote :: Bool -- true if document has verbatim text in note
4546 , stEnumerate :: Bool -- true if document needs fancy enumerated lists
@@ -56,8 +57,8 @@ data WriterState =
5657writeLaTeX :: WriterOptions -> Pandoc -> String
5758writeLaTeX options document =
5859 evalState (pandocToLaTeX options document) $
59− WriterState { stInNote = False, stOLLevel = 1, stOptions = options,
60− stVerbInNote = False, stEnumerate = False,
60+ WriterState { stInNote = False, stOLLevel = 1, stUsedIdents = [],
61+ stOptions = options, stVerbInNote = False, stEnumerate = False,
6162 stTable = False, stStrikeout = False, stSubscript = False,
6263 stUrl = False, stGraphics = False,
6364 stLHS = False, stBook = False }
@@ -133,8 +134,14 @@ blockToLaTeX (Plain lst) = do
133134blockToLaTeX (Para [Image txt (src,tit)]) = do
134135 capt <- inlineListToLaTeX txt
135136 img <- inlineToLaTeX (Image txt (src,tit))
136− return $ text "\\begin{figure}[htb]" $$ text "\\centering" $$ img $$
137− (text "\\caption{" <> capt <> char '}') $$ text "\\end{figure}\n"
137+ st <- get
138+ let usedIdents = stUsedIdents st
139+ let lab = uniqueIdent txt usedIdents
140+ put $ st{ stUsedIdents = lab : usedIdents }
141+ return $ text "\\begin{figure}[htb]" $$
142+ text "\\centering" $$ img $$
143+ (text "\\caption{" <> capt <> text ("}\\label{" ++ lab ++ "}")) $$
144+ text "\\end{figure}\n"
138145blockToLaTeX (Para lst) = do
139146 st <- get
140147 let opts = stOptions st