HTMLBodyElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLBodyElement
       (setText, getText, setLink, getLink, setVLink, getVLink, setALink, getALink, setBgColor, getBgColor, setBackground, getBackground, HTMLBodyElement(..), gTypeHTMLBodyElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-text HTMLBodyElement.text specification>
setText :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setText self val = liftDOM (void (self ^. jss "text" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-text HTMLBodyElement.text specification>
getText :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getText self = liftDOM (((self ^. js "text") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-link HTMLBodyElement.link specification>
setLink :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setLink self val = liftDOM (void (self ^. jss "link" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-link HTMLBodyElement.link specification>
getLink :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getLink self = liftDOM (((self ^. js "link") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-vlink HTMLBodyElement.vLink specification>
setVLink :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setVLink self val = liftDOM (void (self ^. jss "vLink" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-vlink HTMLBodyElement.vLink specification>
getVLink :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getVLink self = liftDOM (((self ^. js "vLink") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-alink HTMLBodyElement.aLink specification>
setALink :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setALink self val = liftDOM (void (self ^. jss "aLink" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-alink HTMLBodyElement.aLink specification>
getALink :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getALink self = liftDOM (((self ^. js "aLink") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-bgcolor HTMLBodyElement.bgColor specification>
setBgColor :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setBgColor self val = liftDOM (void (self ^. jss "bgColor" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-bgcolor HTMLBodyElement.bgColor specification>
getBgColor :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBgColor self = liftDOM (((self ^. js "bgColor") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-background HTMLBodyElement.background specification>
setBackground :: (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()
setBackground self val = liftDOM (void (self ^. jss "background" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-body-background HTMLBodyElement.background specification>
getBackground :: (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result
getBackground self = liftDOM (((self ^. js "background") >>= fromJSValUnchecked))