@@ -248,15 +248,15 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do
248248elementToHtml :: Int -> WriterOptions -> Element -> State WriterState Html
249249elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block
250250elementToHtml slideLevel opts (Sec level num id' title' elements) = do
251+ let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
251252 modify $ \st -> st{stSecNum = num} -- update section number
252− header' <- blockToHtml opts (Header level title')
253+ header' <- blockToHtml opts (Header 1 title') -- always use level 1 for slide titles
253254 innerContents <- mapM (elementToHtml slideLevel opts) elements
254255 let header'' = if (writerStrictMarkdown opts ||
255256 writerSectionDivs opts ||
256257 writerSlideVariant opts == S5Slides)
257258 then header'
258259 else header' ! prefixedId opts id'
259− let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
260260 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
261261 let titleSlide = slide && level < slideLevel
262262 let classes = ["titleslide" | titleSlide] ++ ["slide" | slide] ++