diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-01-07 11:11:23 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-01-07 11:11:23 -0800 |
| commit | ad5f7ecfcec86bb8b661d286aec5f396556b759e (patch) | |
| tree | 395fb7cc520cef17fab8c02e92d7a449a1631fc8 /src/Text/Pandoc | |
| parent | 2a67b7aea9e9d70e67c0def21da78abf4ec590a1 (diff) | |
| download | pandoc-ad5f7ecfcec86bb8b661d286aec5f396556b759e.tar.gz | |
Fix regression in handling of columns in beamer slides.
Columns in title slides were causing problems with
slide division. Closes #6033.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 11 |
1 files changed, 6 insertions, 5 deletions
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 |