Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

DocBook reader: Implemented refsectN, refsection.

Browse source
This commit is contained in:
John MacFarlane 2012-05-02 11:22:05 -07:00
parent 95a6b93f5a
commit 4c825cf045
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Text/Pandoc/Readers/DocBook.hs
View file

@ -326,13 +326,13 @@ List of all DocBook tags, with [x] indicating implemented,
[ ] refnamediv - The name, purpose, and classification of a reference page [ ] refnamediv - The name, purpose, and classification of a reference page
[ ] refpurpose - A short (one sentence) synopsis of the topic of a reference [ ] refpurpose - A short (one sentence) synopsis of the topic of a reference
page page
[ ] refsect1 - A major subsection of a reference entry [x] refsect1 - A major subsection of a reference entry
[ ] refsect1info - Meta-information for a RefSect1 [ ] 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 [ ] 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 [ ] 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 [ ] refsectioninfo - Meta-information for a refsection
[ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page [ ] refsynopsisdiv - A syntactic synopsis of the subject of the reference page
[ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv [ ] refsynopsisdivinfo - Meta-information for a RefSynopsisDiv
@ -576,6 +576,10 @@ parseBlock (Elem e) =
"sect4" -> sect 4 "sect4" -> sect 4
"sect5" -> sect 5 "sect5" -> sect 5
"section" -> gets dbSectionLevel >>= sect . (+1) "section" -> gets dbSectionLevel >>= sect . (+1)
"refsect1" -> sect 1
"refsect2" -> sect 2
"refsect3" -> sect 3
"refsection" -> gets dbSectionLevel >>= sect . (+1)
"qandadiv" -> gets dbSectionLevel >>= sect . (+1) "qandadiv" -> gets dbSectionLevel >>= sect . (+1)
"question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e "question" -> addToStart (strong (str "Q:") <> str " ") <$> getBlocks e
"answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e "answer" -> addToStart (strong (str "A:") <> str " ") <$> getBlocks e