Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

S5/slidy writer: Make footnotes appear on separate slide at end.

Browse source
This commit is contained in:
John MacFarlane 2011-11-29 13:36:50 -08:00
parent 6eb6a99013
commit 3270c838b5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/HTML.hs
View file

@ -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)