diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-04-26 13:01:02 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-04-26 13:03:02 -0700 |
| commit | 50c9848c34d220a2c834750c3d28f7c94e8b94a0 (patch) | |
| tree | 826857d27d1221135ae880102f09edefdd16ac4c /src | |
| parent | 8689d9c0d6a268497890965726089a5979814587 (diff) | |
HTML writer: Add 'footnotes' identifier to footnotes section.
Closes #8043.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index a38c2d95c..418155f77 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -542,9 +542,11 @@ footnoteSection refLocation startCounter notes = do let container x | html5 , epubVersion == Just EPUB3 - = H5.section ! A.class_ className + = H5.section ! A.id "footnotes" + ! A.class_ className ! customAttribute "epub:type" "footnotes" $ x - | html5 = H5.section ! A.class_ className + | html5 = H5.section ! A.id "footnotes" + ! A.class_ className ! customAttribute "role" "doc-endnotes" $ x | slideVariant /= NoSlides = H.div ! A.class_ "footnotes slide" $ x |