diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 20:11:07 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 20:11:07 -0700 |
| commit | 523acadd5ba16893c2a6751dbb50327754f2dd07 (patch) | |
| tree | 81a749480a5370f5fe68178d78024fae10128d76 /src/Text | |
| parent | 84d213baff79c44b0960b9b9a64b232a42abc97a (diff) | |
| download | pandoc-523acadd5ba16893c2a6751dbb50327754f2dd07.tar.gz | |
DocBook reader: Skip index.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 11 |
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 |