git.iko.soy/typeable/pandoc
on master help sign in
HTML writer: fix case when writerNumberOffet is empty or short.
8b8c8cfJohn MacFarlane
src/Text/Pandoc/Writers/HTML.hs+1−1
compare with master
unifiedsplit
@@ -274,7 +274,7 @@ 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' = zipWith (+) num (writerNumberOffset opts)
277+ let num' = zipWith (+) num (writerNumberOffset opts ++ repeat 0)
278 modify $ \st -> st{stSecNum = num'} -- update section number
278 modify $ \st -> st{stSecNum = num'} -- update section number
279 -- always use level 1 for slide titles
279 -- always use level 1 for slide titles
280 let level' = if slide then 1 else level
280 let level' = if slide then 1 else level