Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Merge pull request #2532 from michaelbeaumont/fix-2530

Browse source 
Interpret pauses correctly for all headers
This commit is contained in:
John MacFarlane 2015-11-19 21:06:53 -08:00
commit 1ad296dc69
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/HTML.hs
View file

@ -305,11 +305,9 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
$ if titleSlide $ if titleSlide
-- title slides have no content of their own -- title slides have no content of their own
then filter isSec elements then filter isSec elements
else if slide else case splitBy isPause elements of
then case splitBy isPause elements of
[] -> [] [] -> []
(x:xs) -> x ++ concatMap inDiv xs (x:xs) -> x ++ concatMap inDiv xs
else elements
let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts] let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++ let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
["section" | (slide || writerSectionDivs opts) && ["section" | (slide || writerSectionDivs opts) &&