diff options
| -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 b480f4eec..8957e709f 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -310,8 +310,10 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen else H.div let attr = (id',classes',keyvals) return $ if titleSlide - then mconcat $ - (addAttrs opts attr $ secttag $ header') : innerContents + then (if writerSlideVariant opts == RevealJsSlides + then H5.section + else id) $ mconcat $ + (addAttrs opts attr $ secttag $ header') : innerContents else if writerSectionDivs opts || slide then addAttrs opts attr $ secttag $ inNl $ header' : innerContents |