From 9b190ec3db5fd4ee0f27e8bd92c7070debc9b5dd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 22 Feb 2013 19:15:38 -0800 Subject: Made HTML writer sensitive to `writerNumberFrom`. --- src/Text/Pandoc/Writers/HTML.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 427edcde3..d8da74d3a 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -274,7 +274,10 @@ elementToHtml :: Int -> WriterOptions -> Element -> State WriterState Html elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elements) = do let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel - modify $ \st -> st{stSecNum = num} -- update section number + let num' = case num of + (n:ns) -> n + writerNumberFrom opts - 1 : ns + [] -> [] + modify $ \st -> st{stSecNum = num'} -- update section number -- always use level 1 for slide titles let level' = if slide then 1 else level let titleSlide = slide && level < slideLevel -- cgit v1.2.3