diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-29 13:36:50 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-29 13:36:50 -0800 |
| commit | 3270c838b50ce4aa859e259e48531772f48c08da (patch) | |
| tree | 30e9a6aa788d02a9e8873309a8a747d43865aa75 /src/Text/Pandoc | |
| parent | 6eb6a9901333b5a9018c576ba425c6740a1309d2 (diff) | |
| download | pandoc-3270c838b50ce4aa859e259e48531772f48c08da.tar.gz | |
S5/slidy writer: Make footnotes appear on separate slide at end.
Diffstat (limited to 'src/Text/Pandoc')
| -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) |