From b05c380f6ff4375cbc27955653fd31310ff2f94d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 5 Oct 2022 11:57:23 -0700 Subject: HTML writer: replace deprecated aria roles for bibliography entries. `doc-biblioentry` -> `listitem` `doc-bibliography` -> `list` Closes #8354. --- src/Text/Pandoc/Writers/HTML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index ce67dd31a..eab583585 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -881,8 +881,8 @@ blockToHtmlInner opts (Div attr@(ident, classes, kvs') bs) = do , k /= "width" || "column" `notElem` classes] ++ [("style", "width:" <> w <> ";") | "column" `elem` classes , ("width", w) <- kvs'] ++ - [("role", "doc-bibliography") | isCslBibBody && html5] ++ - [("role", "doc-biblioentry") | isCslBibEntry && html5] + [("role", "list") | isCslBibBody && html5] ++ + [("role", "listitem") | isCslBibEntry && html5] let speakerNotes = "notes" `elem` classes -- we don't want incremental output inside speaker notes, see #1394 let opts' = if | speakerNotes -> opts{ writerIncremental = False } -- cgit v1.2.3