lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-23 16:05:54 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed regression in HTML writer: all headers level 1!

Browse Source
This commit is contained in:
John MacFarlane
2012-01-25 11:30:12 -08:00
parent 3a8afc119a
commit 4ffff62097
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/HTML.hs
+3 -1
View File
@@ -250,7 +250,9 @@ elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block
elementToHtml slideLevel opts (Sec level num id' title' elements) = do
let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
modify $ \st -> st{stSecNum = num} -- update section number
header' <- blockToHtml opts (Header 1 title') -- always use level 1 for slide titles
-- always use level 1 for slide titles
let level' = if slide then 1 else level
header' <- blockToHtml opts (Header level' title')
innerContents <- mapM (elementToHtml slideLevel opts) elements
let header'' = if (writerStrictMarkdown opts ||
writerSectionDivs opts ||