Fixed '. . .' (pause) on HTML slide formats. Closes #1029.
The old version caused a pause to be inserted before the first
material on a slide. This has been fixed.
commit1ce875a010e1471e06338a20c82781036d476776
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateSun 20 Oct 2013, 09:56 (13 years ago)
parent96ceef6
src/Text/Pandoc/Writers/HTML.hs+2−3
@@ -286,9 +286,8 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
286286 then filter isSec elements
287287 else if slide
288288 then case splitBy isPause elements of
289− [] -> []
290− [x] -> x
291− xs -> concatMap inDiv xs
289+ [] -> []
290+ (x:xs) -> x ++ concatMap inDiv xs
292291 else elements
293292 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
294293 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++