diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index d8f332c04..b323c11cd 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -26,11 +26,11 @@ List of all DocBook tags, with [x] indicating implemented, [o] address - A real-world address, generally a postal address [ ] affiliation - The institutional affiliation of an individual [ ] alt - Text representation for a graphical element -[ ] anchor - A spot in the document +[o] anchor - A spot in the document [x] answer - An answer to a question posed in a QandASet [x] appendix - An appendix in a Book or Article -[ ] appendixinfo - Meta-information for an Appendix -[ ] application - The name of a software program +[x] appendixinfo - Meta-information for an Appendix +[o] application - The name of a software program [x] area - A region defined for a Callout in a graphic or code example [x] areaset - A set of related areas in a graphic or code example [x] areaspec - A collection of regions in a graphic or code example @@ -46,14 +46,14 @@ List of all DocBook tags, with [x] indicating implemented, [ ] authorgroup - Wrapper for author information when a document has multiple authors or collabarators [x] authorinitials - The initials or other short identifier for an author -[ ] beginpage - The location of a page break in a print version of the document +[o] beginpage - The location of a page break in a print version of the document [ ] bibliocoverage - The spatial or temporal coverage of a document -[ ] bibliodiv - A section of a Bibliography -[ ] biblioentry - An entry in a Bibliography -[ ] bibliography - A bibliography +[x] bibliodiv - A section of a Bibliography +[x] biblioentry - An entry in a Bibliography +[x] bibliography - A bibliography [ ] bibliographyinfo - Meta-information for a Bibliography [ ] biblioid - An identifier for a document -[ ] bibliolist - A wrapper for a set of bibliography entries +[o] bibliolist - A wrapper for a set of bibliography entries [ ] bibliomisc - Untyped bibliographic information [ ] bibliomixed - An entry in a Bibliography [ ] bibliomset - A cooked container for related bibliographic information @@ -593,6 +593,13 @@ parseBlock (Elem e) = "titleabbrev" -> return mempty "authorinitials" -> return mempty "title" -> return mempty -- handled by getTitle or sect + "bibliography" -> do + book <- gets dbBook + if book then sect 0 else sect 1 + "bibliodiv" -> do + book <- gets dbBook + if book then sect 1 else sect 2 + "biblioentry" -> para <$> getInlines e "chapter" -> sect 0 "appendix" -> sect 0 "preface" -> sect 0 @@ -644,6 +651,7 @@ parseBlock (Elem e) = "info" -> getTitle >> getAuthors >> getDate >> return mempty "articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty "chapterinfo" -> return mempty -- keywords & other metadata + "appendixinfo" -> return mempty -- keywords & other metadata "bookinfo" -> getTitle >> getAuthors >> getDate >> return mempty "article" -> modify (\st -> st{ dbBook = False }) >> getTitle >> getBlocks e |