{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.Window
(decodeURI, decodeURI_, decodeURIComponent, decodeURIComponent_,
encodeURI, encodeURI_, encodeURIComponent, encodeURIComponent_,
fetch, fetch_, openDatabase, openDatabase_, openDatabaseUnsafe,
openDatabaseUnchecked, close, stop, focus, blur, open, open_,
openUnsafe, openUnchecked, alertNoMessage, alert, confirm,
confirm_, prompt, prompt_, promptUnsafe, promptUnchecked, print,
requestAnimationFrame, requestAnimationFrame_,
cancelAnimationFrame, postMessage, captureEvents, releaseEvents,
getComputedStyle, getComputedStyle_, matchMedia, matchMedia_,
moveTo, moveBy, resizeTo, resizeBy, scrollOpt, scroll, scrollToOpt,
scrollTo, scrollByOpt, scrollBy, getSelection, getSelection_,
getSelectionUnsafe, getSelectionUnchecked, find, find_,
webkitRequestAnimationFrame, webkitRequestAnimationFrame_,
webkitCancelAnimationFrame, webkitCancelRequestAnimationFrame,
getMatchedCSSRules, getMatchedCSSRules_, showModalDialog,
showModalDialog_, webkitConvertPointFromPageToNode,
webkitConvertPointFromPageToNode_,
webkitConvertPointFromNodeToPage,
webkitConvertPointFromNodeToPage_,
collectMatchingElementsInFlatTree,
collectMatchingElementsInFlatTree_, matchingElementInFlatTree,
matchingElementInFlatTree_, matchingElementInFlatTreeUnsafe,
matchingElementInFlatTreeUnchecked, getIndexedDB,
getWebkitIndexedDB, getWebkitStorageInfo, getSpeechSynthesis,
getWindow, getSelf, getDocument, setName, getName, getLocation,
getHistory, getCustomElements, getLocationbar, getMenubar,
getPersonalbar, getScrollbars, getStatusbar, getToolbar, setStatus,
getStatus, getClosed, getFrames, getLength, getTop, getTopUnsafe,
getTopUnchecked, getOpener, getOpenerUnsafe, getOpenerUnchecked,
getParent, getParentUnsafe, getParentUnchecked, getFrameElement,
getFrameElementUnsafe, getFrameElementUnchecked, getNavigator,
getApplicationCache, getSessionStorage, getLocalStorage, getScreen,
getInnerHeight, getInnerWidth, getScrollX, getPageXOffset,
getScrollY, getPageYOffset, getScreenX, getScreenY, getOuterWidth,
getOuterHeight, getDevicePixelRatio, getOrientation, getEvent,
setDefaultStatus, getDefaultStatus, setDefaultstatus,
getDefaultstatus, getOffscreenBuffering, getScreenLeft,
getScreenTop, getClientInformation, getStyleMedia, gestureChange,
gestureEnd, gestureStart, deviceMotion, deviceOrientation,
webKitDeviceProximity, webKitAnimationEnd,
webKitAnimationIteration, webKitAnimationStart,
webKitTransitionEnd, Window(..), gTypeWindow)
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
decodeURI ::
(MonadDOM m, ToJSString uri, FromJSString result) =>
Window -> uri -> m result
decodeURI :: Window -> uri -> m result
decodeURI Window
self uri
uri
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"decodeURI" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]) 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)
decodeURI_ :: (MonadDOM m, ToJSString uri) => Window -> uri -> m ()
decodeURI_ :: Window -> uri -> m ()
decodeURI_ Window
self uri
uri
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"decodeURI" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]))
decodeURIComponent ::
(MonadDOM m, ToJSString uri, FromJSString result) =>
Window -> uri -> m result
decodeURIComponent :: Window -> uri -> m result
decodeURIComponent Window
self uri
uri
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"decodeURIComponent" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]) 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)
decodeURIComponent_ ::
(MonadDOM m, ToJSString uri) => Window -> uri -> m ()
decodeURIComponent_ :: Window -> uri -> m ()
decodeURIComponent_ Window
self uri
uri
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"decodeURIComponent" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]))
encodeURI ::
(MonadDOM m, ToJSString uri, FromJSString result) =>
Window -> uri -> m result
encodeURI :: Window -> uri -> m result
encodeURI Window
self uri
uri
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"encodeURI" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]) 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)
encodeURI_ :: (MonadDOM m, ToJSString uri) => Window -> uri -> m ()
encodeURI_ :: Window -> uri -> m ()
encodeURI_ Window
self uri
uri
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"encodeURI" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]))
encodeURIComponent ::
(MonadDOM m, ToJSString uri, FromJSString result) =>
Window -> uri -> m result
encodeURIComponent :: Window -> uri -> m result
encodeURIComponent Window
self uri
uri
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"encodeURIComponent" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]) 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)
encodeURIComponent_ ::
(MonadDOM m, ToJSString uri) => Window -> uri -> m ()
encodeURIComponent_ :: Window -> uri -> m ()
encodeURIComponent_ Window
self uri
uri
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"encodeURIComponent" [uri -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uri
uri]))
fetch ::
(MonadDOM m, ToJSVal input) =>
Window -> input -> Maybe RequestInit -> m Response
fetch :: Window -> input -> Maybe RequestInit -> m Response
fetch Window
self input
input Maybe RequestInit
init
= DOM Response -> m Response
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"fetch" [input -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal input
input, Maybe RequestInit -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe RequestInit
init]) JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM JSVal
readPromise)
JSM JSVal -> (JSVal -> DOM Response) -> DOM Response
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Response
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
fetch_ ::
(MonadDOM m, ToJSVal input) =>
Window -> input -> Maybe RequestInit -> m ()
fetch_ :: Window -> input -> Maybe RequestInit -> m ()
fetch_ Window
self input
input Maybe RequestInit
init
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"fetch" [input -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal input
input, Maybe RequestInit -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe RequestInit
init]))
openDatabase ::
(MonadDOM m, ToJSString name, ToJSString version,
ToJSString displayName) =>
Window ->
name ->
version ->
displayName -> Word -> Maybe DatabaseCallback -> m (Maybe Database)
openDatabase :: Window
-> name
-> version
-> displayName
-> Word
-> Maybe DatabaseCallback
-> m (Maybe Database)
openDatabase Window
self name
name version
version displayName
displayName Word
estimatedSize
Maybe DatabaseCallback
creationCallback
= DOM (Maybe Database) -> m (Maybe Database)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"openDatabase"
[name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name, version -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal version
version, displayName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal displayName
displayName,
Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
estimatedSize, Maybe DatabaseCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe DatabaseCallback
creationCallback])
JSM JSVal
-> (JSVal -> DOM (Maybe Database)) -> DOM (Maybe Database)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Database)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
openDatabase_ ::
(MonadDOM m, ToJSString name, ToJSString version,
ToJSString displayName) =>
Window ->
name ->
version -> displayName -> Word -> Maybe DatabaseCallback -> m ()
openDatabase_ :: Window
-> name
-> version
-> displayName
-> Word
-> Maybe DatabaseCallback
-> m ()
openDatabase_ Window
self name
name version
version displayName
displayName Word
estimatedSize
Maybe DatabaseCallback
creationCallback
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"openDatabase"
[name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name, version -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal version
version, displayName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal displayName
displayName,
Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
estimatedSize, Maybe DatabaseCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe DatabaseCallback
creationCallback]))
openDatabaseUnsafe ::
(MonadDOM m, ToJSString name, ToJSString version,
ToJSString displayName, HasCallStack) =>
Window ->
name ->
version ->
displayName -> Word -> Maybe DatabaseCallback -> m Database
openDatabaseUnsafe :: Window
-> name
-> version
-> displayName
-> Word
-> Maybe DatabaseCallback
-> m Database
openDatabaseUnsafe Window
self name
name version
version displayName
displayName Word
estimatedSize
Maybe DatabaseCallback
creationCallback
= DOM Database -> m Database
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"openDatabase"
[name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name, version -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal version
version, displayName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal displayName
displayName,
Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
estimatedSize, Maybe DatabaseCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe DatabaseCallback
creationCallback])
JSM JSVal
-> (JSVal -> DOM (Maybe Database)) -> DOM (Maybe Database)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Database)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
DOM (Maybe Database)
-> (Maybe Database -> DOM Database) -> DOM Database
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= DOM Database
-> (Database -> DOM Database) -> Maybe Database -> DOM Database
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Database
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Database -> DOM Database
forall (m :: * -> *) a. Monad m => a -> m a
return)
openDatabaseUnchecked ::
(MonadDOM m, ToJSString name, ToJSString version,
ToJSString displayName) =>
Window ->
name ->
version ->
displayName -> Word -> Maybe DatabaseCallback -> m Database
openDatabaseUnchecked :: Window
-> name
-> version
-> displayName
-> Word
-> Maybe DatabaseCallback
-> m Database
openDatabaseUnchecked Window
self name
name version
version displayName
displayName Word
estimatedSize
Maybe DatabaseCallback
creationCallback
= DOM Database -> m Database
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"openDatabase"
[name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name, version -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal version
version, displayName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal displayName
displayName,
Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
estimatedSize, Maybe DatabaseCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe DatabaseCallback
creationCallback])
JSM JSVal -> (JSVal -> DOM Database) -> DOM Database
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Database
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
close :: (MonadDOM m) => Window -> m ()
close :: Window -> m ()
close Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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" ()))
stop :: (MonadDOM m) => Window -> m ()
stop :: Window -> m ()
stop Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"stop" ()))
focus :: (MonadDOM m) => Window -> m ()
focus :: Window -> m ()
focus Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"focus" ()))
blur :: (MonadDOM m) => Window -> m ()
blur :: Window -> m ()
blur Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"blur" ()))
open ::
(MonadDOM m, ToJSString url, ToJSString target,
ToJSString features) =>
Window ->
Maybe url -> Maybe target -> Maybe features -> m (Maybe Window)
open :: Window
-> Maybe url -> Maybe target -> Maybe features -> m (Maybe Window)
open Window
self Maybe url
url Maybe target
target Maybe features
features
= DOM (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"open"
[Maybe url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe url
url, Maybe target -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe target
target, Maybe features -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe features
features])
JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
open_ ::
(MonadDOM m, ToJSString url, ToJSString target,
ToJSString features) =>
Window -> Maybe url -> Maybe target -> Maybe features -> m ()
open_ :: Window -> Maybe url -> Maybe target -> Maybe features -> m ()
open_ Window
self Maybe url
url Maybe target
target Maybe features
features
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"open"
[Maybe url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe url
url, Maybe target -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe target
target, Maybe features -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe features
features]))
openUnsafe ::
(MonadDOM m, ToJSString url, ToJSString target,
ToJSString features, HasCallStack) =>
Window -> Maybe url -> Maybe target -> Maybe features -> m Window
openUnsafe :: Window -> Maybe url -> Maybe target -> Maybe features -> m Window
openUnsafe Window
self Maybe url
url Maybe target
target Maybe features
features
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"open"
[Maybe url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe url
url, Maybe target -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe target
target, Maybe features -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe features
features])
JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
DOM (Maybe Window) -> (Maybe Window -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= DOM Window -> (Window -> DOM Window) -> Maybe Window -> DOM Window
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Window
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Window -> DOM Window
forall (m :: * -> *) a. Monad m => a -> m a
return)
openUnchecked ::
(MonadDOM m, ToJSString url, ToJSString target,
ToJSString features) =>
Window -> Maybe url -> Maybe target -> Maybe features -> m Window
openUnchecked :: Window -> Maybe url -> Maybe target -> Maybe features -> m Window
openUnchecked Window
self Maybe url
url Maybe target
target Maybe features
features
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"open"
[Maybe url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe url
url, Maybe target -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe target
target, Maybe features -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe features
features])
JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
alertNoMessage :: (MonadDOM m) => Window -> m ()
alertNoMessage :: Window -> m ()
alertNoMessage Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"alert" ()))
alert ::
(MonadDOM m, ToJSString message) => Window -> message -> m ()
alert :: Window -> message -> m ()
alert Window
self message
message
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"alert" [message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message]))
confirm ::
(MonadDOM m, ToJSString message) =>
Window -> Maybe message -> m Bool
confirm :: Window -> Maybe message -> m Bool
confirm Window
self Maybe message
message
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (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]
"confirm" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message]) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
confirm_ ::
(MonadDOM m, ToJSString message) => Window -> Maybe message -> m ()
confirm_ :: Window -> Maybe message -> m ()
confirm_ Window
self Maybe message
message
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"confirm" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message]))
prompt ::
(MonadDOM m, ToJSString message, ToJSString defaultValue,
FromJSString result) =>
Window -> Maybe message -> Maybe defaultValue -> m (Maybe result)
prompt :: Window -> Maybe message -> Maybe defaultValue -> m (Maybe result)
prompt Window
self Maybe message
message Maybe defaultValue
defaultValue
= DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"prompt" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message, Maybe defaultValue -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe defaultValue
defaultValue]) JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
prompt_ ::
(MonadDOM m, ToJSString message, ToJSString defaultValue) =>
Window -> Maybe message -> Maybe defaultValue -> m ()
prompt_ :: Window -> Maybe message -> Maybe defaultValue -> m ()
prompt_ Window
self Maybe message
message Maybe defaultValue
defaultValue
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"prompt" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message, Maybe defaultValue -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe defaultValue
defaultValue]))
promptUnsafe ::
(MonadDOM m, ToJSString message, ToJSString defaultValue,
HasCallStack, FromJSString result) =>
Window -> Maybe message -> Maybe defaultValue -> m result
promptUnsafe :: Window -> Maybe message -> Maybe defaultValue -> m result
promptUnsafe Window
self Maybe message
message Maybe defaultValue
defaultValue
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"prompt" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message, Maybe defaultValue -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe defaultValue
defaultValue])
JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM result
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") result -> DOM result
forall (m :: * -> *) a. Monad m => a -> m a
return)
promptUnchecked ::
(MonadDOM m, ToJSString message, ToJSString defaultValue,
FromJSString result) =>
Window -> Maybe message -> Maybe defaultValue -> m result
promptUnchecked :: Window -> Maybe message -> Maybe defaultValue -> m result
promptUnchecked Window
self Maybe message
message Maybe defaultValue
defaultValue
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"prompt" [Maybe message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe message
message, Maybe defaultValue -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe defaultValue
defaultValue]) 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)
print :: (MonadDOM m) => Window -> m ()
print :: Window -> m ()
print Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"print" ()))
requestAnimationFrame ::
(MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int
requestAnimationFrame :: Window -> RequestAnimationFrameCallback -> m Int
requestAnimationFrame Window
self RequestAnimationFrameCallback
callback
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((Window
self Window -> Getting (JSM JSVal) Window (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]
"requestAnimationFrame" [RequestAnimationFrameCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal RequestAnimationFrameCallback
callback]) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
requestAnimationFrame_ ::
(MonadDOM m) => Window -> RequestAnimationFrameCallback -> m ()
requestAnimationFrame_ :: Window -> RequestAnimationFrameCallback -> m ()
requestAnimationFrame_ Window
self RequestAnimationFrameCallback
callback
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"requestAnimationFrame" [RequestAnimationFrameCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal RequestAnimationFrameCallback
callback]))
cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()
cancelAnimationFrame :: Window -> Int -> m ()
cancelAnimationFrame Window
self Int
handle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"cancelAnimationFrame" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
handle]))
postMessage ::
(MonadDOM m, ToJSVal message, ToJSString targetOrigin,
IsGObject transfer) =>
Window -> message -> targetOrigin -> [transfer] -> m ()
postMessage :: Window -> message -> targetOrigin -> [transfer] -> m ()
postMessage Window
self message
message targetOrigin
targetOrigin [transfer]
transfer
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"postMessage"
[message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message, targetOrigin -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal targetOrigin
targetOrigin, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([transfer] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [transfer]
transfer)]))
captureEvents :: (MonadDOM m) => Window -> m ()
captureEvents :: Window -> m ()
captureEvents Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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) => Window -> m ()
releaseEvents :: Window -> m ()
releaseEvents Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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" ()))
getComputedStyle ::
(MonadDOM m, IsElement element, ToJSString pseudoElement) =>
Window -> element -> Maybe pseudoElement -> m CSSStyleDeclaration
getComputedStyle :: Window -> element -> Maybe pseudoElement -> m CSSStyleDeclaration
getComputedStyle Window
self element
element Maybe pseudoElement
pseudoElement
= DOM CSSStyleDeclaration -> m CSSStyleDeclaration
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"getComputedStyle"
[element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal element
element, Maybe pseudoElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pseudoElement
pseudoElement])
JSM JSVal
-> (JSVal -> DOM CSSStyleDeclaration) -> DOM CSSStyleDeclaration
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM CSSStyleDeclaration
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getComputedStyle_ ::
(MonadDOM m, IsElement element, ToJSString pseudoElement) =>
Window -> element -> Maybe pseudoElement -> m ()
getComputedStyle_ :: Window -> element -> Maybe pseudoElement -> m ()
getComputedStyle_ Window
self element
element Maybe pseudoElement
pseudoElement
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"getComputedStyle"
[element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal element
element, Maybe pseudoElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pseudoElement
pseudoElement]))
matchMedia ::
(MonadDOM m, ToJSString query) =>
Window -> query -> m MediaQueryList
matchMedia :: Window -> query -> m MediaQueryList
matchMedia Window
self query
query
= DOM MediaQueryList -> m MediaQueryList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"matchMedia" [query -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal query
query]) JSM JSVal -> (JSVal -> DOM MediaQueryList) -> DOM MediaQueryList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM MediaQueryList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
matchMedia_ ::
(MonadDOM m, ToJSString query) => Window -> query -> m ()
matchMedia_ :: Window -> query -> m ()
matchMedia_ Window
self query
query
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"matchMedia" [query -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal query
query]))
moveTo ::
(MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m ()
moveTo :: Window -> Maybe Float -> Maybe Float -> m ()
moveTo Window
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"moveTo" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
moveBy ::
(MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m ()
moveBy :: Window -> Maybe Float -> Maybe Float -> m ()
moveBy Window
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"moveBy" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
resizeTo ::
(MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m ()
resizeTo :: Window -> Maybe Float -> Maybe Float -> m ()
resizeTo Window
self Maybe Float
width Maybe Float
height
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"resizeTo" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
width, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
height]))
resizeBy ::
(MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m ()
resizeBy :: Window -> Maybe Float -> Maybe Float -> m ()
resizeBy Window
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"resizeBy" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
scrollOpt ::
(MonadDOM m) => Window -> Maybe ScrollToOptions -> m ()
scrollOpt :: Window -> Maybe ScrollToOptions -> m ()
scrollOpt Window
self Maybe ScrollToOptions
options
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scroll" [Maybe ScrollToOptions -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe ScrollToOptions
options]))
scroll :: (MonadDOM m) => Window -> Double -> Double -> m ()
scroll :: Window -> Double -> Double -> m ()
scroll Window
self Double
x Double
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scroll" [Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
x, Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
y]))
scrollToOpt ::
(MonadDOM m) => Window -> Maybe ScrollToOptions -> m ()
scrollToOpt :: Window -> Maybe ScrollToOptions -> m ()
scrollToOpt Window
self Maybe ScrollToOptions
options
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scrollTo" [Maybe ScrollToOptions -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe ScrollToOptions
options]))
scrollTo :: (MonadDOM m) => Window -> Double -> Double -> m ()
scrollTo :: Window -> Double -> Double -> m ()
scrollTo Window
self Double
x Double
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scrollTo" [Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
x, Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
y]))
scrollByOpt ::
(MonadDOM m) => Window -> Maybe ScrollToOptions -> m ()
scrollByOpt :: Window -> Maybe ScrollToOptions -> m ()
scrollByOpt Window
self Maybe ScrollToOptions
option
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scrollBy" [Maybe ScrollToOptions -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe ScrollToOptions
option]))
scrollBy :: (MonadDOM m) => Window -> Double -> Double -> m ()
scrollBy :: Window -> Double -> Double -> m ()
scrollBy Window
self Double
x Double
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"scrollBy" [Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
x, Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
y]))
getSelection :: (MonadDOM m) => Window -> m (Maybe Selection)
getSelection :: Window -> m (Maybe Selection)
getSelection Window
self
= DOM (Maybe Selection) -> m (Maybe Selection)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (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]
"getSelection" ()) JSM JSVal
-> (JSVal -> DOM (Maybe Selection)) -> DOM (Maybe Selection)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Selection)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getSelection_ :: (MonadDOM m) => Window -> m ()
getSelection_ :: Window -> m ()
getSelection_ Window
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 (Window
self Window -> Getting (JSM JSVal) Window (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]
"getSelection" ()))
getSelectionUnsafe ::
(MonadDOM m, HasCallStack) => Window -> m Selection
getSelectionUnsafe :: Window -> m Selection
getSelectionUnsafe Window
self
= DOM Selection -> m Selection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"getSelection" ()) JSM JSVal
-> (JSVal -> DOM (Maybe Selection)) -> DOM (Maybe Selection)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Selection)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Selection)
-> (Maybe Selection -> DOM Selection) -> DOM Selection
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Selection
-> (Selection -> DOM Selection) -> Maybe Selection -> DOM Selection
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Selection
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Selection -> DOM Selection
forall (m :: * -> *) a. Monad m => a -> m a
return)
getSelectionUnchecked :: (MonadDOM m) => Window -> m Selection
getSelectionUnchecked :: Window -> m Selection
getSelectionUnchecked Window
self
= DOM Selection -> m Selection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (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]
"getSelection" ()) JSM JSVal -> (JSVal -> DOM Selection) -> DOM Selection
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Selection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
find ::
(MonadDOM m, ToJSString string) =>
Window ->
Maybe string ->
Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool
find :: Window
-> Maybe string
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> m Bool
find Window
self Maybe string
string Bool
caseSensitive Bool
backwards Bool
wrap Bool
wholeWord
Bool
searchInFrames Bool
showDialog
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"find"
[Maybe string -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe string
string, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
caseSensitive, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
backwards,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
wrap, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
wholeWord, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
searchInFrames,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
showDialog])
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
find_ ::
(MonadDOM m, ToJSString string) =>
Window ->
Maybe string ->
Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()
find_ :: Window
-> Maybe string
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> m ()
find_ Window
self Maybe string
string Bool
caseSensitive Bool
backwards Bool
wrap Bool
wholeWord
Bool
searchInFrames Bool
showDialog
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"find"
[Maybe string -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe string
string, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
caseSensitive, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
backwards,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
wrap, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
wholeWord, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
searchInFrames,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
showDialog]))
webkitRequestAnimationFrame ::
(MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int
webkitRequestAnimationFrame :: Window -> RequestAnimationFrameCallback -> m Int
webkitRequestAnimationFrame Window
self RequestAnimationFrameCallback
callback
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitRequestAnimationFrame" [RequestAnimationFrameCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal RequestAnimationFrameCallback
callback]) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
webkitRequestAnimationFrame_ ::
(MonadDOM m) => Window -> RequestAnimationFrameCallback -> m ()
webkitRequestAnimationFrame_ :: Window -> RequestAnimationFrameCallback -> m ()
webkitRequestAnimationFrame_ Window
self RequestAnimationFrameCallback
callback
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitRequestAnimationFrame" [RequestAnimationFrameCallback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal RequestAnimationFrameCallback
callback]))
webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()
webkitCancelAnimationFrame :: Window -> Int -> m ()
webkitCancelAnimationFrame Window
self Int
id
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitCancelAnimationFrame" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
id]))
webkitCancelRequestAnimationFrame ::
(MonadDOM m) => Window -> Int -> m ()
webkitCancelRequestAnimationFrame :: Window -> Int -> m ()
webkitCancelRequestAnimationFrame Window
self Int
id
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitCancelRequestAnimationFrame" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
id]))
getMatchedCSSRules ::
(MonadDOM m, IsElement element, ToJSString pseudoElement) =>
Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList
getMatchedCSSRules :: Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList
getMatchedCSSRules Window
self Maybe element
element Maybe pseudoElement
pseudoElement
= DOM CSSRuleList -> m CSSRuleList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"getMatchedCSSRules"
[Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, Maybe pseudoElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pseudoElement
pseudoElement])
JSM JSVal -> (JSVal -> DOM CSSRuleList) -> DOM CSSRuleList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM CSSRuleList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getMatchedCSSRules_ ::
(MonadDOM m, IsElement element, ToJSString pseudoElement) =>
Window -> Maybe element -> Maybe pseudoElement -> m ()
getMatchedCSSRules_ :: Window -> Maybe element -> Maybe pseudoElement -> m ()
getMatchedCSSRules_ Window
self Maybe element
element Maybe pseudoElement
pseudoElement
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"getMatchedCSSRules"
[Maybe element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe element
element, Maybe pseudoElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pseudoElement
pseudoElement]))
showModalDialog ::
(MonadDOM m, ToJSString url, ToJSVal dialogArgs,
ToJSString featureArgs) =>
Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m JSVal
showModalDialog :: Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m JSVal
showModalDialog Window
self url
url Maybe dialogArgs
dialogArgs Maybe featureArgs
featureArgs
= JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"showModalDialog"
[url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, Maybe dialogArgs -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe dialogArgs
dialogArgs, Maybe featureArgs -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe featureArgs
featureArgs])
JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)
showModalDialog_ ::
(MonadDOM m, ToJSString url, ToJSVal dialogArgs,
ToJSString featureArgs) =>
Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m ()
showModalDialog_ :: Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m ()
showModalDialog_ Window
self url
url Maybe dialogArgs
dialogArgs Maybe featureArgs
featureArgs
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"showModalDialog"
[url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, Maybe dialogArgs -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe dialogArgs
dialogArgs, Maybe featureArgs -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe featureArgs
featureArgs]))
webkitConvertPointFromPageToNode ::
(MonadDOM m, IsNode node) =>
Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint
webkitConvertPointFromPageToNode :: Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint
webkitConvertPointFromPageToNode Window
self Maybe node
node Maybe WebKitPoint
p
= DOM WebKitPoint -> m WebKitPoint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitConvertPointFromPageToNode"
[Maybe node -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe node
node, Maybe WebKitPoint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebKitPoint
p])
JSM JSVal -> (JSVal -> DOM WebKitPoint) -> DOM WebKitPoint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebKitPoint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
webkitConvertPointFromPageToNode_ ::
(MonadDOM m, IsNode node) =>
Window -> Maybe node -> Maybe WebKitPoint -> m ()
webkitConvertPointFromPageToNode_ :: Window -> Maybe node -> Maybe WebKitPoint -> m ()
webkitConvertPointFromPageToNode_ Window
self Maybe node
node Maybe WebKitPoint
p
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitConvertPointFromPageToNode"
[Maybe node -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe node
node, Maybe WebKitPoint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebKitPoint
p]))
webkitConvertPointFromNodeToPage ::
(MonadDOM m, IsNode node) =>
Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint
webkitConvertPointFromNodeToPage :: Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint
webkitConvertPointFromNodeToPage Window
self Maybe node
node Maybe WebKitPoint
p
= DOM WebKitPoint -> m WebKitPoint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitConvertPointFromNodeToPage"
[Maybe node -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe node
node, Maybe WebKitPoint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebKitPoint
p])
JSM JSVal -> (JSVal -> DOM WebKitPoint) -> DOM WebKitPoint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebKitPoint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
webkitConvertPointFromNodeToPage_ ::
(MonadDOM m, IsNode node) =>
Window -> Maybe node -> Maybe WebKitPoint -> m ()
webkitConvertPointFromNodeToPage_ :: Window -> Maybe node -> Maybe WebKitPoint -> m ()
webkitConvertPointFromNodeToPage_ Window
self Maybe node
node Maybe WebKitPoint
p
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"webkitConvertPointFromNodeToPage"
[Maybe node -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe node
node, Maybe WebKitPoint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebKitPoint
p]))
collectMatchingElementsInFlatTree ::
(MonadDOM m, IsNode scope, ToJSString selectors) =>
Window -> scope -> selectors -> m NodeList
collectMatchingElementsInFlatTree :: Window -> scope -> selectors -> m NodeList
collectMatchingElementsInFlatTree Window
self scope
scope selectors
selectors
= DOM NodeList -> m NodeList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"collectMatchingElementsInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors])
JSM JSVal -> (JSVal -> DOM NodeList) -> DOM NodeList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM NodeList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
collectMatchingElementsInFlatTree_ ::
(MonadDOM m, IsNode scope, ToJSString selectors) =>
Window -> scope -> selectors -> m ()
collectMatchingElementsInFlatTree_ :: Window -> scope -> selectors -> m ()
collectMatchingElementsInFlatTree_ Window
self scope
scope selectors
selectors
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"collectMatchingElementsInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors]))
matchingElementInFlatTree ::
(MonadDOM m, IsNode scope, ToJSString selectors) =>
Window -> scope -> selectors -> m (Maybe Element)
matchingElementInFlatTree :: Window -> scope -> selectors -> m (Maybe Element)
matchingElementInFlatTree Window
self scope
scope selectors
selectors
= DOM (Maybe Element) -> m (Maybe Element)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"matchingElementInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors])
JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
matchingElementInFlatTree_ ::
(MonadDOM m, IsNode scope, ToJSString selectors) =>
Window -> scope -> selectors -> m ()
matchingElementInFlatTree_ :: Window -> scope -> selectors -> m ()
matchingElementInFlatTree_ Window
self scope
scope selectors
selectors
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(Window
self Window -> Getting (JSM JSVal) Window (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]
"matchingElementInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors]))
matchingElementInFlatTreeUnsafe ::
(MonadDOM m, IsNode scope, ToJSString selectors, HasCallStack) =>
Window -> scope -> selectors -> m Element
matchingElementInFlatTreeUnsafe :: Window -> scope -> selectors -> m Element
matchingElementInFlatTreeUnsafe Window
self scope
scope selectors
selectors
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (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]
"matchingElementInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors])
JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
DOM (Maybe Element)
-> (Maybe Element -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= DOM Element
-> (Element -> DOM Element) -> Maybe Element -> DOM Element
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Element
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Element -> DOM Element
forall (m :: * -> *) a. Monad m => a -> m a
return)
matchingElementInFlatTreeUnchecked ::
(MonadDOM m, IsNode scope, ToJSString selectors) =>
Window -> scope -> selectors -> m Element
matchingElementInFlatTreeUnchecked :: Window -> scope -> selectors -> m Element
matchingElementInFlatTreeUnchecked Window
self scope
scope selectors
selectors
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((Window
self Window -> Getting (JSM JSVal) Window (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]
"matchingElementInFlatTree"
[scope -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal scope
scope, selectors -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal selectors
selectors])
JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getIndexedDB :: (MonadDOM m) => Window -> m IDBFactory
getIndexedDB :: Window -> m IDBFactory
getIndexedDB Window
self
= DOM IDBFactory -> m IDBFactory
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"indexedDB") JSM JSVal -> (JSVal -> DOM IDBFactory) -> DOM IDBFactory
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM IDBFactory
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWebkitIndexedDB :: (MonadDOM m) => Window -> m IDBFactory
getWebkitIndexedDB :: Window -> m IDBFactory
getWebkitIndexedDB Window
self
= DOM IDBFactory -> m IDBFactory
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"webkitIndexedDB") JSM JSVal -> (JSVal -> DOM IDBFactory) -> DOM IDBFactory
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM IDBFactory
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWebkitStorageInfo :: (MonadDOM m) => Window -> m StorageInfo
getWebkitStorageInfo :: Window -> m StorageInfo
getWebkitStorageInfo Window
self
= DOM StorageInfo -> m StorageInfo
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"webkitStorageInfo") JSM JSVal -> (JSVal -> DOM StorageInfo) -> DOM StorageInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM StorageInfo
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSpeechSynthesis :: (MonadDOM m) => Window -> m SpeechSynthesis
getSpeechSynthesis :: Window -> m SpeechSynthesis
getSpeechSynthesis Window
self
= DOM SpeechSynthesis -> m SpeechSynthesis
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"speechSynthesis") JSM JSVal -> (JSVal -> DOM SpeechSynthesis) -> DOM SpeechSynthesis
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SpeechSynthesis
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWindow :: (MonadDOM m) => Window -> m Window
getWindow :: Window -> m Window
getWindow Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"window") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSelf :: (MonadDOM m) => Window -> m Window
getSelf :: Window -> m Window
getSelf Window
self = DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"self") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDocument :: (MonadDOM m) => Window -> m Document
getDocument :: Window -> m Document
getDocument Window
self
= DOM Document -> m Document
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"document") JSM JSVal -> (JSVal -> DOM Document) -> DOM Document
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Document
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setName :: (MonadDOM m, ToJSString val) => Window -> val -> m ()
setName :: Window -> val -> m ()
setName Window
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Window
self Window -> Getting (DOM ()) Window (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]
"name" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getName :: (MonadDOM m, FromJSString result) => Window -> m result
getName :: Window -> m result
getName Window
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"name") 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)
getLocation :: (MonadDOM m) => Window -> m Location
getLocation :: Window -> m Location
getLocation Window
self
= DOM Location -> m Location
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"location") JSM JSVal -> (JSVal -> DOM Location) -> DOM Location
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Location
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getHistory :: (MonadDOM m) => Window -> m History
getHistory :: Window -> m History
getHistory Window
self
= DOM History -> m History
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"history") JSM JSVal -> (JSVal -> DOM History) -> DOM History
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM History
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCustomElements ::
(MonadDOM m) => Window -> m CustomElementRegistry
getCustomElements :: Window -> m CustomElementRegistry
getCustomElements Window
self
= DOM CustomElementRegistry -> m CustomElementRegistry
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"customElements") JSM JSVal
-> (JSVal -> DOM CustomElementRegistry)
-> DOM CustomElementRegistry
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM CustomElementRegistry
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLocationbar :: (MonadDOM m) => Window -> m BarProp
getLocationbar :: Window -> m BarProp
getLocationbar Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"locationbar") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getMenubar :: (MonadDOM m) => Window -> m BarProp
Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"menubar") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPersonalbar :: (MonadDOM m) => Window -> m BarProp
getPersonalbar :: Window -> m BarProp
getPersonalbar Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"personalbar") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getScrollbars :: (MonadDOM m) => Window -> m BarProp
getScrollbars :: Window -> m BarProp
getScrollbars Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"scrollbars") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStatusbar :: (MonadDOM m) => Window -> m BarProp
getStatusbar :: Window -> m BarProp
getStatusbar Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"statusbar") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getToolbar :: (MonadDOM m) => Window -> m BarProp
getToolbar :: Window -> m BarProp
getToolbar Window
self
= DOM BarProp -> m BarProp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"toolbar") JSM JSVal -> (JSVal -> DOM BarProp) -> DOM BarProp
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM BarProp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m ()
setStatus :: Window -> val -> m ()
setStatus Window
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Window
self Window -> Getting (DOM ()) Window (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]
"status" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getStatus ::
(MonadDOM m, FromJSString result) => Window -> m result
getStatus :: Window -> m result
getStatus Window
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"status") 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)
getClosed :: (MonadDOM m) => Window -> m Bool
getClosed :: Window -> m Bool
getClosed Window
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"closed") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getFrames :: (MonadDOM m) => Window -> m Window
getFrames :: Window -> m Window
getFrames Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"frames") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLength :: (MonadDOM m) => Window -> m Word
getLength :: Window -> m Word
getLength Window
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"length") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getTop :: (MonadDOM m) => Window -> m (Maybe Window)
getTop :: Window -> m (Maybe Window)
getTop Window
self = DOM (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"top") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getTopUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window
getTopUnsafe :: Window -> m Window
getTopUnsafe Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"top") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Window) -> (Maybe Window -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Window -> (Window -> DOM Window) -> Maybe Window -> DOM Window
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Window
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Window -> DOM Window
forall (m :: * -> *) a. Monad m => a -> m a
return)
getTopUnchecked :: (MonadDOM m) => Window -> m Window
getTopUnchecked :: Window -> m Window
getTopUnchecked Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"top") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOpener :: (MonadDOM m) => Window -> m (Maybe Window)
getOpener :: Window -> m (Maybe Window)
getOpener Window
self = DOM (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"opener") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getOpenerUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window
getOpenerUnsafe :: Window -> m Window
getOpenerUnsafe Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"opener") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Window) -> (Maybe Window -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Window -> (Window -> DOM Window) -> Maybe Window -> DOM Window
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Window
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Window -> DOM Window
forall (m :: * -> *) a. Monad m => a -> m a
return)
getOpenerUnchecked :: (MonadDOM m) => Window -> m Window
getOpenerUnchecked :: Window -> m Window
getOpenerUnchecked Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"opener") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getParent :: (MonadDOM m) => Window -> m (Maybe Window)
getParent :: Window -> m (Maybe Window)
getParent Window
self = DOM (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"parent") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getParentUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window
getParentUnsafe :: Window -> m Window
getParentUnsafe Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"parent") JSM JSVal -> (JSVal -> DOM (Maybe Window)) -> DOM (Maybe Window)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Window)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Window) -> (Maybe Window -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Window -> (Window -> DOM Window) -> Maybe Window -> DOM Window
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Window
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Window -> DOM Window
forall (m :: * -> *) a. Monad m => a -> m a
return)
getParentUnchecked :: (MonadDOM m) => Window -> m Window
getParentUnchecked :: Window -> m Window
getParentUnchecked Window
self
= DOM Window -> m Window
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"parent") JSM JSVal -> (JSVal -> DOM Window) -> DOM Window
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Window
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getFrameElement :: (MonadDOM m) => Window -> m (Maybe Element)
getFrameElement :: Window -> m (Maybe Element)
getFrameElement Window
self
= DOM (Maybe Element) -> m (Maybe Element)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"frameElement") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getFrameElementUnsafe ::
(MonadDOM m, HasCallStack) => Window -> m Element
getFrameElementUnsafe :: Window -> m Element
getFrameElementUnsafe Window
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"frameElement") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Element)
-> (Maybe Element -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Element
-> (Element -> DOM Element) -> Maybe Element -> DOM Element
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Element
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Element -> DOM Element
forall (m :: * -> *) a. Monad m => a -> m a
return)
getFrameElementUnchecked :: (MonadDOM m) => Window -> m Element
getFrameElementUnchecked :: Window -> m Element
getFrameElementUnchecked Window
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"frameElement") JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNavigator :: (MonadDOM m) => Window -> m Navigator
getNavigator :: Window -> m Navigator
getNavigator Window
self
= DOM Navigator -> m Navigator
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"navigator") JSM JSVal -> (JSVal -> DOM Navigator) -> DOM Navigator
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Navigator
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getApplicationCache :: (MonadDOM m) => Window -> m ApplicationCache
getApplicationCache :: Window -> m ApplicationCache
getApplicationCache Window
self
= DOM ApplicationCache -> m ApplicationCache
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"applicationCache") JSM JSVal
-> (JSVal -> DOM ApplicationCache) -> DOM ApplicationCache
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM ApplicationCache
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSessionStorage :: (MonadDOM m) => Window -> m Storage
getSessionStorage :: Window -> m Storage
getSessionStorage Window
self
= DOM Storage -> m Storage
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"sessionStorage") JSM JSVal -> (JSVal -> DOM Storage) -> DOM Storage
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Storage
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLocalStorage :: (MonadDOM m) => Window -> m Storage
getLocalStorage :: Window -> m Storage
getLocalStorage Window
self
= DOM Storage -> m Storage
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"localStorage") JSM JSVal -> (JSVal -> DOM Storage) -> DOM Storage
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Storage
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getScreen :: (MonadDOM m) => Window -> m Screen
getScreen :: Window -> m Screen
getScreen Window
self
= DOM Screen -> m Screen
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screen") JSM JSVal -> (JSVal -> DOM Screen) -> DOM Screen
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Screen
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getInnerHeight :: (MonadDOM m) => Window -> m Int
getInnerHeight :: Window -> m Int
getInnerHeight Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"innerHeight") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getInnerWidth :: (MonadDOM m) => Window -> m Int
getInnerWidth :: Window -> m Int
getInnerWidth Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"innerWidth") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getScrollX :: (MonadDOM m) => Window -> m Double
getScrollX :: Window -> m Double
getScrollX Window
self = JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"scrollX") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getPageXOffset :: (MonadDOM m) => Window -> m Double
getPageXOffset :: Window -> m Double
getPageXOffset Window
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pageXOffset") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getScrollY :: (MonadDOM m) => Window -> m Double
getScrollY :: Window -> m Double
getScrollY Window
self = JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"scrollY") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getPageYOffset :: (MonadDOM m) => Window -> m Double
getPageYOffset :: Window -> m Double
getPageYOffset Window
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pageYOffset") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getScreenX :: (MonadDOM m) => Window -> m Int
getScreenX :: Window -> m Int
getScreenX Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenX") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getScreenY :: (MonadDOM m) => Window -> m Int
getScreenY :: Window -> m Int
getScreenY Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenY") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getOuterWidth :: (MonadDOM m) => Window -> m Int
getOuterWidth :: Window -> m Int
getOuterWidth Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"outerWidth") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getOuterHeight :: (MonadDOM m) => Window -> m Int
getOuterHeight :: Window -> m Int
getOuterHeight Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"outerHeight") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getDevicePixelRatio :: (MonadDOM m) => Window -> m Double
getDevicePixelRatio :: Window -> m Double
getDevicePixelRatio Window
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"devicePixelRatio") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOrientation :: (MonadDOM m) => Window -> m Int
getOrientation :: Window -> m Int
getOrientation Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"orientation") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getEvent :: (MonadDOM m) => Window -> m Event
getEvent :: Window -> m Event
getEvent Window
self
= DOM Event -> m Event
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"event") JSM JSVal -> (JSVal -> DOM Event) -> DOM Event
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Event
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setDefaultStatus ::
(MonadDOM m, ToJSString val) => Window -> val -> m ()
setDefaultStatus :: Window -> val -> m ()
setDefaultStatus Window
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Window
self Window -> Getting (DOM ()) Window (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]
"defaultStatus" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDefaultStatus ::
(MonadDOM m, FromJSString result) => Window -> m result
getDefaultStatus :: Window -> m result
getDefaultStatus Window
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"defaultStatus") 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)
setDefaultstatus ::
(MonadDOM m, ToJSString val) => Window -> val -> m ()
setDefaultstatus :: Window -> val -> m ()
setDefaultstatus Window
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Window
self Window -> Getting (DOM ()) Window (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]
"defaultstatus" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDefaultstatus ::
(MonadDOM m, FromJSString result) => Window -> m result
getDefaultstatus :: Window -> m result
getDefaultstatus Window
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"defaultstatus") 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)
getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool
getOffscreenBuffering :: Window -> m Bool
getOffscreenBuffering Window
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offscreenBuffering") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getScreenLeft :: (MonadDOM m) => Window -> m Int
getScreenLeft :: Window -> m Int
getScreenLeft Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenLeft") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getScreenTop :: (MonadDOM m) => Window -> m Int
getScreenTop :: Window -> m Int
getScreenTop Window
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"screenTop") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getClientInformation :: (MonadDOM m) => Window -> m Navigator
getClientInformation :: Window -> m Navigator
getClientInformation Window
self
= DOM Navigator -> m Navigator
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"clientInformation") JSM JSVal -> (JSVal -> DOM Navigator) -> DOM Navigator
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Navigator
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStyleMedia :: (MonadDOM m) => Window -> m StyleMedia
getStyleMedia :: Window -> m StyleMedia
getStyleMedia Window
self
= DOM StyleMedia -> m StyleMedia
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((Window
self Window -> Getting (JSM JSVal) Window (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter Window (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"styleMedia") JSM JSVal -> (JSVal -> DOM StyleMedia) -> DOM StyleMedia
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM StyleMedia
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
gestureChange :: EventName Window UIEvent
gestureChange :: EventName Window UIEvent
gestureChange = DOMString -> EventName Window UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"gesturechange")
gestureEnd :: EventName Window UIEvent
gestureEnd :: EventName Window UIEvent
gestureEnd = DOMString -> EventName Window UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"gestureend")
gestureStart :: EventName Window UIEvent
gestureStart :: EventName Window UIEvent
gestureStart = DOMString -> EventName Window UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"gesturestart")
deviceMotion :: EventName Window DeviceMotionEvent
deviceMotion :: EventName Window DeviceMotionEvent
deviceMotion = DOMString -> EventName Window DeviceMotionEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"devicemotion")
deviceOrientation :: EventName Window DeviceOrientationEvent
deviceOrientation :: EventName Window DeviceOrientationEvent
deviceOrientation
= DOMString -> EventName Window DeviceOrientationEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"deviceorientation")
webKitDeviceProximity :: EventName Window DeviceProximityEvent
webKitDeviceProximity :: EventName Window DeviceProximityEvent
webKitDeviceProximity
= DOMString -> EventName Window DeviceProximityEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"webkitdeviceproximity")
webKitAnimationEnd :: EventName Window AnimationEvent
webKitAnimationEnd :: EventName Window AnimationEvent
webKitAnimationEnd
= DOMString -> EventName Window AnimationEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"webkitanimationend")
webKitAnimationIteration :: EventName Window AnimationEvent
webKitAnimationIteration :: EventName Window AnimationEvent
webKitAnimationIteration
= DOMString -> EventName Window AnimationEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"webkitanimationiteration")
webKitAnimationStart :: EventName Window AnimationEvent
webKitAnimationStart :: EventName Window AnimationEvent
webKitAnimationStart
= DOMString -> EventName Window AnimationEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"webkitanimationstart")
webKitTransitionEnd :: EventName Window TransitionEvent
webKitTransitionEnd :: EventName Window TransitionEvent
webKitTransitionEnd
= DOMString -> EventName Window TransitionEvent
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"webkittransitionend")