From 5d4932d7ef8e1edec31d99661ffe8e2f4a77244f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 11 Aug 2020 09:45:12 -0700
Subject: DocBook reader: Update list of block level tags.

This fixes #6610.
---
 src/Text/Pandoc/Readers/DocBook.hs | 93 ++++++++++++++++++++++++++++++++++----
 1 file changed, 83 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index b04952c27..dcdf6a764 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -628,16 +628,89 @@ isBlockElement (Elem e) = qName (elName e) `elem` blockTags
 isBlockElement _ = False
 
 blockTags :: [String]
-blockTags = ["toc","index","para","formalpara","simpara",
-           "ackno","epigraph","blockquote","bibliography","bibliodiv",
-           "biblioentry","glossee","glosseealso","glossary",
-           "glossdiv","glosslist","chapter","appendix","preface","bridgehead",
-           "sect1","sect2","sect3","sect4","sect5","section","simplesect",
-           "refsect1","refsect2","refsect3","refsection", "qandadiv",
-           "question","answer","abstract","itemizedlist","orderedlist",
-           "variablelist","article","book","table","informaltable",
-           "informalexample", "linegroup","procedure","substeps",
-           "screen","programlisting","example","calloutlist"] ++ admonitionTags
+blockTags =
+  [ "abstract"
+  , "ackno"
+  , "answer"
+  , "appendix"
+  , "appendixinfo"
+  , "area"
+  , "areaset"
+  , "areaspec"
+  , "article"
+  , "articleinfo"
+  , "attribution"
+  , "authorinitials"
+  , "bibliodiv"
+  , "biblioentry"
+  , "bibliography"
+  , "bibliomixed"
+  , "blockquote"
+  , "book"
+  , "bookinfo"
+  , "bridgehead"
+  , "calloutlist"
+  , "caption"
+  , "chapter"
+  , "chapterinfo"
+  , "epigraph"
+  , "example"
+  , "figure"
+  , "formalpara"
+  , "glossary"
+  , "glossaryinfo"
+  , "glossdiv"
+  , "glossee"
+  , "glosseealso"
+  , "glosslist"
+  , "glosssee"
+  , "glossseealso"
+  , "index"
+  , "info"
+  , "informalexample"
+  , "informaltable"
+  , "itemizedlist"
+  , "linegroup"
+  , "literallayout"
+  , "mediaobject"
+  , "orderedlist"
+  , "para"
+  , "preface"
+  , "procedure"
+  , "programlisting"
+  , "qandadiv"
+  , "question"
+  , "refsect1"
+  , "refsect1info"
+  , "refsect2"
+  , "refsect2info"
+  , "refsect3"
+  , "refsect3info"
+  , "refsection"
+  , "refsectioninfo"
+  , "screen"
+  , "sect1"
+  , "sect1info"
+  , "sect2"
+  , "sect2info"
+  , "sect3"
+  , "sect3info"
+  , "sect4"
+  , "sect4info"
+  , "sect5"
+  , "sect5info"
+  , "section"
+  , "sectioninfo"
+  , "simpara"
+  , "simplesect"
+  , "substeps"
+  , "subtitle"
+  , "table"
+  , "title"
+  , "titleabbrev"
+  , "toc"
+  , "variablelist"
+  ] ++ admonitionTags
 
 admonitionTags :: [String]
 admonitionTags = ["important","caution","note","tip","warning"]
-- 
cgit v1.2.3