From ffef28e86034db75d5c09ba4c6b5818922ef05ee Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 7 May 2012 10:06:11 -0700 Subject: DocBook reader: Skip chapterinfo. --- src/Text/Pandoc/Readers/DocBook.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 7ddca20ff..b13c4bf2c 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -71,7 +71,7 @@ List of all DocBook tags, with [x] indicating implemented, [x] caption - A caption [x] caution - A note of caution [x] chapter - A chapter, as of a book -[ ] chapterinfo - Meta-information for a Chapter +[x] chapterinfo - Meta-information for a Chapter [ ] citation - An inline bibliographic reference to another published work [ ] citebiblioid - A citation of a bibliographic identifier [ ] citerefentry - A citation to a reference page @@ -619,6 +619,7 @@ parseBlock (Elem e) = "caption" -> return mempty "info" -> getTitle >> getAuthors >> getDate >> return mempty "articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty + "chapterinfo" -> return mempty -- keywords & other metadata "bookinfo" -> getTitle >> getAuthors >> getDate >> return mempty "article" -> modify (\st -> st{ dbBook = False }) >> getTitle >> getBlocks e -- cgit v1.2.3