Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Beamer writer: mark frame as fragile when it contains verbatim.

Browse source 
Closes #1613.
This commit is contained in:
John MacFarlane 2015-11-23 23:07:56 -08:00
parent b20ecbedc4
commit 2633dc2f5e
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/LaTeX.hs
View file

@ -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"]