module JSDOM.Generated.HTMLBodyElement
(setALink, getALink, setBackground, getBackground, setBgColor,
getBgColor, setLink, getLink, setText, getText, setVLink, getVLink,
beforeUnload, hashChange, message, offline, online, popState,
resize, storage, unload, orientationChange, blur, error, focus,
load, 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 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
setALink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setALink self val = liftDOM (self ^. jss "aLink" (toJSVal val))
getALink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getALink 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 -> val -> m ()
setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBgColor self
= liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)
setLink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setLink self val = liftDOM (self ^. jss "link" (toJSVal val))
getLink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getLink self = liftDOM ((self ^. js "link") >>= fromJSValUnchecked)
setText ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setText self val = liftDOM (self ^. jss "text" (toJSVal val))
getText ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)
setVLink ::
(MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setVLink self val = liftDOM (self ^. jss "vLink" (toJSVal val))
getVLink ::
(MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getVLink self
= liftDOM ((self ^. js "vLink") >>= fromJSValUnchecked)
beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent
beforeUnload = unsafeEventName (toJSString "beforeunload")
hashChange :: EventName HTMLBodyElement HashChangeEvent
hashChange = unsafeEventName (toJSString "hashchange")
message :: EventName HTMLBodyElement MessageEvent
message = unsafeEventName (toJSString "message")
offline :: EventName HTMLBodyElement Event
offline = unsafeEventName (toJSString "offline")
online :: EventName HTMLBodyElement Event
online = unsafeEventName (toJSString "online")
popState :: EventName HTMLBodyElement PopStateEvent
popState = unsafeEventName (toJSString "popstate")
resize :: EventName HTMLBodyElement UIEvent
resize = unsafeEventName (toJSString "resize")
storage :: EventName HTMLBodyElement StorageEvent
storage = unsafeEventName (toJSString "storage")
unload :: EventName HTMLBodyElement UIEvent
unload = unsafeEventName (toJSString "unload")
orientationChange :: EventName HTMLBodyElement Event
orientationChange
= unsafeEventName (toJSString "orientationchange")
blur :: EventName HTMLBodyElement FocusEvent
blur = unsafeEventName (toJSString "blur")
error :: EventName HTMLBodyElement UIEvent
error = unsafeEventName (toJSString "error")
focus :: EventName HTMLBodyElement FocusEvent
focus = unsafeEventName (toJSString "focus")
load :: EventName HTMLBodyElement UIEvent
load = unsafeEventName (toJSString "load")