@@ -264,9 +264,8 @@ elementToHtml slideLevel opts (Sec level num id' title' elements) = do
264 -- title slides have no content of their own
264 -- title slides have no content of their own
265 then filter isSec elements
265 then filter isSec elements
266 else elements
266 else elements
267− let header'' = if (writerStrictMarkdown opts ||
267+ let header'' = if (writerStrictMarkdown opts || writerSectionDivs opts ||
268− writerSectionDivs opts ||
269− writerSlideVariant opts == S5Slides)
268+ writerSlideVariant opts == S5Slides || slide)
270 then header'
269 then header'
271 else header' ! prefixedId opts id'
270 else header' ! prefixedId opts id'
272 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
271 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]