From 517d7a9cd3ebb5c63294540275cdd06c5f675ef9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 6 Jan 2022 10:45:15 -0800
Subject: [PATCH] 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
---
 src/Text/Pandoc/Writers/HTML.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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