ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement
       (js_setText, js_getText, js_setLink, js_getLink, js_setVLink, js_getVLink, js_setALink, js_getALink, js_setBgColor, js_getBgColor, js_setBackground, js_getBackground, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { $1[\"text\"] = $2; })"
        js_setText :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setText (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"text\"]; })"
        js_getText :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getText (self))))

foreign import javascript safe "(($1, $2) => { $1[\"link\"] = $2; })"
        js_setLink :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setLink (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"link\"]; })"
        js_getLink :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getLink (self))))

foreign import javascript safe "(($1, $2) => { $1[\"vLink\"] = $2; })"
        js_setVLink :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setVLink (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"vLink\"]; })"
        js_getVLink :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getVLink (self))))

foreign import javascript safe "(($1, $2) => { $1[\"aLink\"] = $2; })"
        js_setALink :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setALink (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"aLink\"]; })"
        js_getALink :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getALink (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bgColor\"] = $2; })"
        js_setBgColor :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setBgColor (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"bgColor\"]; })"
        js_getBgColor :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getBgColor (self))))

foreign import javascript safe "(($1, $2) => { $1[\"background\"] = $2; })"
        js_setBackground :: HTMLBodyElement -> JSString -> IO ()
-- | <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 ((js_setBackground (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"background\"]; })"
        js_getBackground :: HTMLBodyElement -> IO JSString
-- | <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 ((fromJSString <$> (js_getBackground (self))))