module Text.LaTeX.Packages.Beamer.Monad
(
beamer
, frame
, frametitle
, framesubtitle
, alert
, pause
, block
, OverlaySpec (..)
, beameritem
, uncover
, only
, Theme (..)
, usetheme
) where
import Text.LaTeX.Base.Writer
import Text.LaTeX.Base.Render
import Text.LaTeX.Base.Types
import qualified Text.LaTeX.Packages.Beamer as App
import Text.LaTeX.Packages.Beamer(OverlaySpec,Theme)
beamer :: String
beamer = App.beamer
frame :: (Monad m) => LaTeXT_ m -> LaTeXT_ m
frame a1
= do a1 <- extractLaTeX_ a1
textell ( App.frame a1)
frametitle :: (Monad m) => LaTeXT_ m -> LaTeXT_ m
frametitle a1
= do a1 <- extractLaTeX_ a1
textell ( App.frametitle a1)
framesubtitle :: (Monad m) => LaTeXT_ m -> LaTeXT_ m
framesubtitle a1
= do a1 <- extractLaTeX_ a1
textell ( App.framesubtitle a1)
alert :: (Monad m) => [OverlaySpec] -> LaTeXT_ m -> LaTeXT_ m
alert a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.alert a1 a2)
pause :: (Monad m) => LaTeXT_ m
pause = do textell ( App.pause)
beameritem :: (Monad m) => [OverlaySpec] -> LaTeXT_ m
beameritem a1 = do textell ( App.beameritem a1)
uncover :: (Monad m) => [OverlaySpec] -> LaTeXT_ m -> LaTeXT_ m
uncover a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.uncover a1 a2)
only :: (Monad m) => [OverlaySpec] -> LaTeXT_ m -> LaTeXT_ m
only a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.only a1 a2)
block :: (Monad m) => LaTeXT_ m -> LaTeXT_ m -> LaTeXT_ m
block a1 a2
= do a1 <- extractLaTeX_ a1
a2 <- extractLaTeX_ a2
textell ( App.block a1 a2)
usetheme :: (Monad m) => Theme -> LaTeXT_ m
usetheme a1 = do textell ( App.usetheme a1)