diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-10-25 17:07:51 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-10-25 17:07:51 +0200 |
| commit | c46ad7c8db5bb6a8c1666f60b21184f5b75bf3ab (patch) | |
| tree | 3d60c9c5e3c0fb2cfe1e659e37f19abc93239ea4 /src | |
| parent | b0df50f0039b117b31ffcda8e8eb30db7343f5c0 (diff) | |
reveal.js: don't change slide title to level 1 header.
This also affects other HTML slide show formats.
Closes #2221.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 2d0df4dbe..dc209f3da 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -278,15 +278,13 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel let num' = zipWith (+) num (writerNumberOffset opts ++ repeat 0) modify $ \st -> st{stSecNum = num'} -- update section number - -- always use level 1 for slide titles - let level' = if slide then 1 else level let titleSlide = slide && level < slideLevel header' <- if title' == [Str "\0"] -- marker for hrule then return mempty else do modify (\st -> st{ stElement = True}) res <- blockToHtml opts - (Header level' (id',classes,keyvals) title') + (Header level (id',classes,keyvals) title') modify (\st -> st{ stElement = False}) return res |