From 1a09a9d40f9f956045c9d3daaa0c1316310e6d17 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Wed, 17 Mar 2010 06:53:38 +0000
Subject: Revert "LaTeX writer: Add unique labels to figures."

This reverts commit be344321227a33c9a3f3e2031b88045f5159d1ff.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1896 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/LaTeX.hs | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

(limited to 'src/Text/Pandoc/Writers/LaTeX.hs')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index a3e6b9364..02fbf4add 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -40,7 +40,6 @@ import Text.PrettyPrint.HughesPJ hiding ( Str )
 data WriterState = 
   WriterState { stInNote     :: Bool          -- @True@ if we're in a note
               , stOLLevel    :: Int           -- level of ordered list nesting
-              , stUsedIdents :: [String]      -- identifiers used already
               , stOptions    :: WriterOptions -- writer options, so they don't have to be parameter 
               , stVerbInNote :: Bool          -- true if document has verbatim text in note
               , stEnumerate  :: Bool          -- true if document needs fancy enumerated lists
@@ -57,8 +56,8 @@ data WriterState =
 writeLaTeX :: WriterOptions -> Pandoc -> String
 writeLaTeX options document = 
   evalState (pandocToLaTeX options document) $ 
-  WriterState { stInNote = False, stOLLevel = 1, stUsedIdents = [],
-                stOptions = options, stVerbInNote = False, stEnumerate = False,
+  WriterState { stInNote = False, stOLLevel = 1, stOptions = options,
+                stVerbInNote = False, stEnumerate = False,
                 stTable = False, stStrikeout = False, stSubscript = False,
                 stUrl = False, stGraphics = False,
                 stLHS = False, stBook = False } 
@@ -134,14 +133,8 @@ blockToLaTeX (Plain lst) = do
 blockToLaTeX (Para [Image txt (src,tit)]) = do
   capt <- inlineListToLaTeX txt
   img <- inlineToLaTeX (Image txt (src,tit))
-  st <- get
-  let usedIdents = stUsedIdents st
-  let lab = uniqueIdent txt usedIdents
-  put $ st{ stUsedIdents = lab : usedIdents }
-  return $ text "\\begin{figure}[htb]" $$
-           text "\\centering" $$ img $$
-           (text "\\caption{" <> capt <> text ("}\\label{" ++ lab ++ "}")) $$
-           text "\\end{figure}\n"
+  return $ text "\\begin{figure}[htb]" $$ text "\\centering" $$ img $$
+           (text "\\caption{" <> capt <> char '}') $$ text "\\end{figure}\n"
 blockToLaTeX (Para lst) = do
   st <- get
   let opts = stOptions st
-- 
cgit v1.2.3