@@ -274,7 +274,10 @@ elementToHtml :: Int -> WriterOptions -> Element -> State WriterState Html
274274elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block
275275elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elements) = do
276276 let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
277− modify $ \st -> st{stSecNum = num} -- update section number
277+ let num' = case num of
278+ (n:ns) -> n + writerNumberFrom opts - 1 : ns
279+ [] -> []
280+ modify $ \st -> st{stSecNum = num'} -- update section number
278281 -- always use level 1 for slide titles
279282 let level' = if slide then 1 else level
280283 let titleSlide = slide && level < slideLevel