module Text.LaTeX.Packages.Color.Monad
(
pcolor
, monochrome
, dvipsnames
, nodvipsnames
, usenames
, Color (..)
, ColorName (..)
, ColorModel (..)
, ColSpec (..)
, pagecolor
, color
, textcolor
, colorbox , fcolorbox
, normalcolor
) where
import Text.LaTeX.Base.Writer
import Text.LaTeX.Base.Render
import Text.LaTeX.Base.Types
import qualified Text.LaTeX.Packages.Color as App
import Text.LaTeX.Packages.Color(ColSpec,Color,ColorModel,ColorName)
pcolor :: PackageName
pcolor = App.pcolor
monochrome :: (Monad m) => LaTeXT_ m
monochrome = do textell ( App.monochrome)
dvipsnames :: (Monad m) => LaTeXT_ m
dvipsnames = do textell ( App.dvipsnames)
nodvipsnames :: (Monad m) => LaTeXT_ m
nodvipsnames = do textell ( App.nodvipsnames)
usenames :: (Monad m) => LaTeXT_ m
usenames = do textell ( App.usenames)
pagecolor :: (Monad m) => ColSpec -> LaTeXT_ m
pagecolor a1 = do textell ( App.pagecolor a1)
color :: (Monad m) => ColSpec -> LaTeXT_ m
color a1 = do textell ( App.color a1)
textcolor :: (Monad m) => ColSpec -> LaTeXT_ m -> LaTeXT_ m
textcolor a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.textcolor a1 a2)
colorbox :: (Monad m) => ColSpec -> LaTeXT_ m -> LaTeXT_ m
colorbox a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.colorbox a1 a2)
fcolorbox :: (Monad m) => ColSpec -> ColSpec -> LaTeXT_ m -> LaTeXT_ m
fcolorbox a1 a2 a3
= do a3 <- extractLaTeX_ a3
textell ( App.fcolorbox a1 a2 a3)
normalcolor :: (Monad m) => LaTeXT_ m
normalcolor = do textell ( App.normalcolor)