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