aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-09-27 20:59:48 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-09-27 21:09:03 -0700
commit0b3e885a00d4b56f0f100d7f852e9c08d9858598 (patch)
tree5a24fa875117fa42b2036f573f275c85d8f16cdc /src/Text
parent53657798cdd3b64165a2c2885bb4eefbf3ddafdf (diff)
downloadpandoc-0b3e885a00d4b56f0f100d7f852e9c08d9858598.tar.gz
HTML writer: avoid adding extra section nestings for revealjs.
Previously revealjs title slides at level (slidelevel - 1) were nested under an extra section element, even when the section contained no additional (vertical) content. That caused problems for some transition effects. See hakimel/reveal.js#1947.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 272454290..c7f25197f 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -461,7 +461,7 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
t <- addAttrs opts attr $
secttag header'
return $
- (if slideVariant == RevealJsSlides
+ (if slideVariant == RevealJsSlides && not (null innerContents)
then H5.section
else id) $ mconcat $ t : innerContents
else if writerSectionDivs opts || slide