@@ -326,13 +326,13 @@ List of all DocBook tags, with [x] indicating implemented,
326[ ] refnamediv - The name, purpose, and classification of a reference page
326[ ] refnamediv - The name, purpose, and classification of a reference page
327[ ] refpurpose - A short (one sentence) synopsis of the topic of a reference
327[ ] refpurpose - A short (one sentence) synopsis of the topic of a reference
329−[ ] refsect1 - A major subsection of a reference entry
329+[x] refsect1 - A major subsection of a reference entry
330[ ] refsect1info - Meta-information for a RefSect1
330[ ] refsect1info - Meta-information for a RefSect1
331−[ ] refsect2 - A subsection of a RefSect1
331+[x] refsect2 - A subsection of a RefSect1
332[ ] refsect2info - Meta-information for a RefSect2
332[ ] refsect2info - Meta-information for a RefSect2
333−[ ] refsect3 - A subsection of a RefSect2
333+[x] refsect3 - A subsection of a RefSect2
334[ ] refsect3info - Meta-information for a RefSect3
334[ ] refsect3info - Meta-information for a RefSect3
335−[ ] refsection - A recursive section in a refentry
335+[x] refsection - A recursive section in a refentry
336[ ] refsectioninfo - Meta-information for a refsection
336[ ] refsectioninfo - Meta-information for a refsection
337[ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page
337[ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page
338[ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv
338[ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv
@@ -576,6 +576,10 @@ parseBlock (Elem e) =
576 "sect4" -> sect 4
576 "sect4" -> sect 4
577 "sect5" -> sect 5
577 "sect5" -> sect 5
578 "section" -> gets dbSectionLevel >>= sect . (+1)
578 "section" -> gets dbSectionLevel >>= sect . (+1)
579+ "refsect1" -> sect 1
580+ "refsect2" -> sect 2
581+ "refsect3" -> sect 3
582+ "refsection" -> gets dbSectionLevel >>= sect . (+1)
579 "qandadiv" -> gets dbSectionLevel >>= sect . (+1)
583 "qandadiv" -> gets dbSectionLevel >>= sect . (+1)
580 "question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e
584 "question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e
581 "answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e
585 "answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e