8b8c8cf · typeable/pandoc

git.iko.soy/typeable/pandoc

HTML writer: fix case when writerNumberOffet is empty or short.

We add 0s to the end of the list if it's shorter than needed.

commit8b8c8cfed928a2429a8640213694c82635039c5a authorJohn MacFarlane <fiddlosopher@gmail.com> dateSat 23 Feb 2013, 18:51 (14 years ago) parent5afe521

1 file changed+1−1

unifiedsplit

src/Text/Pandoc/Writers/HTML.hs+1−1

@@ -274,7 +274,7 @@ 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− let num' = zipWith (+) num (writerNumberOffset opts)

277+ let num' = zipWith (+) num (writerNumberOffset opts ++ repeat 0)

278278 modify $ \st -> st{stSecNum = num'} -- update section number

279279 -- always use level 1 for slide titles

280280 let level' = if slide then 1 else level