diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-25 11:30:12 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-25 11:30:12 -0800 |
| commit | 4ffff62097cd13ee6e6df7705314fd22191c3fb3 (patch) | |
| tree | beffcc963f2cd05931128584ce9d2e845d7d6f60 | |
| parent | 3a8afc119a4c9da8b0f5275013bd60f9d848a37e (diff) | |
| download | pandoc-4ffff62097cd13ee6e6df7705314fd22191c3fb3.tar.gz | |
Fixed regression in HTML writer: all headers level 1!
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 99aa8653c..adf59ae4d 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -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 || |