aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-05-10 20:11:07 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-05-10 20:11:07 -0700
commit523acadd5ba16893c2a6751dbb50327754f2dd07 (patch)
tree81a749480a5370f5fe68178d78024fae10128d76 /src/Text/Pandoc/Readers
parent84d213baff79c44b0960b9b9a64b232a42abc97a (diff)
downloadpandoc-523acadd5ba16893c2a6751dbb50327754f2dd07.tar.gz
DocBook reader: Skip index.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs11
1 files changed, 6 insertions, 5 deletions
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