diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-23 23:07:56 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-23 23:07:56 -0800 |
| commit | 2633dc2f5e6bb86e349fa2f2f7292d497f255a8d (patch) | |
| tree | e34fe8e51f441cc05ca2632204cbddd0d5b1cb35 /src/Text | |
| parent | b20ecbedc4e09a40aa42fe4e505c0cd097f23ee7 (diff) | |
| download | pandoc-2633dc2f5e6bb86e349fa2f2f7292d497f255a8d.tar.gz | |
Beamer writer: mark frame as fragile when it contains verbatim.
Closes #1613.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 9e15e0be7..fc069cfcf 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -329,12 +329,8 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts) hasCodeBlock _ = [] let hasCode (Code _ _) = [True] hasCode _ = [] - opts <- gets stOptions let fragile = "fragile" `elem` classes || - not (null $ query hasCodeBlock elts ++ - if writerListings opts - then query hasCode elts - else []) + not (null $ query hasCodeBlock elts ++ query hasCode elts) let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "b", "c", "t", "environment", "label", "plain", "shrink"] |