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

8
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
-- title slides have no content of their own
then filter isSec elements
else if slide
then case splitBy isPause elements of
[] -> []
(x:xs) -> x ++ concatMap inDiv xs
else elements
else case splitBy isPause elements of
[] -> []
(x:xs) -> x ++ concatMap inDiv xs
let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
["section" | (slide || writerSectionDivs opts) &&