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