aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-24 10:51:15 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-24 10:51:15 -0800
commit92885dd7efe1bd529fbba41bd7725a043d680a2a (patch)
tree519a9dc4c5c9280d3d4ad7615a416ee20f0c0d13
parent13b6990139903f25295fe56829a14404f21b1f34 (diff)
downloadpandoc-92885dd7efe1bd529fbba41bd7725a043d680a2a.tar.gz
HTML writer: Use h1 for all slide titles.
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs4
1 files changed, 2 insertions, 2 deletions
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] ++