From 4c825cf0453a45ddc524fa27b3741ff0015ae115 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 2 May 2012 11:22:05 -0700 Subject: DocBook reader: Implemented refsectN, refsection. --- src/Text/Pandoc/Readers/DocBook.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index ab5396834..cfc7fb8ff 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -326,13 +326,13 @@ List of all DocBook tags, with [x] indicating implemented, [ ] refnamediv - The name, purpose, and classification of a reference page [ ] refpurpose - A short (one sentence) synopsis of the topic of a reference page -[ ] refsect1 - A major subsection of a reference entry +[x] refsect1 - A major subsection of a reference entry [ ] refsect1info - Meta-information for a RefSect1 -[ ] refsect2 - A subsection of a RefSect1 +[x] refsect2 - A subsection of a RefSect1 [ ] refsect2info - Meta-information for a RefSect2 -[ ] refsect3 - A subsection of a RefSect2 +[x] refsect3 - A subsection of a RefSect2 [ ] refsect3info - Meta-information for a RefSect3 -[ ] refsection - A recursive section in a refentry +[x] refsection - A recursive section in a refentry [ ] refsectioninfo - Meta-information for a refsection [ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page [ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv @@ -576,6 +576,10 @@ parseBlock (Elem e) = "sect4" -> sect 4 "sect5" -> sect 5 "section" -> gets dbSectionLevel >>= sect . (+1) + "refsect1" -> sect 1 + "refsect2" -> sect 2 + "refsect3" -> sect 3 + "refsection" -> gets dbSectionLevel >>= sect . (+1) "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