diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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) : |