From 523acadd5ba16893c2a6751dbb50327754f2dd07 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 10 May 2012 20:11:07 -0700
Subject: DocBook reader: Skip index.

---
 src/Text/Pandoc/Readers/DocBook.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 9ccfe41a8..b6e7d405a 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -177,11 +177,11 @@ List of all DocBook tags, with [x] indicating implemented,
 [ ] imageobject - A wrapper for image data and its associated meta-information
 [ ] imageobjectco - A wrapper for an image object with callouts
 [x] important - An admonition set off from the text
-[ ] index - An index
-[ ] indexdiv - A division in an index
-[ ] indexentry - An entry in an index
-[ ] indexinfo - Meta-information for an Index
-[ ] indexterm - A wrapper for terms to be indexed
+[x] index - An index
+[x] indexdiv - A division in an index
+[x] indexentry - An entry in an index
+[x] indexinfo - Meta-information for an Index
+[x] indexterm - A wrapper for terms to be indexed
 [x] info - A wrapper for information about a component or other block. (DocBook v5)
 [ ] informalequation - A displayed mathematical equation without a title
 [ ] informalexample - A displayed example without a title
@@ -585,6 +585,7 @@ parseBlock (CRef x) = return $ plain $ str $ map toUpper x
 parseBlock (Elem e) =
   case qName (elName e) of
         "toc"   -> return mempty -- skip TOC, since in pandoc it's autogenerated
+        "index" -> return mempty -- skip index, since page numbers meaningless
         "para"  -> para <$> getInlines e
         "simpara"  -> para <$> getInlines e
         "ackno"  -> para <$> getInlines e
-- 
cgit v1.2.3