module JSDOM.Generated.HTMLBodyElement
(setALink, getALink, getALinkUnsafe, getALinkUnchecked,
setBackground, getBackground, setBgColor, getBgColor,
getBgColorUnsafe, getBgColorUnchecked, setLink, getLink,
getLinkUnsafe, getLinkUnchecked, setText, getText, getTextUnsafe,
getTextUnchecked, setVLink, getVLink, getVLinkUnsafe,
getVLinkUnchecked, 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, 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)
import JSDOM.Enums
setALink ::
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> Maybe val -> m ()
setALink self val = liftDOM (self ^. jss "aLink" (toJSVal val))
getALink ::
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m (Maybe result)
getALink self
= liftDOM ((self ^. js "aLink") >>= fromMaybeJSString)
getALinkUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLBodyElement -> m result
getALinkUnsafe self
= liftDOM
(((self ^. js "aLink") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getALinkUnchecked ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getALinkUnchecked self
= liftDOM ((self ^. js "aLink") >>= fromJSValUnchecked)
setBackground ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setBackground self val
= liftDOM (self ^. jss "background" (toJSVal val))
getBackground ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBackground self
= liftDOM ((self ^. js "background") >>= fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> Maybe val -> m ()
setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))
getBgColor ::
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m (Maybe result)
getBgColor self
= liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString)
getBgColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLBodyElement -> m result
getBgColorUnsafe self
= liftDOM
(((self ^. js "bgColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getBgColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBgColorUnchecked self
= liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)
setLink ::
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> Maybe val -> m ()
setLink self val = liftDOM (self ^. jss "link" (toJSVal val))
getLink ::
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m (Maybe result)
getLink self = liftDOM ((self ^. js "link") >>= fromMaybeJSString)
getLinkUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLBodyElement -> m result
getLinkUnsafe self
= liftDOM
(((self ^. js "link") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getLinkUnchecked ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getLinkUnchecked self
= liftDOM ((self ^. js "link") >>= fromJSValUnchecked)
setText ::
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> Maybe val -> m ()
setText self val = liftDOM (self ^. jss "text" (toJSVal val))
getText ::
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m (Maybe result)
getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString)
getTextUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLBodyElement -> m result
getTextUnsafe self
= liftDOM
(((self ^. js "text") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getTextUnchecked ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getTextUnchecked self
= liftDOM ((self ^. js "text") >>= fromJSValUnchecked)
setVLink ::
(MonadDOM m, ToJSString val) =>
HTMLBodyElement -> Maybe val -> m ()
setVLink self val = liftDOM (self ^. jss "vLink" (toJSVal val))
getVLink ::
(MonadDOM m, FromJSString result) =>
HTMLBodyElement -> m (Maybe result)
getVLink self
= liftDOM ((self ^. js "vLink") >>= fromMaybeJSString)
getVLinkUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLBodyElement -> m result
getVLinkUnsafe self
= liftDOM
(((self ^. js "vLink") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getVLinkUnchecked ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getVLinkUnchecked self
= liftDOM ((self ^. js "vLink") >>= fromJSValUnchecked)
blur :: EventName HTMLBodyElement FocusEvent
blur = unsafeEventName (toJSString "blur")
error :: EventName HTMLBodyElement UIEvent
error = unsafeEventName (toJSString "error")
focus :: EventName HTMLBodyElement FocusEvent
focus = unsafeEventName (toJSString "focus")
focusin :: EventName HTMLBodyElement onfocusin
focusin = unsafeEventName (toJSString "focusin")
focusout :: EventName HTMLBodyElement onfocusout
focusout = unsafeEventName (toJSString "focusout")
load :: EventName HTMLBodyElement UIEvent
load = unsafeEventName (toJSString "load")
resize :: EventName HTMLBodyElement UIEvent
resize = unsafeEventName (toJSString "resize")
scroll :: EventName HTMLBodyElement UIEvent
scroll = unsafeEventName (toJSString "scroll")
webKitMouseForcechanged ::
EventName HTMLBodyElement onwebkitmouseforcechanged
webKitMouseForcechanged
= unsafeEventName (toJSString "webkitmouseforcechanged")
webKitMouseForcedown ::
EventName HTMLBodyElement onwebkitmouseforcedown
webKitMouseForcedown
= unsafeEventName (toJSString "webkitmouseforcedown")
webKitMouseForcewillbegin ::
EventName HTMLBodyElement onwebkitmouseforcewillbegin
webKitMouseForcewillbegin
= unsafeEventName (toJSString "webkitmouseforcewillbegin")
webKitMouseForceup ::
EventName HTMLBodyElement onwebkitmouseforceup
webKitMouseForceup
= unsafeEventName (toJSString "webkitmouseforceup")
webKitWillRevealBottom :: EventName HTMLBodyElement Event
webKitWillRevealBottom
= unsafeEventName (toJSString "webkitwillrevealbottom")
webKitWillRevealLeft :: EventName HTMLBodyElement Event
webKitWillRevealLeft
= unsafeEventName (toJSString "webkitwillrevealleft")
webKitWillRevealRight :: EventName HTMLBodyElement Event
webKitWillRevealRight
= unsafeEventName (toJSString "webkitwillrevealright")
webKitWillRevealTop :: EventName HTMLBodyElement Event
webKitWillRevealTop
= unsafeEventName (toJSString "webkitwillrevealtop")
selectionchange :: EventName HTMLBodyElement onselectionchange
selectionchange = unsafeEventName (toJSString "selectionchange")