From ad5f7ecfcec86bb8b661d286aec5f396556b759e Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 7 Jan 2020 11:11:23 -0800 Subject: Fix regression in handling of columns in beamer slides. Columns in title slides were causing problems with slide division. Closes #6033. --- src/Text/Pandoc/Writers/LaTeX.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index c1d4fdae1..6155aec59 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -460,13 +460,14 @@ elementToBeamer slideLevel (Div (ident,"section":dclasses,dkvs) | lvl > slideLevel = return $ Div (ident,"block":dclasses,dkvs) xs | lvl < slideLevel - = do let isDiv (Div{}) = True - isDiv _ = False - let (titleBs, slideBs) = break isDiv ys + = do let isSlide (Div (_,"slide":_,_) _) = True + isSlide (Div (_,"section":_,_) _) = True + isSlide _ = False + let (titleBs, slideBs) = break isSlide ys return $ if null titleBs - then Div (ident,dclasses,dkvs) xs - else Div (ident,dclasses,dkvs) + then Div (ident,"section":dclasses,dkvs) xs + else Div (ident,"section":dclasses,dkvs) (h : Div ("","slide":dclasses,dkvs) (h:titleBs) : slideBs) | otherwise = return $ Div (ident,"slide":dclasses,dkvs) xs -- cgit v1.2.3