From ebcae86cf47e3037ccc3c7146cf610e5a7af3b03 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 19 Mar 2024 08:09:54 -0700 Subject: DocBook reader: add empty title to admonition div if not present. This allows admonition elements (e.g. ``) to work with gfm admonitions even if the `` is not present. Closes #9569. --- src/Text/Pandoc/Readers/DocBook.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 7b4d1cb1b..68f55c219 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -1108,8 +1108,9 @@ parseBlock (Elem e) = -- the title: docbook references are ambiguous on that, and some implementations of admonitions -- (e.g. asciidoctor) just use an icon in all cases. To be conservative, we don't -- include the label and leave it to styling. - title <- case filterChild (named "title") e of - Just t -> divWith ("", ["title"], []) . plain <$> getInlines t + title <- divWith ("", ["title"], []) . plain <$> + case filterChild (named "title") e of + Just t -> getInlines t Nothing -> return mempty -- this will ignore the title element if it is present b <- getBlocks e -- cgit v1.2.3