From 3270c838b50ce4aa859e259e48531772f48c08da Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 29 Nov 2011 13:36:50 -0800 Subject: S5/slidy writer: Make footnotes appear on separate slide at end. --- src/Text/Pandoc/Writers/HTML.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc') 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) -- cgit v1.2.3