From 92885dd7efe1bd529fbba41bd7725a043d680a2a Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Tue, 24 Jan 2012 10:51:15 -0800
Subject: HTML writer: Use h1 for all slide titles.

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

(limited to 'src/Text/Pandoc/Writers/HTML.hs')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index b7c73befa..9953cc7b7 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -248,15 +248,15 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do
 elementToHtml :: Int -> WriterOptions -> Element -> State WriterState Html
 elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block
 elementToHtml slideLevel opts (Sec level num id' title' elements) = do
+  let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
   modify $ \st -> st{stSecNum = num}  -- update section number
-  header' <- blockToHtml opts (Header level title')
+  header' <- blockToHtml opts (Header 1 title')  -- always use level 1 for slide titles
   innerContents <- mapM (elementToHtml slideLevel opts) elements
   let header'' = if (writerStrictMarkdown opts ||
                      writerSectionDivs opts ||
                      writerSlideVariant opts == S5Slides)
                     then header'
                     else header' ! prefixedId opts id'
-  let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
   let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
   let titleSlide = slide && level < slideLevel
   let classes = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
-- 
cgit v1.2.3