From d033fc9d3e2ea572bf00ca0dd04426795fab4c49 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 5 Jan 2011 10:11:24 -0800
Subject: LaTeX reader: Skip \index commands.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index f0b5542fa..0e376f1a5 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -40,7 +40,7 @@ import Text.Pandoc.Parsing
 import Data.Maybe ( fromMaybe )
 import Data.Char ( chr, toUpper )
 import Data.List ( isPrefixOf, isSuffixOf )
-import Control.Monad ( when )
+import Control.Monad ( when, guard )
 
 -- | Parse LaTeX from string and return 'Pandoc' document.
 readLaTeX :: ParserState   -- ^ Parser state, including options for parser
@@ -478,6 +478,7 @@ inline =  choice [ str
                  , accentedChar
                  , nonbreakingSpace
                  , cite
+                 , index
                  , specialChar
                  , rawLaTeXInline'
                  , escapedChar
@@ -814,6 +815,12 @@ footnote = try $ do
 cite :: GenParser Char ParserState Inline
 cite = simpleCite <|> complexNatbibCites
 
+index :: GenParser Char ParserState Inline
+index = try $ do
+  (name, _, _) <- command
+  guard $ name == "index"
+  return $ Str ""
+
 simpleCiteArgs :: GenParser Char ParserState [Citation]
 simpleCiteArgs = try $ do
   first  <- optionMaybe $ (char '[') >> manyTill inline (char ']')
-- 
cgit v1.2.3