module Text.LaTeX.Packages.Hyperref.Monad
(
hyperref
, HRefOption (..)
, URL
, createURL
, href
, url
, nolinkurl
, hyperbaseurl
, hyperimage
, autoref
) where
import Text.LaTeX.Base.Writer
import Text.LaTeX.Base.Render
import Text.LaTeX.Base.Types
import qualified Text.LaTeX.Packages.Hyperref as App
import Text.LaTeX.Packages.Hyperref(HRefOption,URL)
hyperref :: String
hyperref = App.hyperref
createURL :: String -> URL
createURL = App.createURL
href :: (Monad m) => [HRefOption] -> URL -> LaTeXT_ m -> LaTeXT_ m
href a1 a2 a3
= do a3 <- extractLaTeX_ a3
textell ( App.href a1 a2 a3)
url :: (Monad m) => URL -> LaTeXT_ m
url a1 = do textell ( App.url a1)
nolinkurl :: (Monad m) => URL -> LaTeXT_ m
nolinkurl a1 = do textell ( App.nolinkurl a1)
hyperbaseurl :: (Monad m) => URL -> LaTeXT_ m
hyperbaseurl a1 = do textell ( App.hyperbaseurl a1)
hyperimage :: (Monad m) => URL -> LaTeXT_ m -> LaTeXT_ m
hyperimage a1 a2
= do a2 <- extractLaTeX_ a2
textell ( App.hyperimage a1 a2)
autoref :: (Monad m) => Label -> LaTeXT_ m
autoref a1 = do textell ( App.autoref a1)