module JSDOM.Generated.HTMLDocument
(open, close, write, writeln, clear, captureEvents, releaseEvents,
getEmbeds, getPlugins, getScripts, getAll, getWidth, getHeight,
setDir, getDir, setDesignMode, getDesignMode, getCompatMode,
setBgColor, getBgColor, setFgColor, getFgColor, setAlinkColor,
getAlinkColor, setLinkColor, getLinkColor, setVlinkColor,
getVlinkColor, HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
open :: (MonadDOM m) => HTMLDocument -> m ()
open self = liftDOM (void (self ^. js "open"))
close :: (MonadDOM m) => HTMLDocument -> m ()
close self = liftDOM (void (self ^. js "close"))
write ::
(MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()
write self text
= liftDOM (void (self ^. jsf "write" [toJSVal text]))
writeln ::
(MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()
writeln self text
= liftDOM (void (self ^. jsf "writeln" [toJSVal text]))
clear :: (MonadDOM m) => HTMLDocument -> m ()
clear self = liftDOM (void (self ^. js "clear"))
captureEvents :: (MonadDOM m) => HTMLDocument -> m ()
captureEvents self = liftDOM (void (self ^. js "captureEvents"))
releaseEvents :: (MonadDOM m) => HTMLDocument -> m ()
releaseEvents self = liftDOM (void (self ^. js "releaseEvents"))
getEmbeds ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getEmbeds self = liftDOM ((self ^. js "embeds") >>= fromJSVal)
getPlugins ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)
getScripts ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getScripts self = liftDOM ((self ^. js "scripts") >>= fromJSVal)
getAll ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLAllCollection)
getAll self = liftDOM ((self ^. js "all") >>= fromJSVal)
getWidth :: (MonadDOM m) => HTMLDocument -> m Int
getWidth self
= liftDOM (round <$> ((self ^. js "width") >>= valToNumber))
getHeight :: (MonadDOM m) => HTMLDocument -> m Int
getHeight self
= liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
setDir ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setDir self val = liftDOM (self ^. jss "dir" (toJSVal val))
getDir ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getDir self = liftDOM ((self ^. js "dir") >>= fromMaybeJSString)
setDesignMode ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setDesignMode self val
= liftDOM (self ^. jss "designMode" (toJSVal val))
getDesignMode ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getDesignMode self
= liftDOM ((self ^. js "designMode") >>= fromMaybeJSString)
getCompatMode ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getCompatMode self
= liftDOM ((self ^. js "compatMode") >>= fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))
getBgColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getBgColor self
= liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString)
setFgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setFgColor self val = liftDOM (self ^. jss "fgColor" (toJSVal val))
getFgColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getFgColor self
= liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString)
setAlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setAlinkColor self val
= liftDOM (self ^. jss "alinkColor" (toJSVal val))
getAlinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getAlinkColor self
= liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString)
setLinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setLinkColor self val
= liftDOM (self ^. jss "linkColor" (toJSVal val))
getLinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getLinkColor self
= liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString)
setVlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setVlinkColor self val
= liftDOM (self ^. jss "vlinkColor" (toJSVal val))
getVlinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getVlinkColor self
= liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString)