From 2633dc2f5e6bb86e349fa2f2f7292d497f255a8d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 23 Nov 2015 23:07:56 -0800
Subject: [PATCH] Beamer writer: mark frame as fragile when it contains
verbatim.
Closes #1613.
---
src/Text/Pandoc/Writers/LaTeX.hs | 6 +-----
1 file changed, 1 insertion(+), 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"]