@@ -326,13 +326,13 @@ List of all DocBook tags, with [x] indicating implemented,
326326[ ] refnamediv - The name, purpose, and classification of a reference page
327327[ ] refpurpose - A short (one sentence) synopsis of the topic of a reference
328328 page
329−[ ] refsect1 - A major subsection of a reference entry
329+[x] refsect1 - A major subsection of a reference entry
330330[ ] refsect1info - Meta-information for a RefSect1
331−[ ] refsect2 - A subsection of a RefSect1
331+[x] refsect2 - A subsection of a RefSect1
332332[ ] refsect2info - Meta-information for a RefSect2
333−[ ] refsect3 - A subsection of a RefSect2
333+[x] refsect3 - A subsection of a RefSect2
334334[ ] refsect3info - Meta-information for a RefSect3
335−[ ] refsection - A recursive section in a refentry
335+[x] refsection - A recursive section in a refentry
336336[ ] refsectioninfo - Meta-information for a refsection
337337[ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page
338338[ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv
@@ -576,6 +576,10 @@ parseBlock (Elem e) =
576576 "sect4" -> sect 4
577577 "sect5" -> sect 5
578578 "section" -> gets dbSectionLevel >>= sect . (+1)
579+ "refsect1" -> sect 1
580+ "refsect2" -> sect 2
581+ "refsect3" -> sect 3
582+ "refsection" -> gets dbSectionLevel >>= sect . (+1)
579583 "qandadiv" -> gets dbSectionLevel >>= sect . (+1)
580584 "question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e
581585 "answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e