diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
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) |