From 4d9a1324aedaac2a73bcf611687655453b400748 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 10 May 2012 10:10:20 -0700 Subject: DocBook reader: areaspec, area, areaset --- src/Text/Pandoc/Readers/DocBook.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3