{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLBodyElement
(setALink, getALink, setBackground, getBackground, setBgColor,
getBgColor, setLink, getLink, setText, getText, setVLink, getVLink,
blur, error, focus, focusin, focusout, load, resize, scroll,
webKitMouseForcechanged, webKitMouseForcedown,
webKitMouseForcewillbegin, webKitMouseForceup,
webKitWillRevealBottom, webKitWillRevealLeft,
webKitWillRevealRight, webKitWillRevealTop, selectionchange,
HTMLBodyElement(..), gTypeHTMLBodyElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
setALink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setALink :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setALink HTMLBodyElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"aLink" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getALink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getALink :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getALink HTMLBodyElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"aLink") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setBackground ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setBackground :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setBackground HTMLBodyElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"background" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBackground ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBackground :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getBackground HTMLBodyElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"background") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setBgColor :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setBgColor HTMLBodyElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"bgColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBgColor :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getBgColor HTMLBodyElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bgColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setLink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setLink :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setLink HTMLBodyElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"link" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getLink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getLink :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getLink HTMLBodyElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"link") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setText ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setText :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setText HTMLBodyElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"text" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getText ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getText :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getText HTMLBodyElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"text") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setVLink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setVLink :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> val -> m ()
setVLink HTMLBodyElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLBodyElement
self HTMLBodyElement
-> Getting (DOM ()) HTMLBodyElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"vLink" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getVLink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getVLink :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m result
getVLink HTMLBodyElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLBodyElement
self HTMLBodyElement
-> Getting (JSM JSVal) HTMLBodyElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLBodyElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"vLink") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
blur :: EventName HTMLBodyElement FocusEvent
blur :: EventName HTMLBodyElement FocusEvent
blur = DOMString -> EventName HTMLBodyElement FocusEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"blur")
error :: EventName HTMLBodyElement UIEvent
error :: EventName HTMLBodyElement UIEvent
error = DOMString -> EventName HTMLBodyElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"error")
focus :: EventName HTMLBodyElement FocusEvent
focus :: EventName HTMLBodyElement FocusEvent
focus = DOMString -> EventName HTMLBodyElement FocusEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focus")
focusin :: EventName HTMLBodyElement onfocusin
focusin :: forall onfocusin. EventName HTMLBodyElement onfocusin
focusin = DOMString -> EventName HTMLBodyElement onfocusin
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focusin")
focusout :: EventName HTMLBodyElement onfocusout
focusout :: forall onfocusin. EventName HTMLBodyElement onfocusin
focusout = DOMString -> EventName HTMLBodyElement onfocusout
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focusout")
load :: EventName HTMLBodyElement UIEvent
load :: EventName HTMLBodyElement UIEvent
load = DOMString -> EventName HTMLBodyElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"load")
resize :: EventName HTMLBodyElement UIEvent
resize :: EventName HTMLBodyElement UIEvent
resize = DOMString -> EventName HTMLBodyElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"resize")
scroll :: EventName HTMLBodyElement UIEvent
scroll :: EventName HTMLBodyElement UIEvent
scroll = DOMString -> EventName HTMLBodyElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"scroll")
webKitMouseForcechanged ::
EventName HTMLBodyElement onwebkitmouseforcechanged
webKitMouseForcechanged :: forall onfocusin. EventName HTMLBodyElement onfocusin
webKitMouseForcechanged
= DOMString -> EventName HTMLBodyElement onwebkitmouseforcechanged
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitmouseforcechanged")
webKitMouseForcedown ::
EventName HTMLBodyElement onwebkitmouseforcedown
webKitMouseForcedown :: forall onfocusin. EventName HTMLBodyElement onfocusin
webKitMouseForcedown
= DOMString -> EventName HTMLBodyElement onwebkitmouseforcedown
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitmouseforcedown")
webKitMouseForcewillbegin ::
EventName HTMLBodyElement onwebkitmouseforcewillbegin
webKitMouseForcewillbegin :: forall onfocusin. EventName HTMLBodyElement onfocusin
webKitMouseForcewillbegin
= DOMString -> EventName HTMLBodyElement onwebkitmouseforcewillbegin
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitmouseforcewillbegin")
webKitMouseForceup ::
EventName HTMLBodyElement onwebkitmouseforceup
webKitMouseForceup :: forall onfocusin. EventName HTMLBodyElement onfocusin
webKitMouseForceup
= DOMString -> EventName HTMLBodyElement onwebkitmouseforceup
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitmouseforceup")
webKitWillRevealBottom :: EventName HTMLBodyElement Event
webKitWillRevealBottom :: EventName HTMLBodyElement Event
webKitWillRevealBottom
= DOMString -> EventName HTMLBodyElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealbottom")
webKitWillRevealLeft :: EventName HTMLBodyElement Event
webKitWillRevealLeft :: EventName HTMLBodyElement Event
webKitWillRevealLeft
= DOMString -> EventName HTMLBodyElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealleft")
webKitWillRevealRight :: EventName HTMLBodyElement Event
webKitWillRevealRight :: EventName HTMLBodyElement Event
webKitWillRevealRight
= DOMString -> EventName HTMLBodyElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealright")
webKitWillRevealTop :: EventName HTMLBodyElement Event
webKitWillRevealTop :: EventName HTMLBodyElement Event
webKitWillRevealTop
= DOMString -> EventName HTMLBodyElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealtop")
selectionchange :: EventName HTMLBodyElement onselectionchange
selectionchange :: forall onfocusin. EventName HTMLBodyElement onfocusin
selectionchange = DOMString -> EventName HTMLBodyElement onselectionchange
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"selectionchange")