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
2022-01-06 10:45:15 -08:00 · 2022-01-06 10:45:15 -08:00 · 517d7a9cd3
commit 517d7a9cd3
parent 4be41e3bb5
1 changed files with 3 additions and 1 deletions
--- 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