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