diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-02 11:22:05 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-02 11:22:05 -0700 |
| commit | 4c825cf0453a45ddc524fa27b3741ff0015ae115 (patch) | |
| tree | 6b0b2bb1dabb658bec3d2a7106dedde457305136 /src | |
| parent | 95a6b93f5ac944c5146a15aa99fcdc9bfcbe19a8 (diff) | |
| download | pandoc-4c825cf0453a45ddc524fa27b3741ff0015ae115.tar.gz | |
DocBook reader: Implemented refsectN, refsection.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 12 |
1 files changed, 8 insertions, 4 deletions
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 |