{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLDocument
(open, close, write, writeln, clear, captureEvents, releaseEvents,
getAll, setBgColor, getBgColor, setFgColor, getFgColor,
setAlinkColor, getAlinkColor, setLinkColor, getLinkColor,
setVlinkColor, getVlinkColor, 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 Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, 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, unsafeEventNameAsync)
import JSDOM.Enums
open :: (MonadDOM m) => HTMLDocument -> m ()
open :: HTMLDocument -> m ()
open HTMLDocument
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"open" ()))
close :: (MonadDOM m) => HTMLDocument -> m ()
close :: HTMLDocument -> m ()
close HTMLDocument
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"close" ()))
write ::
(MonadDOM m, ToJSString text) => HTMLDocument -> Maybe text -> m ()
write :: HTMLDocument -> Maybe text -> m ()
write HTMLDocument
self Maybe text
text
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"write" [Maybe text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe text
text]))
writeln ::
(MonadDOM m, ToJSString text) => HTMLDocument -> Maybe text -> m ()
writeln :: HTMLDocument -> Maybe text -> m ()
writeln HTMLDocument
self Maybe text
text
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"writeln" [Maybe text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe text
text]))
clear :: (MonadDOM m) => HTMLDocument -> m ()
clear :: HTMLDocument -> m ()
clear HTMLDocument
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clear" ()))
captureEvents :: (MonadDOM m) => HTMLDocument -> m ()
captureEvents :: HTMLDocument -> m ()
captureEvents HTMLDocument
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"captureEvents" ()))
releaseEvents :: (MonadDOM m) => HTMLDocument -> m ()
releaseEvents :: HTMLDocument -> m ()
releaseEvents HTMLDocument
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"releaseEvents" ()))
getAll :: (MonadDOM m) => HTMLDocument -> m HTMLAllCollection
getAll :: HTMLDocument -> m HTMLAllCollection
getAll HTMLDocument
self = DOM HTMLAllCollection -> m HTMLAllCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"all") JSM JSVal
-> (JSVal -> DOM HTMLAllCollection) -> DOM HTMLAllCollection
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLAllCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> val -> m ()
setBgColor :: HTMLDocument -> val -> m ()
setBgColor HTMLDocument
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLDocument
self HTMLDocument -> Getting (DOM ()) HTMLDocument (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"bgColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getBgColor :: HTMLDocument -> m result
getBgColor HTMLDocument
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"bgColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setFgColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> val -> m ()
setFgColor :: HTMLDocument -> val -> m ()
setFgColor HTMLDocument
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLDocument
self HTMLDocument -> Getting (DOM ()) HTMLDocument (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"fgColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getFgColor ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getFgColor :: HTMLDocument -> m result
getFgColor HTMLDocument
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"fgColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> val -> m ()
setAlinkColor :: HTMLDocument -> val -> m ()
setAlinkColor HTMLDocument
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLDocument
self HTMLDocument -> Getting (DOM ()) HTMLDocument (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"alinkColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAlinkColor ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getAlinkColor :: HTMLDocument -> m result
getAlinkColor HTMLDocument
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"alinkColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setLinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> val -> m ()
setLinkColor :: HTMLDocument -> val -> m ()
setLinkColor HTMLDocument
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLDocument
self HTMLDocument -> Getting (DOM ()) HTMLDocument (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"linkColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getLinkColor ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getLinkColor :: HTMLDocument -> m result
getLinkColor HTMLDocument
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"linkColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setVlinkColor ::
(MonadDOM m, ToJSString val) => HTMLDocument -> val -> m ()
setVlinkColor :: HTMLDocument -> val -> m ()
setVlinkColor HTMLDocument
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLDocument
self HTMLDocument -> Getting (DOM ()) HTMLDocument (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"vlinkColor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getVlinkColor ::
(MonadDOM m, FromJSString result) => HTMLDocument -> m result
getVlinkColor :: HTMLDocument -> m result
getVlinkColor HTMLDocument
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLDocument
self HTMLDocument
-> Getting (JSM JSVal) HTMLDocument (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLDocument (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"vlinkColor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)