From c46ad7c8db5bb6a8c1666f60b21184f5b75bf3ab Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 25 Oct 2016 17:07:51 +0200
Subject: reveal.js: don't change slide title to level 1 header.
This also affects other HTML slide show formats.
Closes #2221.
---
src/Text/Pandoc/Writers/HTML.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
(limited to 'src/Text/Pandoc')
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
--
cgit v1.2.3