Make raw content marked beamer work in beamer output.

See pandoc/lua-filters#40.

src/Text/Pandoc/Writers/LaTeX.hs

@@ -693,10 +693,12 @@ blockToLaTeX (CodeBlock (identifier,classes,keyvalAttr) str) = do
        | not (null classes) && isJust (writerHighlightStyle opts)
                                              -> highlightedCodeBlock
        | otherwise                           -> rawCodeBlock
-blockToLaTeX b@(RawBlock f x)
+blockToLaTeX b@(RawBlock f x) = do
-  | f == Format "latex" || f == Format "tex"
+  beamer <- gets stBeamer
-                        = return $ text x
+  if (f == Format "latex" || f == Format "tex" ||
-  | otherwise           = do
+       (f == Format "beamer" && beamer))
+     then return $ text x
+     else do
        report $ BlockNotRendered b
        return empty
 blockToLaTeX (BulletList []) = return empty  -- otherwise latex error
@@ -1189,12 +1191,14 @@ inlineToLaTeX (Math InlineMath str) = do
 inlineToLaTeX (Math DisplayMath str) = do
   setEmptyLine False
   return $ "\\[" <> text (handleMathComment str) <> "\\]"
-inlineToLaTeX il@(RawInline f str)
+inlineToLaTeX il@(RawInline f str) = do
-  | f == Format "latex" || f == Format "tex"
+  beamer <- gets stBeamer
-                        = do
+  if (f == Format "latex" || f == Format "tex" ||
+        (f == Format "beamer" && beamer))
+     then do
        setEmptyLine False
        return $ text str
-  | otherwise           = do
+     else do
        report $ InlineNotRendered il
        return empty
 inlineToLaTeX LineBreak = do