From 4f95aeb6d290b1edcdc5b332bfd60ff69a08df77 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 7 Nov 2011 12:23:05 -0800
Subject: HTML writer: Use `<section>` for footnotes if html5.

---
 src/Text/Pandoc/Writers/HTML.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 5550db105..f220eb4c7 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -253,10 +253,12 @@ footnoteSection :: WriterOptions -> [Html] -> Html
 footnoteSection opts notes =
   if null notes
      then noHtml
-     else nl opts +++ (thediv ! [theclass "footnotes"]
+     else nl opts +++ (container
           $ nl opts +++ hr +++ nl opts +++
             (olist << (notes ++ [nl opts])) +++ nl opts)
-
+   where container = if writerHtml5 opts
+                        then tag "section" ! [theclass "footnotes"]
+                        else thediv ! [theclass "footnotes"]
 
 -- | Parse a mailto link; return Just (name, domain) or Nothing.
 parseMailto :: String -> Maybe (String, String)
-- 
cgit v1.2.3