module JSDOM.Generated.HTMLDocument
(open, close, write, writeln, clear, captureEvents, releaseEvents,
getEmbeds, getEmbedsUnsafe, getEmbedsUnchecked, getPlugins,
getPluginsUnsafe, getPluginsUnchecked, getScripts,
getScriptsUnsafe, getScriptsUnchecked, getAll, getAllUnsafe,
getAllUnchecked, getWidth, getHeight, setDir, getDir, getDirUnsafe,
getDirUnchecked, setDesignMode, getDesignMode, getDesignModeUnsafe,
getDesignModeUnchecked, getCompatMode, setBgColor, getBgColor,
getBgColorUnsafe, getBgColorUnchecked, setFgColor, getFgColor,
getFgColorUnsafe, getFgColorUnchecked, setAlinkColor,
getAlinkColor, getAlinkColorUnsafe, getAlinkColorUnchecked,
setLinkColor, getLinkColor, getLinkColorUnsafe,
getLinkColorUnchecked, setVlinkColor, getVlinkColor,
getVlinkColorUnsafe, getVlinkColorUnchecked, HTMLDocument(..),
gTypeHTMLDocument)
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
open :: (MonadDOM m) => HTMLDocument -> m ()
open self = liftDOM (void (self ^. jsf "open" ()))
close :: (MonadDOM m) => HTMLDocument -> m ()
close self = liftDOM (void (self ^. jsf "close" ()))
write ::
(MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()
write self text
= liftDOM (void (self ^. jsf "write" [toJSVal text]))
writeln ::
(MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()
writeln self text
= liftDOM (void (self ^. jsf "writeln" [toJSVal text]))
clear :: (MonadDOM m) => HTMLDocument -> m ()
clear self = liftDOM (void (self ^. jsf "clear" ()))
captureEvents :: (MonadDOM m) => HTMLDocument -> m ()
captureEvents self
= liftDOM (void (self ^. jsf "captureEvents" ()))
releaseEvents :: (MonadDOM m) => HTMLDocument -> m ()
releaseEvents self
= liftDOM (void (self ^. jsf "releaseEvents" ()))
getEmbeds ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getEmbeds self = liftDOM ((self ^. js "embeds") >>= fromJSVal)
getEmbedsUnsafe ::
(MonadDOM m, HasCallStack) => HTMLDocument -> m HTMLCollection
getEmbedsUnsafe self
= liftDOM
(((self ^. js "embeds") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getEmbedsUnchecked ::
(MonadDOM m) => HTMLDocument -> m HTMLCollection
getEmbedsUnchecked self
= liftDOM ((self ^. js "embeds") >>= fromJSValUnchecked)
getPlugins ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)
getPluginsUnsafe ::
(MonadDOM m, HasCallStack) => HTMLDocument -> m HTMLCollection
getPluginsUnsafe self
= liftDOM
(((self ^. js "plugins") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getPluginsUnchecked ::
(MonadDOM m) => HTMLDocument -> m HTMLCollection
getPluginsUnchecked self
= liftDOM ((self ^. js "plugins") >>= fromJSValUnchecked)
getScripts ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)
getScripts self = liftDOM ((self ^. js "scripts") >>= fromJSVal)
getScriptsUnsafe ::
(MonadDOM m, HasCallStack) => HTMLDocument -> m HTMLCollection
getScriptsUnsafe self
= liftDOM
(((self ^. js "scripts") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getScriptsUnchecked ::
(MonadDOM m) => HTMLDocument -> m HTMLCollection
getScriptsUnchecked self
= liftDOM ((self ^. js "scripts") >>= fromJSValUnchecked)
getAll ::
(MonadDOM m) => HTMLDocument -> m (Maybe HTMLAllCollection)
getAll self = liftDOM ((self ^. js "all") >>= fromJSVal)
getAllUnsafe ::
(MonadDOM m, HasCallStack) => HTMLDocument -> m HTMLAllCollection
getAllUnsafe self
= liftDOM
(((self ^. js "all") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getAllUnchecked ::
(MonadDOM m) => HTMLDocument -> m HTMLAllCollection
getAllUnchecked self
= liftDOM ((self ^. js "all") >>= fromJSValUnchecked)
getWidth :: (MonadDOM m) => HTMLDocument -> m Int
getWidth self
= liftDOM (round <$> ((self ^. js "width") >>= valToNumber))
getHeight :: (MonadDOM m) => HTMLDocument -> m Int
getHeight self
= liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
setDir ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setDir self val = liftDOM (self ^. jss "dir" (toJSVal val))
getDir ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getDir self = liftDOM ((self ^. js "dir") >>= fromMaybeJSString)
getDirUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getDirUnsafe self
= liftDOM
(((self ^. js "dir") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getDirUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getDirUnchecked self
= liftDOM ((self ^. js "dir") >>= fromJSValUnchecked)
setDesignMode ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setDesignMode self val
= liftDOM (self ^. jss "designMode" (toJSVal val))
getDesignMode ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getDesignMode self
= liftDOM ((self ^. js "designMode") >>= fromMaybeJSString)
getDesignModeUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getDesignModeUnsafe self
= liftDOM
(((self ^. js "designMode") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getDesignModeUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getDesignModeUnchecked self
= liftDOM ((self ^. js "designMode") >>= fromJSValUnchecked)
getCompatMode ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getCompatMode self
= liftDOM ((self ^. js "compatMode") >>= fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))
getBgColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getBgColor self
= liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString)
getBgColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getBgColorUnsafe self
= liftDOM
(((self ^. js "bgColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getBgColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getBgColorUnchecked self
= liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)
setFgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setFgColor self val = liftDOM (self ^. jss "fgColor" (toJSVal val))
getFgColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getFgColor self
= liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString)
getFgColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getFgColorUnsafe self
= liftDOM
(((self ^. js "fgColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getFgColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getFgColorUnchecked self
= liftDOM ((self ^. js "fgColor") >>= fromJSValUnchecked)
setAlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setAlinkColor self val
= liftDOM (self ^. jss "alinkColor" (toJSVal val))
getAlinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getAlinkColor self
= liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString)
getAlinkColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getAlinkColorUnsafe self
= liftDOM
(((self ^. js "alinkColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getAlinkColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getAlinkColorUnchecked self
= liftDOM ((self ^. js "alinkColor") >>= fromJSValUnchecked)
setLinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setLinkColor self val
= liftDOM (self ^. jss "linkColor" (toJSVal val))
getLinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getLinkColor self
= liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString)
getLinkColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getLinkColorUnsafe self
= liftDOM
(((self ^. js "linkColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getLinkColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getLinkColorUnchecked self
= liftDOM ((self ^. js "linkColor") >>= fromJSValUnchecked)
setVlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()
setVlinkColor self val
= liftDOM (self ^. jss "vlinkColor" (toJSVal val))
getVlinkColor ::
(MonadDOM m, FromJSString result) =>
HTMLDocument -> m (Maybe result)
getVlinkColor self
= liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString)
getVlinkColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLDocument -> m result
getVlinkColorUnsafe self
= liftDOM
(((self ^. js "vlinkColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getVlinkColorUnchecked ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getVlinkColorUnchecked self
= liftDOM ((self ^. js "vlinkColor") >>= fromJSValUnchecked)