@@ -207,7 +207,14 @@ slideToBeamer (SectionSlide lvl tit) = return [Header lvl tit]
207207slideToBeamer (ContentSlide tit bs) = do
208208 tit' <- inlineListToLaTeX tit
209209 -- note: [fragile] is required or verbatim breaks
210− let slideStart = RawBlock "latex" ("\\begin{frame}[fragile]\n" ++
210+ let hasCodeBlock (CodeBlock _ _) = [True]
211+ hasCodeBlock _ = []
212+ let hasCode (Code _ _) = [True]
213+ hasCode _ = []
214+ let fragile = if not $ null $ queryWith hasCodeBlock bs ++ queryWith hasCode bs
215+ then "[fragile]"
216+ else ""
217+ let slideStart = RawBlock "latex" ("\\begin{frame}" ++ fragile ++
211218 "\\frametitle{" ++ render Nothing tit' ++ "}")
212219 let slideEnd = RawBlock "latex" "\\end{frame}"
213220 -- now carve up slide into blocks if there are sections inside