e9eaf84 · typeable/pandoc

git.iko.soy/typeable/pandoc

Slidy writer: use h1 for all slides...

even if they were originally level 2 headers. Otherwise the built-in table of contents in Slidy breaks. Closes #3566.

commite9eaf8421567b2d54b415b642ec1077d79907a10 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 10 Aug 2017, 07:48 (9 years ago) parentf4bff5d

1 file changed+5−1

unifiedsplit

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

@@ -403,8 +403,12 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen

403403 then return mempty

404404 else do

405405 modify (\st -> st{ stElement = True})

406+ let level' = if level <= slideLevel &&

407+ slideVariant == SlidySlides

408+ then 1 -- see #3566

409+ else level

406410 res <- blockToHtml opts

407− (Header level (id',classes,keyvals) title')

411+ (Header level' (id',classes,keyvals) title')

408412 modify (\st -> st{ stElement = False})

409413 return res

410414