aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 e1e413641..00fefbf05 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -259,7 +259,9 @@ footnoteSection opts notes =
(olist << (notes ++ [nl opts])) +++ nl opts)
where container = if writerHtml5 opts
then tag "section" ! [theclass "footnotes"]
- else thediv ! [theclass "footnotes"]
+ else if writerSlideVariant opts /= NoSlides
+ then thediv ! [theclass "footnotes slide"]
+ else thediv ! [theclass "footnotes"]
-- | Parse a mailto link; return Just (name, domain) or Nothing.
parseMailto :: String -> Maybe (String, String)