DocBook reader: Skip toc tags.

1 files changed, 12 insertions, 11 deletions

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index b323c11cd..9ccfe41a8 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -447,23 +447,23 @@ List of all DocBook tags, with [x] indicating implemented,
 [x] title - The text of the title of a section of a document or of a formal
     block-level element
 [x] titleabbrev - The abbreviation of a Title
-[ ] toc - A table of contents
-[ ] tocback - An entry in a table of contents for a back matter component
-[ ] tocchap - An entry in a table of contents for a component in the body of
+[x] toc - A table of contents
+[x] tocback - An entry in a table of contents for a back matter component
+[x] tocchap - An entry in a table of contents for a component in the body of
     a document
-[ ] tocentry - A component title in a table of contents
-[ ] tocfront - An entry in a table of contents for a front matter component
-[ ] toclevel1 - A top-level entry within a table of contents entry for a
+[x] tocentry - A component title in a table of contents
+[x] tocfront - An entry in a table of contents for a front matter component
+[x] toclevel1 - A top-level entry within a table of contents entry for a
     chapter-like component
-[ ] toclevel2 - A second-level entry within a table of contents entry for a 
+[x] toclevel2 - A second-level entry within a table of contents entry for a 
     chapter-like component
-[ ] toclevel3 - A third-level entry within a table of contents entry for a 
+[x] toclevel3 - A third-level entry within a table of contents entry for a 
     chapter-like component
-[ ] toclevel4 - A fourth-level entry within a table of contents entry for a 
+[x] toclevel4 - A fourth-level entry within a table of contents entry for a 
     chapter-like component
-[ ] toclevel5 - A fifth-level entry within a table of contents entry for a 
+[x] toclevel5 - A fifth-level entry within a table of contents entry for a 
     chapter-like component
-[ ] tocpart - An entry in a table of contents for a part of a book
+[x] tocpart - An entry in a table of contents for a part of a book
 [ ] token - A unit of information
 [x] tr - A row in an HTML table
 [ ] trademark - A trademark
@@ -584,6 +584,7 @@ parseBlock (Text (CData _ s _)) = if all isSpace s
 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
         "para"  -> para <$> getInlines e
         "simpara"  -> para <$> getInlines e
         "ackno"  -> para <$> getInlines e