module JSDOM.Generated.Internals
(address, nodeNeedsStyleRecalc, description,
hasPausedImageAnimations, elementRenderTreeAsText, isPreloaded,
isLoadingFromMemoryCache, xhrResponseSource, clearMemoryCache,
pruneMemoryCacheToSize, memoryCacheSize, clearPageCache,
pageCacheSize, computedStyleIncludingVisitedInfo, ensureShadowRoot,
createShadowRoot, shadowRoot, shadowRootType, includerFor,
shadowPseudoId, setShadowPseudoId, treeScopeRootNode,
parentTreeScope, lastSpatialNavigationCandidateCount,
numberOfActiveAnimations, suspendAnimations, resumeAnimations,
animationsAreSuspended, pauseAnimationAtTimeOnElement,
pauseAnimationAtTimeOnPseudoElement,
pauseTransitionAtTimeOnElement,
pauseTransitionAtTimeOnPseudoElement, attached, visiblePlaceholder,
selectColorInColorChooser, formControlStateOfPreviousHistoryItem,
setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds,
boundingBox, inspectorHighlightRects, inspectorHighlightObject,
markerCountForNode, markerRangeForNode, markerDescriptionForNode,
addTextMatchMarker, setMarkedTextMatchesAreHighlighted,
invalidateFontCache, setScrollViewPosition, setPagination,
configurationForViewport, wasLastChangeUserEdit,
elementShouldAutoComplete, setEditingValue, setAutofilled,
countMatchesForText, paintControlTints, scrollElementToRect,
rangeFromLocationAndLength, locationFromRange, lengthFromRange,
rangeAsText, subrange, rangeForDictionaryLookupAtLocation,
setDelegatesScrolling, lastSpellCheckRequestSequence,
lastSpellCheckProcessedSequence, userPreferredLanguages,
setUserPreferredLanguages, wheelEventHandlerCount,
touchEventHandlerCount, nodesFromRect, parserMetaData,
updateEditorUINowIfScheduled, hasSpellingMarker, hasGrammarMarker,
hasAutocorrectedMarker, setContinuousSpellCheckingEnabled,
setAutomaticQuoteSubstitutionEnabled,
setAutomaticLinkDetectionEnabled,
setAutomaticDashSubstitutionEnabled,
setAutomaticTextReplacementEnabled,
setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled,
toggleOverwriteModeEnabled, numberOfScrollableAreas,
isPageBoxVisible, layerTreeAsText, scrollingStateTreeAsText,
mainThreadScrollingReasons, nonFastScrollableRects,
repaintRectsAsText, garbageCollectDocumentResources,
allowRoundingHacks, insertAuthorCSS, insertUserCSS,
setBatteryStatus, setDeviceProximity, numberOfLiveNodes,
numberOfLiveDocuments, consoleMessageArgumentCounts,
openDummyInspectorFrontend, closeDummyInspectorFrontend,
setJavaScriptProfilingEnabled, setInspectorIsUnderTest,
counterValue, pageNumber, shortcutIconURLs, allIconURLs,
numberOfPages, pageProperty, pageSizeAndMarginsInPixels,
setPageScaleFactor, setPageZoomFactor, setHeaderHeight,
setFooterHeight, setTopContentInset,
webkitWillEnterFullScreenForElement,
webkitDidEnterFullScreenForElement,
webkitWillExitFullScreenForElement,
webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota,
registerURLSchemeAsBypassingContentSecurityPolicy,
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,
mallocStatistics, typeConversions, memoryInfo,
getReferencedFilePaths, startTrackingRepaints,
stopTrackingRepaints, isTimerThrottled,
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,
getCurrentCursorInfo, markerTextForListItem, toolTipFromElement,
deserializeBuffer, serializeObject, setUsesOverlayScrollbars,
forceReload, simulateAudioInterruption,
mediaElementHasCharacteristic, initializeMockCDM,
enableMockSpeechSynthesizer, getImageSourceURL,
captionsStyleSheetOverride, setCaptionsStyleSheetOverride,
setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode,
createTimeRanges, closestTimeToTimeRanges, isSelectPopupVisible,
isVibrating, isPluginUnavailabilityIndicatorObscured,
isPluginSnapshotted, selectionBounds, initializeMockMediaSource,
bufferedSamplesForTrackID, beginMediaSessionInterruption,
endMediaSessionInterruption, applicationWillEnterForeground,
applicationWillEnterBackground, setMediaSessionRestrictions,
postRemoteControlCommand, simulateSystemSleep, simulateSystemWake,
elementIsBlockingDisplaySleep, installMockPageOverlay,
pageOverlayLayerTreeAsText, setPageMuted, isPagePlayingAudio,
pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS,
pattern LAYER_TREE_INCLUDES_TILE_CACHES,
pattern LAYER_TREE_INCLUDES_REPAINT_RECTS,
pattern LAYER_TREE_INCLUDES_PAINTING_PHASES,
pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, getSettings,
getWorkerThreadCount, getConsoleProfiles, Internals,
castToInternals, gTypeInternals)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
address ::
(MonadDOM m, IsNode node, FromJSString result) =>
Internals -> Maybe node -> m result
address self node
= liftDOM
((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked)
nodeNeedsStyleRecalc ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
nodeNeedsStyleRecalc self node
= liftDOM
((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool)
description ::
(MonadDOM m, FromJSString result) => Internals -> JSVal -> m result
description self value
= liftDOM
((self ^. jsf "description" [toJSVal value]) >>=
fromJSValUnchecked)
hasPausedImageAnimations ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
hasPausedImageAnimations self element
= liftDOM
((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>=
valToBool)
elementRenderTreeAsText ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
elementRenderTreeAsText self element
= liftDOM
((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>=
fromJSValUnchecked)
isPreloaded ::
(MonadDOM m, ToJSString url) => Internals -> url -> m Bool
isPreloaded self url
= liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool)
isLoadingFromMemoryCache ::
(MonadDOM m, ToJSString url) => Internals -> url -> m Bool
isLoadingFromMemoryCache self url
= liftDOM
((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>=
valToBool)
xhrResponseSource ::
(MonadDOM m, FromJSString result) =>
Internals -> Maybe XMLHttpRequest -> m result
xhrResponseSource self xhr
= liftDOM
((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>=
fromJSValUnchecked)
clearMemoryCache :: (MonadDOM m) => Internals -> m ()
clearMemoryCache self
= liftDOM (void (self ^. js "clearMemoryCache"))
pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m ()
pruneMemoryCacheToSize self size
= liftDOM
(void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size]))
memoryCacheSize :: (MonadDOM m) => Internals -> m Int
memoryCacheSize self
= liftDOM
(round <$> ((self ^. js "memoryCacheSize") >>= valToNumber))
clearPageCache :: (MonadDOM m) => Internals -> m ()
clearPageCache self = liftDOM (void (self ^. js "clearPageCache"))
pageCacheSize :: (MonadDOM m) => Internals -> m Word
pageCacheSize self
= liftDOM
(round <$> ((self ^. js "pageCacheSize") >>= valToNumber))
computedStyleIncludingVisitedInfo ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)
computedStyleIncludingVisitedInfo self node
= liftDOM
((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])
>>= fromJSVal)
ensureShadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
ensureShadowRoot self host
= liftDOM
((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal)
createShadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
createShadowRoot self host
= liftDOM
((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal)
shadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
shadowRoot self host
= liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal)
shadowRootType ::
(MonadDOM m, IsNode root, FromJSString result) =>
Internals -> Maybe root -> m result
shadowRootType self root
= liftDOM
((self ^. jsf "shadowRootType" [toJSVal root]) >>=
fromJSValUnchecked)
includerFor ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Element)
includerFor self node
= liftDOM
((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal)
shadowPseudoId ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
shadowPseudoId self element
= liftDOM
((self ^. jsf "shadowPseudoId" [toJSVal element]) >>=
fromJSValUnchecked)
setShadowPseudoId ::
(MonadDOM m, IsElement element, ToJSString id) =>
Internals -> Maybe element -> id -> m ()
setShadowPseudoId self element id
= liftDOM
(void
(self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id]))
treeScopeRootNode ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Node)
treeScopeRootNode self node
= liftDOM
((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal)
parentTreeScope ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Node)
parentTreeScope self node
= liftDOM
((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal)
lastSpatialNavigationCandidateCount ::
(MonadDOM m) => Internals -> m Word
lastSpatialNavigationCandidateCount self
= liftDOM
(round <$>
((self ^. js "lastSpatialNavigationCandidateCount") >>=
valToNumber))
numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word
numberOfActiveAnimations self
= liftDOM
(round <$>
((self ^. js "numberOfActiveAnimations") >>= valToNumber))
suspendAnimations :: (MonadDOM m) => Internals -> m ()
suspendAnimations self
= liftDOM (void (self ^. js "suspendAnimations"))
resumeAnimations :: (MonadDOM m) => Internals -> m ()
resumeAnimations self
= liftDOM (void (self ^. js "resumeAnimations"))
animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool
animationsAreSuspended self
= liftDOM ((self ^. js "animationsAreSuspended") >>= valToBool)
pauseAnimationAtTimeOnElement ::
(MonadDOM m, ToJSString animationName, IsElement element) =>
Internals -> animationName -> Double -> Maybe element -> m Bool
pauseAnimationAtTimeOnElement self animationName pauseTime element
= liftDOM
((self ^. jsf "pauseAnimationAtTimeOnElement"
[toJSVal animationName, toJSVal pauseTime, toJSVal element])
>>= valToBool)
pauseAnimationAtTimeOnPseudoElement ::
(MonadDOM m, ToJSString animationName, IsElement element,
ToJSString pseudoId) =>
Internals ->
animationName ->
Double -> Maybe element -> pseudoId -> m Bool
pauseAnimationAtTimeOnPseudoElement self animationName pauseTime
element pseudoId
= liftDOM
((self ^. jsf "pauseAnimationAtTimeOnPseudoElement"
[toJSVal animationName, toJSVal pauseTime, toJSVal element,
toJSVal pseudoId])
>>= valToBool)
pauseTransitionAtTimeOnElement ::
(MonadDOM m, ToJSString propertyName, IsElement element) =>
Internals -> propertyName -> Double -> Maybe element -> m Bool
pauseTransitionAtTimeOnElement self propertyName pauseTime element
= liftDOM
((self ^. jsf "pauseTransitionAtTimeOnElement"
[toJSVal propertyName, toJSVal pauseTime, toJSVal element])
>>= valToBool)
pauseTransitionAtTimeOnPseudoElement ::
(MonadDOM m, ToJSString property, IsElement element,
ToJSString pseudoId) =>
Internals ->
property -> Double -> Maybe element -> pseudoId -> m Bool
pauseTransitionAtTimeOnPseudoElement self property pauseTime
element pseudoId
= liftDOM
((self ^. jsf "pauseTransitionAtTimeOnPseudoElement"
[toJSVal property, toJSVal pauseTime, toJSVal element,
toJSVal pseudoId])
>>= valToBool)
attached ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
attached self node
= liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool)
visiblePlaceholder ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
visiblePlaceholder self element
= liftDOM
((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>=
fromJSValUnchecked)
selectColorInColorChooser ::
(MonadDOM m, IsElement element, ToJSString colorValue) =>
Internals -> Maybe element -> colorValue -> m ()
selectColorInColorChooser self element colorValue
= liftDOM
(void
(self ^. jsf "selectColorInColorChooser"
[toJSVal element, toJSVal colorValue]))
formControlStateOfPreviousHistoryItem ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
formControlStateOfPreviousHistoryItem self
= liftDOM
((self ^. js "formControlStateOfPreviousHistoryItem") >>=
fromJSArrayUnchecked)
setFormControlStateOfPreviousHistoryItem ::
(MonadDOM m, ToJSString values) =>
Internals -> [values] -> m ()
setFormControlStateOfPreviousHistoryItem self values
= liftDOM
(void
(self ^. jsf "setFormControlStateOfPreviousHistoryItem"
[toJSVal (array values)]))
absoluteCaretBounds ::
(MonadDOM m) => Internals -> m (Maybe ClientRect)
absoluteCaretBounds self
= liftDOM ((self ^. js "absoluteCaretBounds") >>= fromJSVal)
boundingBox ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m (Maybe ClientRect)
boundingBox self element
= liftDOM
((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal)
inspectorHighlightRects ::
(MonadDOM m) => Internals -> m (Maybe ClientRectList)
inspectorHighlightRects self
= liftDOM ((self ^. js "inspectorHighlightRects") >>= fromJSVal)
inspectorHighlightObject ::
(MonadDOM m, FromJSString result) => Internals -> m result
inspectorHighlightObject self
= liftDOM
((self ^. js "inspectorHighlightObject") >>= fromJSValUnchecked)
markerCountForNode ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> m Word
markerCountForNode self node markerType
= liftDOM
(round <$>
((self ^. jsf "markerCountForNode"
[toJSVal node, toJSVal markerType])
>>= valToNumber))
markerRangeForNode ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> Word -> m (Maybe Range)
markerRangeForNode self node markerType index
= liftDOM
((self ^. jsf "markerRangeForNode"
[toJSVal node, toJSVal markerType, toJSVal index])
>>= fromJSVal)
markerDescriptionForNode ::
(MonadDOM m, IsNode node, ToJSString markerType,
FromJSString result) =>
Internals -> Maybe node -> markerType -> Word -> m result
markerDescriptionForNode self node markerType index
= liftDOM
((self ^. jsf "markerDescriptionForNode"
[toJSVal node, toJSVal markerType, toJSVal index])
>>= fromJSValUnchecked)
addTextMatchMarker ::
(MonadDOM m) => Internals -> Maybe Range -> Bool -> m ()
addTextMatchMarker self range isActive
= liftDOM
(void
(self ^. jsf "addTextMatchMarker"
[toJSVal range, toJSVal isActive]))
setMarkedTextMatchesAreHighlighted ::
(MonadDOM m) => Internals -> Bool -> m ()
setMarkedTextMatchesAreHighlighted self flag
= liftDOM
(void
(self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag]))
invalidateFontCache :: (MonadDOM m) => Internals -> m ()
invalidateFontCache self
= liftDOM (void (self ^. js "invalidateFontCache"))
setScrollViewPosition ::
(MonadDOM m) => Internals -> Int -> Int -> m ()
setScrollViewPosition self x y
= liftDOM
(void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y]))
setPagination ::
(MonadDOM m, ToJSString mode) =>
Internals -> mode -> Int -> Int -> m ()
setPagination self mode gap pageLength
= liftDOM
(void
(self ^. jsf "setPagination"
[toJSVal mode, toJSVal gap, toJSVal pageLength]))
configurationForViewport ::
(MonadDOM m, FromJSString result) =>
Internals -> Float -> Int -> Int -> Int -> Int -> m result
configurationForViewport self devicePixelRatio deviceWidth
deviceHeight availableWidth availableHeight
= liftDOM
((self ^. jsf "configurationForViewport"
[toJSVal devicePixelRatio, toJSVal deviceWidth,
toJSVal deviceHeight, toJSVal availableWidth,
toJSVal availableHeight])
>>= fromJSValUnchecked)
wasLastChangeUserEdit ::
(MonadDOM m, IsElement textField) =>
Internals -> Maybe textField -> m Bool
wasLastChangeUserEdit self textField
= liftDOM
((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>=
valToBool)
elementShouldAutoComplete ::
(MonadDOM m, IsElement inputElement) =>
Internals -> Maybe inputElement -> m Bool
elementShouldAutoComplete self inputElement
= liftDOM
((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])
>>= valToBool)
setEditingValue ::
(MonadDOM m, IsElement inputElement, ToJSString value) =>
Internals -> Maybe inputElement -> value -> m ()
setEditingValue self inputElement value
= liftDOM
(void
(self ^. jsf "setEditingValue"
[toJSVal inputElement, toJSVal value]))
setAutofilled ::
(MonadDOM m, IsElement inputElement) =>
Internals -> Maybe inputElement -> Bool -> m ()
setAutofilled self inputElement enabled
= liftDOM
(void
(self ^. jsf "setAutofilled"
[toJSVal inputElement, toJSVal enabled]))
countMatchesForText ::
(MonadDOM m, ToJSString text, ToJSString markMatches) =>
Internals -> text -> Word -> markMatches -> m Word
countMatchesForText self text findOptions markMatches
= liftDOM
(round <$>
((self ^. jsf "countMatchesForText"
[toJSVal text, toJSVal findOptions, toJSVal markMatches])
>>= valToNumber))
paintControlTints :: (MonadDOM m) => Internals -> m ()
paintControlTints self
= liftDOM (void (self ^. js "paintControlTints"))
scrollElementToRect ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> Int -> Int -> Int -> Int -> m ()
scrollElementToRect self element x y w h
= liftDOM
(void
(self ^. jsf "scrollElementToRect"
[toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h]))
rangeFromLocationAndLength ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Int -> Int -> m (Maybe Range)
rangeFromLocationAndLength self scope rangeLocation rangeLength
= liftDOM
((self ^. jsf "rangeFromLocationAndLength"
[toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSVal)
locationFromRange ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m Word
locationFromRange self scope range
= liftDOM
(round <$>
((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range])
>>= valToNumber))
lengthFromRange ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m Word
lengthFromRange self scope range
= liftDOM
(round <$>
((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>=
valToNumber))
rangeAsText ::
(MonadDOM m, FromJSString result) =>
Internals -> Maybe Range -> m result
rangeAsText self range
= liftDOM
((self ^. jsf "rangeAsText" [toJSVal range]) >>=
fromJSValUnchecked)
subrange ::
(MonadDOM m) =>
Internals -> Maybe Range -> Int -> Int -> m (Maybe Range)
subrange self range rangeLocation rangeLength
= liftDOM
((self ^. jsf "subrange"
[toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSVal)
rangeForDictionaryLookupAtLocation ::
(MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range)
rangeForDictionaryLookupAtLocation self x y
= liftDOM
((self ^. jsf "rangeForDictionaryLookupAtLocation"
[toJSVal x, toJSVal y])
>>= fromJSVal)
setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m ()
setDelegatesScrolling self enabled
= liftDOM
(void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled]))
lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int
lastSpellCheckRequestSequence self
= liftDOM
(round <$>
((self ^. js "lastSpellCheckRequestSequence") >>= valToNumber))
lastSpellCheckProcessedSequence ::
(MonadDOM m) => Internals -> m Int
lastSpellCheckProcessedSequence self
= liftDOM
(round <$>
((self ^. js "lastSpellCheckProcessedSequence") >>= valToNumber))
userPreferredLanguages ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
userPreferredLanguages self
= liftDOM
((self ^. js "userPreferredLanguages") >>= fromJSArrayUnchecked)
setUserPreferredLanguages ::
(MonadDOM m, ToJSString languages) =>
Internals -> [languages] -> m ()
setUserPreferredLanguages self languages
= liftDOM
(void
(self ^. jsf "setUserPreferredLanguages"
[toJSVal (array languages)]))
wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word
wheelEventHandlerCount self
= liftDOM
(round <$> ((self ^. js "wheelEventHandlerCount") >>= valToNumber))
touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word
touchEventHandlerCount self
= liftDOM
(round <$> ((self ^. js "touchEventHandlerCount") >>= valToNumber))
nodesFromRect ::
(MonadDOM m, IsDocument document) =>
Internals ->
Maybe document ->
Int ->
Int ->
Word ->
Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList)
nodesFromRect self document x y topPadding rightPadding
bottomPadding leftPadding ignoreClipping allowShadowContent
allowChildFrameContent
= liftDOM
((self ^. jsf "nodesFromRect"
[toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding,
toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding,
toJSVal ignoreClipping, toJSVal allowShadowContent,
toJSVal allowChildFrameContent])
>>= fromJSVal)
parserMetaData ::
(MonadDOM m, FromJSString result) => Internals -> JSVal -> m result
parserMetaData self func
= liftDOM
((self ^. jsf "parserMetaData" [toJSVal func]) >>=
fromJSValUnchecked)
updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m ()
updateEditorUINowIfScheduled self
= liftDOM (void (self ^. js "updateEditorUINowIfScheduled"))
hasSpellingMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasSpellingMarker self from length
= liftDOM
((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])
>>= valToBool)
hasGrammarMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasGrammarMarker self from length
= liftDOM
((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])
>>= valToBool)
hasAutocorrectedMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasAutocorrectedMarker self from length
= liftDOM
((self ^. jsf "hasAutocorrectedMarker"
[toJSVal from, toJSVal length])
>>= valToBool)
setContinuousSpellCheckingEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setContinuousSpellCheckingEnabled self enabled
= liftDOM
(void
(self ^. jsf "setContinuousSpellCheckingEnabled"
[toJSVal enabled]))
setAutomaticQuoteSubstitutionEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setAutomaticQuoteSubstitutionEnabled self enabled
= liftDOM
(void
(self ^. jsf "setAutomaticQuoteSubstitutionEnabled"
[toJSVal enabled]))
setAutomaticLinkDetectionEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setAutomaticLinkDetectionEnabled self enabled
= liftDOM
(void
(self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled]))
setAutomaticDashSubstitutionEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setAutomaticDashSubstitutionEnabled self enabled
= liftDOM
(void
(self ^. jsf "setAutomaticDashSubstitutionEnabled"
[toJSVal enabled]))
setAutomaticTextReplacementEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setAutomaticTextReplacementEnabled self enabled
= liftDOM
(void
(self ^. jsf "setAutomaticTextReplacementEnabled"
[toJSVal enabled]))
setAutomaticSpellingCorrectionEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setAutomaticSpellingCorrectionEnabled self enabled
= liftDOM
(void
(self ^. jsf "setAutomaticSpellingCorrectionEnabled"
[toJSVal enabled]))
isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool
isOverwriteModeEnabled self
= liftDOM ((self ^. js "isOverwriteModeEnabled") >>= valToBool)
toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m ()
toggleOverwriteModeEnabled self
= liftDOM (void (self ^. js "toggleOverwriteModeEnabled"))
numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word
numberOfScrollableAreas self
= liftDOM
(round <$>
((self ^. js "numberOfScrollableAreas") >>= valToNumber))
isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool
isPageBoxVisible self pageNumber
= liftDOM
((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>=
valToBool)
layerTreeAsText ::
(MonadDOM m, IsDocument document, FromJSString result) =>
Internals -> Maybe document -> Word -> m result
layerTreeAsText self document flags
= liftDOM
((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags])
>>= fromJSValUnchecked)
scrollingStateTreeAsText ::
(MonadDOM m, FromJSString result) => Internals -> m result
scrollingStateTreeAsText self
= liftDOM
((self ^. js "scrollingStateTreeAsText") >>= fromJSValUnchecked)
mainThreadScrollingReasons ::
(MonadDOM m, FromJSString result) => Internals -> m result
mainThreadScrollingReasons self
= liftDOM
((self ^. js "mainThreadScrollingReasons") >>= fromJSValUnchecked)
nonFastScrollableRects ::
(MonadDOM m) => Internals -> m (Maybe ClientRectList)
nonFastScrollableRects self
= liftDOM ((self ^. js "nonFastScrollableRects") >>= fromJSVal)
repaintRectsAsText ::
(MonadDOM m, FromJSString result) => Internals -> m result
repaintRectsAsText self
= liftDOM
((self ^. js "repaintRectsAsText") >>= fromJSValUnchecked)
garbageCollectDocumentResources ::
(MonadDOM m) => Internals -> m ()
garbageCollectDocumentResources self
= liftDOM (void (self ^. js "garbageCollectDocumentResources"))
allowRoundingHacks :: (MonadDOM m) => Internals -> m ()
allowRoundingHacks self
= liftDOM (void (self ^. js "allowRoundingHacks"))
insertAuthorCSS ::
(MonadDOM m, ToJSString css) => Internals -> css -> m ()
insertAuthorCSS self css
= liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css]))
insertUserCSS ::
(MonadDOM m, ToJSString css) => Internals -> css -> m ()
insertUserCSS self css
= liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css]))
setBatteryStatus ::
(MonadDOM m, ToJSString eventType) =>
Internals ->
eventType -> Bool -> Double -> Double -> Double -> m ()
setBatteryStatus self eventType charging chargingTime
dischargingTime level
= liftDOM
(void
(self ^. jsf "setBatteryStatus"
[toJSVal eventType, toJSVal charging, toJSVal chargingTime,
toJSVal dischargingTime, toJSVal level]))
setDeviceProximity ::
(MonadDOM m, ToJSString eventType) =>
Internals -> eventType -> Double -> Double -> Double -> m ()
setDeviceProximity self eventType value min max
= liftDOM
(void
(self ^. jsf "setDeviceProximity"
[toJSVal eventType, toJSVal value, toJSVal min, toJSVal max]))
numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word
numberOfLiveNodes self
= liftDOM
(round <$> ((self ^. js "numberOfLiveNodes") >>= valToNumber))
numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word
numberOfLiveDocuments self
= liftDOM
(round <$> ((self ^. js "numberOfLiveDocuments") >>= valToNumber))
consoleMessageArgumentCounts ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
consoleMessageArgumentCounts self
= liftDOM
((self ^. js "consoleMessageArgumentCounts") >>=
fromJSArrayUnchecked)
openDummyInspectorFrontend ::
(MonadDOM m, ToJSString url) =>
Internals -> url -> m (Maybe Window)
openDummyInspectorFrontend self url
= liftDOM
((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=
fromJSVal)
closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m ()
closeDummyInspectorFrontend self
= liftDOM (void (self ^. js "closeDummyInspectorFrontend"))
setJavaScriptProfilingEnabled ::
(MonadDOM m) => Internals -> Bool -> m ()
setJavaScriptProfilingEnabled self creates
= liftDOM
(void
(self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates]))
setInspectorIsUnderTest ::
(MonadDOM m) => Internals -> Bool -> m ()
setInspectorIsUnderTest self isUnderTest
= liftDOM
(void
(self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest]))
counterValue ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
counterValue self element
= liftDOM
((self ^. jsf "counterValue" [toJSVal element]) >>=
fromJSValUnchecked)
pageNumber ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> Float -> Float -> m Int
pageNumber self element pageWidth pageHeight
= liftDOM
(round <$>
((self ^. jsf "pageNumber"
[toJSVal element, toJSVal pageWidth, toJSVal pageHeight])
>>= valToNumber))
shortcutIconURLs ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
shortcutIconURLs self
= liftDOM
((self ^. js "shortcutIconURLs") >>= fromJSArrayUnchecked)
allIconURLs ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
allIconURLs self
= liftDOM ((self ^. js "allIconURLs") >>= fromJSArrayUnchecked)
numberOfPages ::
(MonadDOM m) => Internals -> Double -> Double -> m Int
numberOfPages self pageWidthInPixels pageHeightInPixels
= liftDOM
(round <$>
((self ^. jsf "numberOfPages"
[toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])
>>= valToNumber))
pageProperty ::
(MonadDOM m, ToJSString propertyName, FromJSString result) =>
Internals -> propertyName -> Int -> m result
pageProperty self propertyName pageNumber
= liftDOM
((self ^. jsf "pageProperty"
[toJSVal propertyName, toJSVal pageNumber])
>>= fromJSValUnchecked)
pageSizeAndMarginsInPixels ::
(MonadDOM m, FromJSString result) =>
Internals ->
Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result
pageSizeAndMarginsInPixels self pageIndex width height marginTop
marginRight marginBottom marginLeft
= liftDOM
((self ^. jsf "pageSizeAndMarginsInPixels"
[toJSVal pageIndex, toJSVal width, toJSVal height,
toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom,
toJSVal marginLeft])
>>= fromJSValUnchecked)
setPageScaleFactor ::
(MonadDOM m) => Internals -> Float -> Int -> Int -> m ()
setPageScaleFactor self scaleFactor x y
= liftDOM
(void
(self ^. jsf "setPageScaleFactor"
[toJSVal scaleFactor, toJSVal x, toJSVal y]))
setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m ()
setPageZoomFactor self zoomFactor
= liftDOM
(void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor]))
setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m ()
setHeaderHeight self height
= liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height]))
setFooterHeight :: (MonadDOM m) => Internals -> Float -> m ()
setFooterHeight self height
= liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height]))
setTopContentInset :: (MonadDOM m) => Internals -> Float -> m ()
setTopContentInset self contentInset
= liftDOM
(void (self ^. jsf "setTopContentInset" [toJSVal contentInset]))
webkitWillEnterFullScreenForElement ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitWillEnterFullScreenForElement self element
= liftDOM
(void
(self ^. jsf "webkitWillEnterFullScreenForElement"
[toJSVal element]))
webkitDidEnterFullScreenForElement ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitDidEnterFullScreenForElement self element
= liftDOM
(void
(self ^. jsf "webkitDidEnterFullScreenForElement"
[toJSVal element]))
webkitWillExitFullScreenForElement ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitWillExitFullScreenForElement self element
= liftDOM
(void
(self ^. jsf "webkitWillExitFullScreenForElement"
[toJSVal element]))
webkitDidExitFullScreenForElement ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitDidExitFullScreenForElement self element
= liftDOM
(void
(self ^. jsf "webkitDidExitFullScreenForElement"
[toJSVal element]))
setApplicationCacheOriginQuota ::
(MonadDOM m) => Internals -> Word64 -> m ()
setApplicationCacheOriginQuota self quota
= liftDOM
(void
(self ^. jsf "setApplicationCacheOriginQuota" [toJSVal quota]))
registerURLSchemeAsBypassingContentSecurityPolicy ::
(MonadDOM m, ToJSString scheme) =>
Internals -> scheme -> m ()
registerURLSchemeAsBypassingContentSecurityPolicy self scheme
= liftDOM
(void
(self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy"
[toJSVal scheme]))
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::
(MonadDOM m, ToJSString scheme) =>
Internals -> scheme -> m ()
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self
scheme
= liftDOM
(void
(self ^.
jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy"
[toJSVal scheme]))
mallocStatistics ::
(MonadDOM m) => Internals -> m (Maybe MallocStatistics)
mallocStatistics self
= liftDOM ((self ^. js "mallocStatistics") >>= fromJSVal)
typeConversions ::
(MonadDOM m) => Internals -> m (Maybe TypeConversions)
typeConversions self
= liftDOM ((self ^. js "typeConversions") >>= fromJSVal)
memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo)
memoryInfo self = liftDOM ((self ^. js "memoryInfo") >>= fromJSVal)
getReferencedFilePaths ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
getReferencedFilePaths self
= liftDOM
((self ^. js "getReferencedFilePaths") >>= fromJSArrayUnchecked)
startTrackingRepaints :: (MonadDOM m) => Internals -> m ()
startTrackingRepaints self
= liftDOM (void (self ^. js "startTrackingRepaints"))
stopTrackingRepaints :: (MonadDOM m) => Internals -> m ()
stopTrackingRepaints self
= liftDOM (void (self ^. js "stopTrackingRepaints"))
isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool
isTimerThrottled self timerHandle
= liftDOM
((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>=
valToBool)
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m ()
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node
= liftDOM
(void
(self ^.
jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks"
[toJSVal node]))
getCurrentCursorInfo ::
(MonadDOM m, FromJSString result) => Internals -> m result
getCurrentCursorInfo self
= liftDOM
((self ^. js "getCurrentCursorInfo") >>= fromJSValUnchecked)
markerTextForListItem ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
markerTextForListItem self element
= liftDOM
((self ^. jsf "markerTextForListItem" [toJSVal element]) >>=
fromJSValUnchecked)
toolTipFromElement ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
toolTipFromElement self element
= liftDOM
((self ^. jsf "toolTipFromElement" [toJSVal element]) >>=
fromJSValUnchecked)
deserializeBuffer ::
(MonadDOM m, IsArrayBuffer buffer) =>
Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)
deserializeBuffer self buffer
= liftDOM
((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal)
serializeObject ::
(MonadDOM m, IsSerializedScriptValue obj) =>
Internals -> Maybe obj -> m (Maybe ArrayBuffer)
serializeObject self obj
= liftDOM
((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal)
setUsesOverlayScrollbars ::
(MonadDOM m) => Internals -> Bool -> m ()
setUsesOverlayScrollbars self enabled
= liftDOM
(void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled]))
forceReload :: (MonadDOM m) => Internals -> Bool -> m ()
forceReload self endToEnd
= liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd]))
simulateAudioInterruption ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
simulateAudioInterruption self node
= liftDOM
(void (self ^. jsf "simulateAudioInterruption" [toJSVal node]))
mediaElementHasCharacteristic ::
(MonadDOM m, IsNode node, ToJSString characteristic) =>
Internals -> Maybe node -> characteristic -> m Bool
mediaElementHasCharacteristic self node characteristic
= liftDOM
((self ^. jsf "mediaElementHasCharacteristic"
[toJSVal node, toJSVal characteristic])
>>= valToBool)
initializeMockCDM :: (MonadDOM m) => Internals -> m ()
initializeMockCDM self
= liftDOM (void (self ^. js "initializeMockCDM"))
enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m ()
enableMockSpeechSynthesizer self
= liftDOM (void (self ^. js "enableMockSpeechSynthesizer"))
getImageSourceURL ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
getImageSourceURL self element
= liftDOM
((self ^. jsf "getImageSourceURL" [toJSVal element]) >>=
fromJSValUnchecked)
captionsStyleSheetOverride ::
(MonadDOM m, FromJSString result) => Internals -> m result
captionsStyleSheetOverride self
= liftDOM
((self ^. js "captionsStyleSheetOverride") >>= fromJSValUnchecked)
setCaptionsStyleSheetOverride ::
(MonadDOM m, ToJSString override) => Internals -> override -> m ()
setCaptionsStyleSheetOverride self override
= liftDOM
(void
(self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override]))
setPrimaryAudioTrackLanguageOverride ::
(MonadDOM m, ToJSString language) =>
Internals -> language -> m ()
setPrimaryAudioTrackLanguageOverride self language
= liftDOM
(void
(self ^. jsf "setPrimaryAudioTrackLanguageOverride"
[toJSVal language]))
setCaptionDisplayMode ::
(MonadDOM m, ToJSString mode) => Internals -> mode -> m ()
setCaptionDisplayMode self mode
= liftDOM
(void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode]))
createTimeRanges ::
(MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>
Internals ->
Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges)
createTimeRanges self startTimes endTimes
= liftDOM
((self ^. jsf "createTimeRanges"
[toJSVal startTimes, toJSVal endTimes])
>>= fromJSVal)
closestTimeToTimeRanges ::
(MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double
closestTimeToTimeRanges self time ranges
= liftDOM
((self ^. jsf "closestTimeToTimeRanges"
[toJSVal time, toJSVal ranges])
>>= valToNumber)
isSelectPopupVisible ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
isSelectPopupVisible self node
= liftDOM
((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool)
isVibrating :: (MonadDOM m) => Internals -> m Bool
isVibrating self
= liftDOM ((self ^. js "isVibrating") >>= valToBool)
isPluginUnavailabilityIndicatorObscured ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginUnavailabilityIndicatorObscured self element
= liftDOM
((self ^. jsf "isPluginUnavailabilityIndicatorObscured"
[toJSVal element])
>>= valToBool)
isPluginSnapshotted ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginSnapshotted self element
= liftDOM
((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>=
valToBool)
selectionBounds ::
(MonadDOM m) => Internals -> m (Maybe ClientRect)
selectionBounds self
= liftDOM ((self ^. js "selectionBounds") >>= fromJSVal)
initializeMockMediaSource :: (MonadDOM m) => Internals -> m ()
initializeMockMediaSource self
= liftDOM (void (self ^. js "initializeMockMediaSource"))
bufferedSamplesForTrackID ::
(MonadDOM m, ToJSString trackID, FromJSString result) =>
Internals -> Maybe SourceBuffer -> trackID -> m [result]
bufferedSamplesForTrackID self buffer trackID
= liftDOM
((self ^. jsf "bufferedSamplesForTrackID"
[toJSVal buffer, toJSVal trackID])
>>= fromJSArrayUnchecked)
beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m ()
beginMediaSessionInterruption self
= liftDOM (void (self ^. js "beginMediaSessionInterruption"))
endMediaSessionInterruption ::
(MonadDOM m, ToJSString flags) => Internals -> flags -> m ()
endMediaSessionInterruption self flags
= liftDOM
(void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags]))
applicationWillEnterForeground :: (MonadDOM m) => Internals -> m ()
applicationWillEnterForeground self
= liftDOM (void (self ^. js "applicationWillEnterForeground"))
applicationWillEnterBackground :: (MonadDOM m) => Internals -> m ()
applicationWillEnterBackground self
= liftDOM (void (self ^. js "applicationWillEnterBackground"))
setMediaSessionRestrictions ::
(MonadDOM m, ToJSString mediaType, ToJSString restrictions) =>
Internals -> mediaType -> restrictions -> m ()
setMediaSessionRestrictions self mediaType restrictions
= liftDOM
(void
(self ^. jsf "setMediaSessionRestrictions"
[toJSVal mediaType, toJSVal restrictions]))
postRemoteControlCommand ::
(MonadDOM m, ToJSString command) => Internals -> command -> m ()
postRemoteControlCommand self command
= liftDOM
(void (self ^. jsf "postRemoteControlCommand" [toJSVal command]))
simulateSystemSleep :: (MonadDOM m) => Internals -> m ()
simulateSystemSleep self
= liftDOM (void (self ^. js "simulateSystemSleep"))
simulateSystemWake :: (MonadDOM m) => Internals -> m ()
simulateSystemWake self
= liftDOM (void (self ^. js "simulateSystemWake"))
elementIsBlockingDisplaySleep ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
elementIsBlockingDisplaySleep self element
= liftDOM
((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])
>>= valToBool)
installMockPageOverlay ::
(MonadDOM m) => Internals -> PageOverlayType -> m ()
installMockPageOverlay self type'
= liftDOM
(void (self ^. jsf "installMockPageOverlay" [toJSVal type']))
pageOverlayLayerTreeAsText ::
(MonadDOM m, FromJSString result) => Internals -> m result
pageOverlayLayerTreeAsText self
= liftDOM
((self ^. js "pageOverlayLayerTreeAsText") >>= fromJSValUnchecked)
setPageMuted :: (MonadDOM m) => Internals -> Bool -> m ()
setPageMuted self muted
= liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted]))
isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool
isPagePlayingAudio self
= liftDOM ((self ^. js "isPagePlayingAudio") >>= valToBool)
pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1
pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2
pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4
pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8
pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16
getSettings ::
(MonadDOM m) => Internals -> m (Maybe InternalSettings)
getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal)
getWorkerThreadCount :: (MonadDOM m) => Internals -> m Word
getWorkerThreadCount self
= liftDOM
(round <$> ((self ^. js "workerThreadCount") >>= valToNumber))
getConsoleProfiles ::
(MonadDOM m) => Internals -> m [Maybe ScriptProfile]
getConsoleProfiles self
= liftDOM ((self ^. js "consoleProfiles") >>= fromJSArray)