summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2022-01-06 10:45:15 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2022-01-06 10:45:15 -0800
commit517d7a9cd3ebb5c63294540275cdd06c5f675ef9 (patch)
tree0ed1c3cbd049582d9f4009ac54c75b44d9600592 /src
parent4be41e3bb54449597b998788753717a6765b413b (diff)
reveal.js: don't add r-fit-text class to section.
It must go on header only. See https://github.com/jgm/pandoc/issues/5965#issuecomment-1006623836
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 1cfce7afd..a07847913 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -816,7 +816,9 @@ blockToHtmlInner opts (Div (ident, "section":dclasses, dkvs)
["section" | (slide || writerSectionDivs opts) &&
not html5 ] ++
["level" <> tshow level | slide || writerSectionDivs opts ]
- <> dclasses
+ <> [d | d <- dclasses,
+ slideVariant /= RevealJsSlides ||
+ d /= "r-fit-text"] -- see #5965
let attr = (ident, classes', dkvs)
if titleSlide
then do