From a2cb53640defcbd672ae26d517ee54479a13a32a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 4 Nov 2012 11:09:15 -0800 Subject: LaTeX writer: Don't use [fragile] unnecessarily. We were using [fragile] on slides even if they only contained code that was rendered using `\texttt`. Now `[fragile]` is only used for slides containing inline code if that code is rendered using listings. Closes #649. --- src/Text/Pandoc/Writers/LaTeX.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 4929bb2a9..3d25e0fc9 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -238,7 +238,11 @@ elementToBeamer slideLevel (Sec lvl _num _ident tit elts) hasCodeBlock _ = [] let hasCode (Code _ _) = [True] hasCode _ = [] - let fragile = if not $ null $ queryWith hasCodeBlock elts ++ queryWith hasCode elts + opts <- gets stOptions + let fragile = if not $ null $ queryWith hasCodeBlock elts ++ + if writerListings opts + then queryWith hasCode elts + else [] then "[fragile]" else "" let slideStart = Para $ RawInline "latex" ("\\begin{frame}" ++ fragile) : -- cgit v1.2.3