summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/DocBook.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-05-12 12:17:36 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-05-12 12:17:36 -0700
commit9d44dc388733fa47e4b493ded9eb50736dc25a18 (patch)
treee889a82d34687ec362b919ec83f1d05796d19207 /src/Text/Pandoc/Readers/DocBook.hs
parent3d15d4c668f0d76125e0c6567d09ec2fdb69b9a2 (diff)
DocBook reader: Support bridgehead.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index b2340e750..9b4acef12 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -65,7 +65,7 @@ List of all DocBook tags, with [x] indicating implemented,
[x] blockquote - A quotation set off from the main text
[x] book - A book
[x] bookinfo - Meta-information for a Book
-[ ] bridgehead - A free-floating heading
+[x] bridgehead - A free-floating heading
[ ] callout - A “called out” description of a marked Area
[ ] calloutlist - A list of Callouts
[x] caption - A caption
@@ -552,7 +552,7 @@ isBlockElement (Elem e) = qName (elName e) `elem` blocktags
"ackno","epigraph","blockquote","bibliography","bibliodiv",
"biblioentry","glossee","glosseealso","glossary",
"glossdiv","glosslist","chapter","appendix","preface",
- "sect1","sect2","sect3","sect4","sect5","section",
+ "bridgehead","sect1","sect2","sect3","sect4","sect5","section",
"refsect1","refsect2","refsect3","refsection",
"important","caution","note","tip","warning","qandadiv",
"question","answer","abstract","itemizedlist","orderedlist",
@@ -630,6 +630,7 @@ parseBlock (Elem e) =
"chapter" -> sect 0
"appendix" -> sect 0
"preface" -> sect 0
+ "bridgehead" -> para . strong <$> getInlines e
"sect1" -> sect 1
"sect2" -> sect 2
"sect3" -> sect 3