diff options
| author | John MacFarlane <[email protected]> | 2022-08-25 18:46:18 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-08-25 18:46:18 -0700 |
| commit | 6b8250f7524671d623626a9660d86475f18edee1 (patch) | |
| tree | f06499c0e979bb1b32fe253d7cee64e411ef4722 | |
| parent | 7de54891cb1a5aa5b5bd242d3059b0d8e603a9b1 (diff) | |
HTML writer: use role combinator from blaze....
instead of customAttribute.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index f794e624a..9481e2608 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -545,9 +545,9 @@ footnoteSection refLocation startCounter notes = do = H5.section ! A.id "footnotes" ! A.class_ className ! customAttribute "epub:type" "footnotes" $ x - | html5 = H5.section ! A.id "footnotes" - ! A.class_ className - ! customAttribute "role" "doc-endnotes" + | html5 = H5.section ! A5.id "footnotes" + ! A5.class_ className + ! A5.role "doc-endnotes" $ x | slideVariant /= NoSlides = H.div ! A.class_ "footnotes slide" $ x | otherwise = H.div ! A.class_ className $ x @@ -913,7 +913,7 @@ blockToHtmlInner opts (Div attr@(ident, classes, kvs') bs) = do DZSlides -> do t <- addAttrs opts' attr $ H5.div contents' - return $ t ! H5.customAttribute "role" "note" + return $ t ! A5.role "note" NoSlides -> addAttrs opts' attr $ H.div contents' _ -> return mempty @@ -1610,8 +1610,7 @@ inlineToHtml opts inline = do $ toHtml ref return $ case epubVersion of Just EPUB3 -> link ! customAttribute "epub:type" "noteref" - _ | html5 -> link ! H5.customAttribute - "role" "doc-noteref" + _ | html5 -> link ! A5.role "doc-noteref" _ -> link (Cite cits il)-> do contents <- inlineListToHtml opts (if html5 |