8b28932 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Interpret pauses correctly for all headers

8b28932michaelbeaumont11 years ago

src/Text/Pandoc/Writers/HTML.hs+3−5

@@ -308,11 +308,9 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen

308 $ if titleSlide

309 -- title slides have no content of their own

310 then filter isSec elements

311− else if slide

312− then case splitBy isPause elements of

311+ else case splitBy isPause elements of

313− [] -> []

312+ [] -> []

314− (x:xs) -> x ++ concatMap inDiv xs

313+ (x:xs) -> x ++ concatMap inDiv xs

315− else elements

316 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]

314 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]

317 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++

315 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++

318 ["section" | (slide || writerSectionDivs opts) &&

316 ["section" | (slide || writerSectionDivs opts) &&