diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 10:10:20 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 10:10:20 -0700 |
| commit | 4d9a1324aedaac2a73bcf611687655453b400748 (patch) | |
| tree | 0fe962d6286ba7a0aa68f338134f1ae0e6930d1d /src/Text/Pandoc/Readers | |
| parent | 858bf197fedd46101b3371cd91e505ff79080643 (diff) | |
DocBook reader: areaspec, area, areaset
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index e3116bc6f..0d0adf649 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -31,9 +31,9 @@ List of all DocBook tags, with [x] indicating implemented, [x] appendix - An appendix in a Book or Article [ ] appendixinfo - Meta-information for an Appendix [ ] application - The name of a software program -[ ] area - A region defined for a Callout in a graphic or code example -[ ] areaset - A set of related areas in a graphic or code example -[ ] areaspec - A collection of regions in a graphic or code example +[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 [ ] arg - An argument in a CmdSynopsis [x] article - An article [x] articleinfo - Meta-information for an Article @@ -616,6 +616,9 @@ parseBlock (Elem e) = <$> getBlocks e "warning" -> blockQuote . (para (strong $ str "Warning") <>) <$> getBlocks e + "area" -> return mempty + "areaset" -> return mempty + "areaspec" -> return mempty "qandadiv" -> gets dbSectionLevel >>= sect . (+1) "question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e "answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e |