f431f67 · typeable/pandoc

git.iko.soy/typeable/pandoc

LaTeX(Beamer) writer: include contents under headers < slidelevel.

Currently we keep the fancy title slide and add a new slide with the same title and whatever content was under the header. This changes behavior of slides, but is consistent with the new behavior of the revealjs and other HTML slide show writers. See #4317.

commitf431f67b2f2f5071345fa5800658375afaf44c1b authorJohn MacFarlane <jgm@berkeley.edu> dateFri 1 Mar 2019, 21:45 (8 years ago) parent5990f14

1 file changed+8−1

compare with master

unifiedsplit

src/Text/Pandoc/Writers/LaTeX.hs+8−1

src/Text/Pandoc/Writers/LaTeX.hs+8−1

@@ -448,7 +448,14 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)

448448 : tit ++ [RawInline "latex" "}"] )

449449 : bs ++ [RawBlock "latex" "\\end{block}"]

450450 | lvl < slideLevel = do

451− bs <- concat `fmap` mapM (elementToBeamer slideLevel) elts

451+ let isSec Sec{} = True

452+ isSec _ = False

453+ let (contentElts, secElts) = break isSec elts

454+ let elts' = if null contentElts

455+ then secElts

456+ else Sec slideLevel [] nullAttr tit contentElts :

457+ secElts

458+ bs <- concat `fmap` mapM (elementToBeamer slideLevel) elts'

452459 return $ Header lvl (ident,classes,kvs) tit : bs

453460 | otherwise = do -- lvl == slideLevel

454461 -- note: [fragile] is required or verbatim breaks