module JSDOM.Generated.Internals
(address, address_, nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_,
description, description_, hasPausedImageAnimations,
hasPausedImageAnimations_, elementRenderTreeAsText,
elementRenderTreeAsText_, isPreloaded, isPreloaded_,
isLoadingFromMemoryCache, isLoadingFromMemoryCache_,
xhrResponseSource, xhrResponseSource_, clearMemoryCache,
pruneMemoryCacheToSize, memoryCacheSize, memoryCacheSize_,
clearPageCache, pageCacheSize, pageCacheSize_,
computedStyleIncludingVisitedInfo,
computedStyleIncludingVisitedInfo_,
computedStyleIncludingVisitedInfoUnsafe,
computedStyleIncludingVisitedInfoUnchecked, ensureShadowRoot,
ensureShadowRoot_, ensureShadowRootUnsafe,
ensureShadowRootUnchecked, createShadowRoot, createShadowRoot_,
createShadowRootUnsafe, createShadowRootUnchecked, shadowRoot,
shadowRoot_, shadowRootUnsafe, shadowRootUnchecked, shadowRootType,
shadowRootType_, includerFor, includerFor_, includerForUnsafe,
includerForUnchecked, shadowPseudoId, shadowPseudoId_,
setShadowPseudoId, treeScopeRootNode, treeScopeRootNode_,
treeScopeRootNodeUnsafe, treeScopeRootNodeUnchecked,
parentTreeScope, parentTreeScope_, parentTreeScopeUnsafe,
parentTreeScopeUnchecked, lastSpatialNavigationCandidateCount,
lastSpatialNavigationCandidateCount_, numberOfActiveAnimations,
numberOfActiveAnimations_, suspendAnimations, resumeAnimations,
animationsAreSuspended, animationsAreSuspended_,
pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement_,
pauseAnimationAtTimeOnPseudoElement,
pauseAnimationAtTimeOnPseudoElement_,
pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement_,
pauseTransitionAtTimeOnPseudoElement,
pauseTransitionAtTimeOnPseudoElement_, attached, attached_,
visiblePlaceholder, visiblePlaceholder_, selectColorInColorChooser,
formControlStateOfPreviousHistoryItem,
formControlStateOfPreviousHistoryItem_,
setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds,
absoluteCaretBounds_, absoluteCaretBoundsUnsafe,
absoluteCaretBoundsUnchecked, boundingBox, boundingBox_,
boundingBoxUnsafe, boundingBoxUnchecked, inspectorHighlightRects,
inspectorHighlightRects_, inspectorHighlightRectsUnsafe,
inspectorHighlightRectsUnchecked, inspectorHighlightObject,
inspectorHighlightObject_, markerCountForNode, markerCountForNode_,
markerRangeForNode, markerRangeForNode_, markerRangeForNodeUnsafe,
markerRangeForNodeUnchecked, markerDescriptionForNode,
markerDescriptionForNode_, addTextMatchMarker,
setMarkedTextMatchesAreHighlighted, invalidateFontCache,
setScrollViewPosition, setPagination, configurationForViewport,
configurationForViewport_, wasLastChangeUserEdit,
wasLastChangeUserEdit_, elementShouldAutoComplete,
elementShouldAutoComplete_, setEditingValue, setAutofilled,
countMatchesForText, countMatchesForText_, paintControlTints,
scrollElementToRect, rangeFromLocationAndLength,
rangeFromLocationAndLength_, rangeFromLocationAndLengthUnsafe,
rangeFromLocationAndLengthUnchecked, locationFromRange,
locationFromRange_, lengthFromRange, lengthFromRange_, rangeAsText,
rangeAsText_, subrange, subrange_, subrangeUnsafe,
subrangeUnchecked, rangeForDictionaryLookupAtLocation,
rangeForDictionaryLookupAtLocation_,
rangeForDictionaryLookupAtLocationUnsafe,
rangeForDictionaryLookupAtLocationUnchecked, setDelegatesScrolling,
lastSpellCheckRequestSequence, lastSpellCheckRequestSequence_,
lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence_,
userPreferredLanguages, userPreferredLanguages_,
setUserPreferredLanguages, wheelEventHandlerCount,
wheelEventHandlerCount_, touchEventHandlerCount,
touchEventHandlerCount_, nodesFromRect, nodesFromRect_,
nodesFromRectUnsafe, nodesFromRectUnchecked, parserMetaData,
parserMetaData_, updateEditorUINowIfScheduled, hasSpellingMarker,
hasSpellingMarker_, hasGrammarMarker, hasGrammarMarker_,
hasAutocorrectedMarker, hasAutocorrectedMarker_,
setContinuousSpellCheckingEnabled,
setAutomaticQuoteSubstitutionEnabled,
setAutomaticLinkDetectionEnabled,
setAutomaticDashSubstitutionEnabled,
setAutomaticTextReplacementEnabled,
setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled,
isOverwriteModeEnabled_, toggleOverwriteModeEnabled,
numberOfScrollableAreas, numberOfScrollableAreas_,
isPageBoxVisible, isPageBoxVisible_, layerTreeAsText,
layerTreeAsText_, scrollingStateTreeAsText,
scrollingStateTreeAsText_, mainThreadScrollingReasons,
mainThreadScrollingReasons_, nonFastScrollableRects,
nonFastScrollableRects_, nonFastScrollableRectsUnsafe,
nonFastScrollableRectsUnchecked, repaintRectsAsText,
repaintRectsAsText_, garbageCollectDocumentResources,
allowRoundingHacks, insertAuthorCSS, insertUserCSS,
setBatteryStatus, setDeviceProximity, numberOfLiveNodes,
numberOfLiveNodes_, numberOfLiveDocuments, numberOfLiveDocuments_,
consoleMessageArgumentCounts, consoleMessageArgumentCounts_,
openDummyInspectorFrontend, openDummyInspectorFrontend_,
openDummyInspectorFrontendUnsafe,
openDummyInspectorFrontendUnchecked, closeDummyInspectorFrontend,
setJavaScriptProfilingEnabled, setInspectorIsUnderTest,
counterValue, counterValue_, pageNumber, pageNumber_,
shortcutIconURLs, shortcutIconURLs_, allIconURLs, allIconURLs_,
numberOfPages, numberOfPages_, pageProperty, pageProperty_,
pageSizeAndMarginsInPixels, pageSizeAndMarginsInPixels_,
setPageScaleFactor, setPageZoomFactor, setHeaderHeight,
setFooterHeight, setTopContentInset,
webkitWillEnterFullScreenForElement,
webkitDidEnterFullScreenForElement,
webkitWillExitFullScreenForElement,
webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota,
registerURLSchemeAsBypassingContentSecurityPolicy,
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,
mallocStatistics, mallocStatistics_, mallocStatisticsUnsafe,
mallocStatisticsUnchecked, typeConversions, typeConversions_,
typeConversionsUnsafe, typeConversionsUnchecked, memoryInfo,
memoryInfo_, memoryInfoUnsafe, memoryInfoUnchecked,
getReferencedFilePaths, getReferencedFilePaths_,
startTrackingRepaints, stopTrackingRepaints, isTimerThrottled,
isTimerThrottled_,
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,
getCurrentCursorInfo, getCurrentCursorInfo_, markerTextForListItem,
markerTextForListItem_, toolTipFromElement, toolTipFromElement_,
deserializeBuffer, deserializeBuffer_, deserializeBufferUnsafe,
deserializeBufferUnchecked, serializeObject, serializeObject_,
serializeObjectUnsafe, serializeObjectUnchecked,
setUsesOverlayScrollbars, forceReload, simulateAudioInterruption,
mediaElementHasCharacteristic, mediaElementHasCharacteristic_,
initializeMockCDM, enableMockSpeechSynthesizer, getImageSourceURL,
getImageSourceURL_, captionsStyleSheetOverride,
captionsStyleSheetOverride_, setCaptionsStyleSheetOverride,
setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode,
createTimeRanges, createTimeRanges_, createTimeRangesUnsafe,
createTimeRangesUnchecked, closestTimeToTimeRanges,
closestTimeToTimeRanges_, isSelectPopupVisible,
isSelectPopupVisible_, isVibrating, isVibrating_,
isPluginUnavailabilityIndicatorObscured,
isPluginUnavailabilityIndicatorObscured_, isPluginSnapshotted,
isPluginSnapshotted_, selectionBounds, selectionBounds_,
selectionBoundsUnsafe, selectionBoundsUnchecked,
initializeMockMediaSource, bufferedSamplesForTrackID,
bufferedSamplesForTrackID_, beginMediaSessionInterruption,
endMediaSessionInterruption, applicationWillEnterForeground,
applicationWillEnterBackground, setMediaSessionRestrictions,
postRemoteControlCommand, simulateSystemSleep, simulateSystemWake,
elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep_,
installMockPageOverlay, pageOverlayLayerTreeAsText,
pageOverlayLayerTreeAsText_, setPageMuted, isPagePlayingAudio,
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,
getSettingsUnsafe, getSettingsUnchecked, getWorkerThreadCount,
getConsoleProfiles, Internals(..), gTypeInternals)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
address ::
(MonadDOM m, IsNode node, FromJSString result) =>
Internals -> Maybe node -> m result
address self node
= liftDOM
((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked)
address_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
address_ self node
= liftDOM (void (self ^. jsf "address" [toJSVal node]))
nodeNeedsStyleRecalc ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
nodeNeedsStyleRecalc self node
= liftDOM
((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool)
nodeNeedsStyleRecalc_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
nodeNeedsStyleRecalc_ self node
= liftDOM
(void (self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]))
description ::
(MonadDOM m, FromJSString result) => Internals -> JSVal -> m result
description self value
= liftDOM
((self ^. jsf "description" [toJSVal value]) >>=
fromJSValUnchecked)
description_ :: (MonadDOM m) => Internals -> JSVal -> m ()
description_ self value
= liftDOM (void (self ^. jsf "description" [toJSVal value]))
hasPausedImageAnimations ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
hasPausedImageAnimations self element
= liftDOM
((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>=
valToBool)
hasPausedImageAnimations_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
hasPausedImageAnimations_ self element
= liftDOM
(void (self ^. jsf "hasPausedImageAnimations" [toJSVal element]))
elementRenderTreeAsText ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
elementRenderTreeAsText self element
= liftDOM
((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>=
fromJSValUnchecked)
elementRenderTreeAsText_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
elementRenderTreeAsText_ self element
= liftDOM
(void (self ^. jsf "elementRenderTreeAsText" [toJSVal element]))
isPreloaded ::
(MonadDOM m, ToJSString url) => Internals -> url -> m Bool
isPreloaded self url
= liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool)
isPreloaded_ ::
(MonadDOM m, ToJSString url) => Internals -> url -> m ()
isPreloaded_ self url
= liftDOM (void (self ^. jsf "isPreloaded" [toJSVal url]))
isLoadingFromMemoryCache ::
(MonadDOM m, ToJSString url) => Internals -> url -> m Bool
isLoadingFromMemoryCache self url
= liftDOM
((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>=
valToBool)
isLoadingFromMemoryCache_ ::
(MonadDOM m, ToJSString url) => Internals -> url -> m ()
isLoadingFromMemoryCache_ self url
= liftDOM
(void (self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]))
xhrResponseSource ::
(MonadDOM m, FromJSString result) =>
Internals -> Maybe XMLHttpRequest -> m result
xhrResponseSource self xhr
= liftDOM
((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>=
fromJSValUnchecked)
xhrResponseSource_ ::
(MonadDOM m) => Internals -> Maybe XMLHttpRequest -> m ()
xhrResponseSource_ self xhr
= liftDOM (void (self ^. jsf "xhrResponseSource" [toJSVal xhr]))
clearMemoryCache :: (MonadDOM m) => Internals -> m ()
clearMemoryCache self
= liftDOM (void (self ^. jsf "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 ^. jsf "memoryCacheSize" ()) >>= valToNumber))
memoryCacheSize_ :: (MonadDOM m) => Internals -> m ()
memoryCacheSize_ self
= liftDOM (void (self ^. jsf "memoryCacheSize" ()))
clearPageCache :: (MonadDOM m) => Internals -> m ()
clearPageCache self
= liftDOM (void (self ^. jsf "clearPageCache" ()))
pageCacheSize :: (MonadDOM m) => Internals -> m Word
pageCacheSize self
= liftDOM
(round <$> ((self ^. jsf "pageCacheSize" ()) >>= valToNumber))
pageCacheSize_ :: (MonadDOM m) => Internals -> m ()
pageCacheSize_ self
= liftDOM (void (self ^. jsf "pageCacheSize" ()))
computedStyleIncludingVisitedInfo ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)
computedStyleIncludingVisitedInfo self node
= liftDOM
((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])
>>= fromJSVal)
computedStyleIncludingVisitedInfo_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
computedStyleIncludingVisitedInfo_ self node
= liftDOM
(void
(self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]))
computedStyleIncludingVisitedInfoUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
Internals -> Maybe node -> m CSSStyleDeclaration
computedStyleIncludingVisitedInfoUnsafe self node
= liftDOM
(((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
computedStyleIncludingVisitedInfoUnchecked ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m CSSStyleDeclaration
computedStyleIncludingVisitedInfoUnchecked self node
= liftDOM
((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])
>>= fromJSValUnchecked)
ensureShadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
ensureShadowRoot self host
= liftDOM
((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal)
ensureShadowRoot_ ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m ()
ensureShadowRoot_ self host
= liftDOM (void (self ^. jsf "ensureShadowRoot" [toJSVal host]))
ensureShadowRootUnsafe ::
(MonadDOM m, IsElement host, HasCallStack) =>
Internals -> Maybe host -> m Node
ensureShadowRootUnsafe self host
= liftDOM
(((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
ensureShadowRootUnchecked ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node
ensureShadowRootUnchecked self host
= liftDOM
((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>=
fromJSValUnchecked)
createShadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
createShadowRoot self host
= liftDOM
((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal)
createShadowRoot_ ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m ()
createShadowRoot_ self host
= liftDOM (void (self ^. jsf "createShadowRoot" [toJSVal host]))
createShadowRootUnsafe ::
(MonadDOM m, IsElement host, HasCallStack) =>
Internals -> Maybe host -> m Node
createShadowRootUnsafe self host
= liftDOM
(((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createShadowRootUnchecked ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node
createShadowRootUnchecked self host
= liftDOM
((self ^. jsf "createShadowRoot" [toJSVal host]) >>=
fromJSValUnchecked)
shadowRoot ::
(MonadDOM m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
shadowRoot self host
= liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal)
shadowRoot_ ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m ()
shadowRoot_ self host
= liftDOM (void (self ^. jsf "shadowRoot" [toJSVal host]))
shadowRootUnsafe ::
(MonadDOM m, IsElement host, HasCallStack) =>
Internals -> Maybe host -> m Node
shadowRootUnsafe self host
= liftDOM
(((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
shadowRootUnchecked ::
(MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node
shadowRootUnchecked self host
= liftDOM
((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSValUnchecked)
shadowRootType ::
(MonadDOM m, IsNode root, FromJSString result) =>
Internals -> Maybe root -> m result
shadowRootType self root
= liftDOM
((self ^. jsf "shadowRootType" [toJSVal root]) >>=
fromJSValUnchecked)
shadowRootType_ ::
(MonadDOM m, IsNode root) => Internals -> Maybe root -> m ()
shadowRootType_ self root
= liftDOM (void (self ^. jsf "shadowRootType" [toJSVal root]))
includerFor ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Element)
includerFor self node
= liftDOM
((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal)
includerFor_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
includerFor_ self node
= liftDOM (void (self ^. jsf "includerFor" [toJSVal node]))
includerForUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
Internals -> Maybe node -> m Element
includerForUnsafe self node
= liftDOM
(((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
includerForUnchecked ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Element
includerForUnchecked self node
= liftDOM
((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSValUnchecked)
shadowPseudoId ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
shadowPseudoId self element
= liftDOM
((self ^. jsf "shadowPseudoId" [toJSVal element]) >>=
fromJSValUnchecked)
shadowPseudoId_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
shadowPseudoId_ self element
= liftDOM (void (self ^. jsf "shadowPseudoId" [toJSVal element]))
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)
treeScopeRootNode_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
treeScopeRootNode_ self node
= liftDOM (void (self ^. jsf "treeScopeRootNode" [toJSVal node]))
treeScopeRootNodeUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
Internals -> Maybe node -> m Node
treeScopeRootNodeUnsafe self node
= liftDOM
(((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
treeScopeRootNodeUnchecked ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node
treeScopeRootNodeUnchecked self node
= liftDOM
((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>=
fromJSValUnchecked)
parentTreeScope ::
(MonadDOM m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Node)
parentTreeScope self node
= liftDOM
((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal)
parentTreeScope_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
parentTreeScope_ self node
= liftDOM (void (self ^. jsf "parentTreeScope" [toJSVal node]))
parentTreeScopeUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
Internals -> Maybe node -> m Node
parentTreeScopeUnsafe self node
= liftDOM
(((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
parentTreeScopeUnchecked ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node
parentTreeScopeUnchecked self node
= liftDOM
((self ^. jsf "parentTreeScope" [toJSVal node]) >>=
fromJSValUnchecked)
lastSpatialNavigationCandidateCount ::
(MonadDOM m) => Internals -> m Word
lastSpatialNavigationCandidateCount self
= liftDOM
(round <$>
((self ^. jsf "lastSpatialNavigationCandidateCount" ()) >>=
valToNumber))
lastSpatialNavigationCandidateCount_ ::
(MonadDOM m) => Internals -> m ()
lastSpatialNavigationCandidateCount_ self
= liftDOM
(void (self ^. jsf "lastSpatialNavigationCandidateCount" ()))
numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word
numberOfActiveAnimations self
= liftDOM
(round <$>
((self ^. jsf "numberOfActiveAnimations" ()) >>= valToNumber))
numberOfActiveAnimations_ :: (MonadDOM m) => Internals -> m ()
numberOfActiveAnimations_ self
= liftDOM (void (self ^. jsf "numberOfActiveAnimations" ()))
suspendAnimations :: (MonadDOM m) => Internals -> m ()
suspendAnimations self
= liftDOM (void (self ^. jsf "suspendAnimations" ()))
resumeAnimations :: (MonadDOM m) => Internals -> m ()
resumeAnimations self
= liftDOM (void (self ^. jsf "resumeAnimations" ()))
animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool
animationsAreSuspended self
= liftDOM ((self ^. jsf "animationsAreSuspended" ()) >>= valToBool)
animationsAreSuspended_ :: (MonadDOM m) => Internals -> m ()
animationsAreSuspended_ self
= liftDOM (void (self ^. jsf "animationsAreSuspended" ()))
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)
pauseAnimationAtTimeOnElement_ ::
(MonadDOM m, ToJSString animationName, IsElement element) =>
Internals -> animationName -> Double -> Maybe element -> m ()
pauseAnimationAtTimeOnElement_ self animationName pauseTime element
= liftDOM
(void
(self ^. jsf "pauseAnimationAtTimeOnElement"
[toJSVal animationName, toJSVal pauseTime, toJSVal element]))
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)
pauseAnimationAtTimeOnPseudoElement_ ::
(MonadDOM m, ToJSString animationName, IsElement element,
ToJSString pseudoId) =>
Internals ->
animationName ->
Double -> Maybe element -> pseudoId -> m ()
pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime
element pseudoId
= liftDOM
(void
(self ^. jsf "pauseAnimationAtTimeOnPseudoElement"
[toJSVal animationName, toJSVal pauseTime, toJSVal element,
toJSVal pseudoId]))
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)
pauseTransitionAtTimeOnElement_ ::
(MonadDOM m, ToJSString propertyName, IsElement element) =>
Internals -> propertyName -> Double -> Maybe element -> m ()
pauseTransitionAtTimeOnElement_ self propertyName pauseTime element
= liftDOM
(void
(self ^. jsf "pauseTransitionAtTimeOnElement"
[toJSVal propertyName, toJSVal pauseTime, toJSVal element]))
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)
pauseTransitionAtTimeOnPseudoElement_ ::
(MonadDOM m, ToJSString property, IsElement element,
ToJSString pseudoId) =>
Internals ->
property -> Double -> Maybe element -> pseudoId -> m ()
pauseTransitionAtTimeOnPseudoElement_ self property pauseTime
element pseudoId
= liftDOM
(void
(self ^. jsf "pauseTransitionAtTimeOnPseudoElement"
[toJSVal property, toJSVal pauseTime, toJSVal element,
toJSVal pseudoId]))
attached ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
attached self node
= liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool)
attached_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
attached_ self node
= liftDOM (void (self ^. jsf "attached" [toJSVal node]))
visiblePlaceholder ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
visiblePlaceholder self element
= liftDOM
((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>=
fromJSValUnchecked)
visiblePlaceholder_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
visiblePlaceholder_ self element
= liftDOM
(void (self ^. jsf "visiblePlaceholder" [toJSVal element]))
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 ^. jsf "formControlStateOfPreviousHistoryItem" ()) >>=
fromJSArrayUnchecked)
formControlStateOfPreviousHistoryItem_ ::
(MonadDOM m) => Internals -> m ()
formControlStateOfPreviousHistoryItem_ self
= liftDOM
(void (self ^. jsf "formControlStateOfPreviousHistoryItem" ()))
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 ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal)
absoluteCaretBounds_ :: (MonadDOM m) => Internals -> m ()
absoluteCaretBounds_ self
= liftDOM (void (self ^. jsf "absoluteCaretBounds" ()))
absoluteCaretBoundsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m ClientRect
absoluteCaretBoundsUnsafe self
= liftDOM
(((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
absoluteCaretBoundsUnchecked ::
(MonadDOM m) => Internals -> m ClientRect
absoluteCaretBoundsUnchecked self
= liftDOM
((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSValUnchecked)
boundingBox ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m (Maybe ClientRect)
boundingBox self element
= liftDOM
((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal)
boundingBox_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
boundingBox_ self element
= liftDOM (void (self ^. jsf "boundingBox" [toJSVal element]))
boundingBoxUnsafe ::
(MonadDOM m, IsElement element, HasCallStack) =>
Internals -> Maybe element -> m ClientRect
boundingBoxUnsafe self element
= liftDOM
(((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
boundingBoxUnchecked ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ClientRect
boundingBoxUnchecked self element
= liftDOM
((self ^. jsf "boundingBox" [toJSVal element]) >>=
fromJSValUnchecked)
inspectorHighlightRects ::
(MonadDOM m) => Internals -> m (Maybe ClientRectList)
inspectorHighlightRects self
= liftDOM
((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal)
inspectorHighlightRects_ :: (MonadDOM m) => Internals -> m ()
inspectorHighlightRects_ self
= liftDOM (void (self ^. jsf "inspectorHighlightRects" ()))
inspectorHighlightRectsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m ClientRectList
inspectorHighlightRectsUnsafe self
= liftDOM
(((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
inspectorHighlightRectsUnchecked ::
(MonadDOM m) => Internals -> m ClientRectList
inspectorHighlightRectsUnchecked self
= liftDOM
((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSValUnchecked)
inspectorHighlightObject ::
(MonadDOM m, FromJSString result) => Internals -> m result
inspectorHighlightObject self
= liftDOM
((self ^. jsf "inspectorHighlightObject" ()) >>=
fromJSValUnchecked)
inspectorHighlightObject_ :: (MonadDOM m) => Internals -> m ()
inspectorHighlightObject_ self
= liftDOM (void (self ^. jsf "inspectorHighlightObject" ()))
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))
markerCountForNode_ ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> m ()
markerCountForNode_ self node markerType
= liftDOM
(void
(self ^. jsf "markerCountForNode"
[toJSVal node, toJSVal markerType]))
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)
markerRangeForNode_ ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> Word -> m ()
markerRangeForNode_ self node markerType index
= liftDOM
(void
(self ^. jsf "markerRangeForNode"
[toJSVal node, toJSVal markerType, toJSVal index]))
markerRangeForNodeUnsafe ::
(MonadDOM m, IsNode node, ToJSString markerType, HasCallStack) =>
Internals -> Maybe node -> markerType -> Word -> m Range
markerRangeForNodeUnsafe self node markerType index
= liftDOM
(((self ^. jsf "markerRangeForNode"
[toJSVal node, toJSVal markerType, toJSVal index])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
markerRangeForNodeUnchecked ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> Word -> m Range
markerRangeForNodeUnchecked self node markerType index
= liftDOM
((self ^. jsf "markerRangeForNode"
[toJSVal node, toJSVal markerType, toJSVal index])
>>= fromJSValUnchecked)
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)
markerDescriptionForNode_ ::
(MonadDOM m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> Word -> m ()
markerDescriptionForNode_ self node markerType index
= liftDOM
(void
(self ^. jsf "markerDescriptionForNode"
[toJSVal node, toJSVal markerType, toJSVal index]))
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 ^. jsf "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)
configurationForViewport_ ::
(MonadDOM m) =>
Internals -> Float -> Int -> Int -> Int -> Int -> m ()
configurationForViewport_ self devicePixelRatio deviceWidth
deviceHeight availableWidth availableHeight
= liftDOM
(void
(self ^. jsf "configurationForViewport"
[toJSVal devicePixelRatio, toJSVal deviceWidth,
toJSVal deviceHeight, toJSVal availableWidth,
toJSVal availableHeight]))
wasLastChangeUserEdit ::
(MonadDOM m, IsElement textField) =>
Internals -> Maybe textField -> m Bool
wasLastChangeUserEdit self textField
= liftDOM
((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>=
valToBool)
wasLastChangeUserEdit_ ::
(MonadDOM m, IsElement textField) =>
Internals -> Maybe textField -> m ()
wasLastChangeUserEdit_ self textField
= liftDOM
(void (self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]))
elementShouldAutoComplete ::
(MonadDOM m, IsElement inputElement) =>
Internals -> Maybe inputElement -> m Bool
elementShouldAutoComplete self inputElement
= liftDOM
((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])
>>= valToBool)
elementShouldAutoComplete_ ::
(MonadDOM m, IsElement inputElement) =>
Internals -> Maybe inputElement -> m ()
elementShouldAutoComplete_ self inputElement
= liftDOM
(void
(self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement]))
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))
countMatchesForText_ ::
(MonadDOM m, ToJSString text, ToJSString markMatches) =>
Internals -> text -> Word -> markMatches -> m ()
countMatchesForText_ self text findOptions markMatches
= liftDOM
(void
(self ^. jsf "countMatchesForText"
[toJSVal text, toJSVal findOptions, toJSVal markMatches]))
paintControlTints :: (MonadDOM m) => Internals -> m ()
paintControlTints self
= liftDOM (void (self ^. jsf "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)
rangeFromLocationAndLength_ ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Int -> Int -> m ()
rangeFromLocationAndLength_ self scope rangeLocation rangeLength
= liftDOM
(void
(self ^. jsf "rangeFromLocationAndLength"
[toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]))
rangeFromLocationAndLengthUnsafe ::
(MonadDOM m, IsElement scope, HasCallStack) =>
Internals -> Maybe scope -> Int -> Int -> m Range
rangeFromLocationAndLengthUnsafe self scope rangeLocation
rangeLength
= liftDOM
(((self ^. jsf "rangeFromLocationAndLength"
[toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
rangeFromLocationAndLengthUnchecked ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Int -> Int -> m Range
rangeFromLocationAndLengthUnchecked self scope rangeLocation
rangeLength
= liftDOM
((self ^. jsf "rangeFromLocationAndLength"
[toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSValUnchecked)
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))
locationFromRange_ ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m ()
locationFromRange_ self scope range
= liftDOM
(void
(self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range]))
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))
lengthFromRange_ ::
(MonadDOM m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m ()
lengthFromRange_ self scope range
= liftDOM
(void
(self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]))
rangeAsText ::
(MonadDOM m, FromJSString result) =>
Internals -> Maybe Range -> m result
rangeAsText self range
= liftDOM
((self ^. jsf "rangeAsText" [toJSVal range]) >>=
fromJSValUnchecked)
rangeAsText_ :: (MonadDOM m) => Internals -> Maybe Range -> m ()
rangeAsText_ self range
= liftDOM (void (self ^. jsf "rangeAsText" [toJSVal range]))
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)
subrange_ ::
(MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m ()
subrange_ self range rangeLocation rangeLength
= liftDOM
(void
(self ^. jsf "subrange"
[toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]))
subrangeUnsafe ::
(MonadDOM m, HasCallStack) =>
Internals -> Maybe Range -> Int -> Int -> m Range
subrangeUnsafe self range rangeLocation rangeLength
= liftDOM
(((self ^. jsf "subrange"
[toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
subrangeUnchecked ::
(MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m Range
subrangeUnchecked self range rangeLocation rangeLength
= liftDOM
((self ^. jsf "subrange"
[toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])
>>= fromJSValUnchecked)
rangeForDictionaryLookupAtLocation ::
(MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range)
rangeForDictionaryLookupAtLocation self x y
= liftDOM
((self ^. jsf "rangeForDictionaryLookupAtLocation"
[toJSVal x, toJSVal y])
>>= fromJSVal)
rangeForDictionaryLookupAtLocation_ ::
(MonadDOM m) => Internals -> Int -> Int -> m ()
rangeForDictionaryLookupAtLocation_ self x y
= liftDOM
(void
(self ^. jsf "rangeForDictionaryLookupAtLocation"
[toJSVal x, toJSVal y]))
rangeForDictionaryLookupAtLocationUnsafe ::
(MonadDOM m, HasCallStack) =>
Internals -> Int -> Int -> m Range
rangeForDictionaryLookupAtLocationUnsafe self x y
= liftDOM
(((self ^. jsf "rangeForDictionaryLookupAtLocation"
[toJSVal x, toJSVal y])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
rangeForDictionaryLookupAtLocationUnchecked ::
(MonadDOM m) => Internals -> Int -> Int -> m Range
rangeForDictionaryLookupAtLocationUnchecked self x y
= liftDOM
((self ^. jsf "rangeForDictionaryLookupAtLocation"
[toJSVal x, toJSVal y])
>>= fromJSValUnchecked)
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 ^. jsf "lastSpellCheckRequestSequence" ()) >>= valToNumber))
lastSpellCheckRequestSequence_ :: (MonadDOM m) => Internals -> m ()
lastSpellCheckRequestSequence_ self
= liftDOM (void (self ^. jsf "lastSpellCheckRequestSequence" ()))
lastSpellCheckProcessedSequence ::
(MonadDOM m) => Internals -> m Int
lastSpellCheckProcessedSequence self
= liftDOM
(round <$>
((self ^. jsf "lastSpellCheckProcessedSequence" ()) >>=
valToNumber))
lastSpellCheckProcessedSequence_ ::
(MonadDOM m) => Internals -> m ()
lastSpellCheckProcessedSequence_ self
= liftDOM (void (self ^. jsf "lastSpellCheckProcessedSequence" ()))
userPreferredLanguages ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
userPreferredLanguages self
= liftDOM
((self ^. jsf "userPreferredLanguages" ()) >>=
fromJSArrayUnchecked)
userPreferredLanguages_ :: (MonadDOM m) => Internals -> m ()
userPreferredLanguages_ self
= liftDOM (void (self ^. jsf "userPreferredLanguages" ()))
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 ^. jsf "wheelEventHandlerCount" ()) >>= valToNumber))
wheelEventHandlerCount_ :: (MonadDOM m) => Internals -> m ()
wheelEventHandlerCount_ self
= liftDOM (void (self ^. jsf "wheelEventHandlerCount" ()))
touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word
touchEventHandlerCount self
= liftDOM
(round <$>
((self ^. jsf "touchEventHandlerCount" ()) >>= valToNumber))
touchEventHandlerCount_ :: (MonadDOM m) => Internals -> m ()
touchEventHandlerCount_ self
= liftDOM (void (self ^. jsf "touchEventHandlerCount" ()))
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)
nodesFromRect_ ::
(MonadDOM m, IsDocument document) =>
Internals ->
Maybe document ->
Int ->
Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m ()
nodesFromRect_ self document x y topPadding rightPadding
bottomPadding leftPadding ignoreClipping allowShadowContent
allowChildFrameContent
= liftDOM
(void
(self ^. jsf "nodesFromRect"
[toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding,
toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding,
toJSVal ignoreClipping, toJSVal allowShadowContent,
toJSVal allowChildFrameContent]))
nodesFromRectUnsafe ::
(MonadDOM m, IsDocument document, HasCallStack) =>
Internals ->
Maybe document ->
Int ->
Int ->
Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList
nodesFromRectUnsafe 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)
>>= maybe (Prelude.error "Nothing to return") return)
nodesFromRectUnchecked ::
(MonadDOM m, IsDocument document) =>
Internals ->
Maybe document ->
Int ->
Int ->
Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList
nodesFromRectUnchecked 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])
>>= fromJSValUnchecked)
parserMetaData ::
(MonadDOM m, FromJSString result) => Internals -> JSVal -> m result
parserMetaData self func
= liftDOM
((self ^. jsf "parserMetaData" [toJSVal func]) >>=
fromJSValUnchecked)
parserMetaData_ :: (MonadDOM m) => Internals -> JSVal -> m ()
parserMetaData_ self func
= liftDOM (void (self ^. jsf "parserMetaData" [toJSVal func]))
updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m ()
updateEditorUINowIfScheduled self
= liftDOM (void (self ^. jsf "updateEditorUINowIfScheduled" ()))
hasSpellingMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasSpellingMarker self from length
= liftDOM
((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])
>>= valToBool)
hasSpellingMarker_ ::
(MonadDOM m) => Internals -> Int -> Int -> m ()
hasSpellingMarker_ self from length
= liftDOM
(void
(self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length]))
hasGrammarMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasGrammarMarker self from length
= liftDOM
((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])
>>= valToBool)
hasGrammarMarker_ ::
(MonadDOM m) => Internals -> Int -> Int -> m ()
hasGrammarMarker_ self from length
= liftDOM
(void
(self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length]))
hasAutocorrectedMarker ::
(MonadDOM m) => Internals -> Int -> Int -> m Bool
hasAutocorrectedMarker self from length
= liftDOM
((self ^. jsf "hasAutocorrectedMarker"
[toJSVal from, toJSVal length])
>>= valToBool)
hasAutocorrectedMarker_ ::
(MonadDOM m) => Internals -> Int -> Int -> m ()
hasAutocorrectedMarker_ self from length
= liftDOM
(void
(self ^. jsf "hasAutocorrectedMarker"
[toJSVal from, toJSVal length]))
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 ^. jsf "isOverwriteModeEnabled" ()) >>= valToBool)
isOverwriteModeEnabled_ :: (MonadDOM m) => Internals -> m ()
isOverwriteModeEnabled_ self
= liftDOM (void (self ^. jsf "isOverwriteModeEnabled" ()))
toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m ()
toggleOverwriteModeEnabled self
= liftDOM (void (self ^. jsf "toggleOverwriteModeEnabled" ()))
numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word
numberOfScrollableAreas self
= liftDOM
(round <$>
((self ^. jsf "numberOfScrollableAreas" ()) >>= valToNumber))
numberOfScrollableAreas_ :: (MonadDOM m) => Internals -> m ()
numberOfScrollableAreas_ self
= liftDOM (void (self ^. jsf "numberOfScrollableAreas" ()))
isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool
isPageBoxVisible self pageNumber
= liftDOM
((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>=
valToBool)
isPageBoxVisible_ :: (MonadDOM m) => Internals -> Int -> m ()
isPageBoxVisible_ self pageNumber
= liftDOM
(void (self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]))
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)
layerTreeAsText_ ::
(MonadDOM m, IsDocument document) =>
Internals -> Maybe document -> Word -> m ()
layerTreeAsText_ self document flags
= liftDOM
(void
(self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags]))
scrollingStateTreeAsText ::
(MonadDOM m, FromJSString result) => Internals -> m result
scrollingStateTreeAsText self
= liftDOM
((self ^. jsf "scrollingStateTreeAsText" ()) >>=
fromJSValUnchecked)
scrollingStateTreeAsText_ :: (MonadDOM m) => Internals -> m ()
scrollingStateTreeAsText_ self
= liftDOM (void (self ^. jsf "scrollingStateTreeAsText" ()))
mainThreadScrollingReasons ::
(MonadDOM m, FromJSString result) => Internals -> m result
mainThreadScrollingReasons self
= liftDOM
((self ^. jsf "mainThreadScrollingReasons" ()) >>=
fromJSValUnchecked)
mainThreadScrollingReasons_ :: (MonadDOM m) => Internals -> m ()
mainThreadScrollingReasons_ self
= liftDOM (void (self ^. jsf "mainThreadScrollingReasons" ()))
nonFastScrollableRects ::
(MonadDOM m) => Internals -> m (Maybe ClientRectList)
nonFastScrollableRects self
= liftDOM ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal)
nonFastScrollableRects_ :: (MonadDOM m) => Internals -> m ()
nonFastScrollableRects_ self
= liftDOM (void (self ^. jsf "nonFastScrollableRects" ()))
nonFastScrollableRectsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m ClientRectList
nonFastScrollableRectsUnsafe self
= liftDOM
(((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
nonFastScrollableRectsUnchecked ::
(MonadDOM m) => Internals -> m ClientRectList
nonFastScrollableRectsUnchecked self
= liftDOM
((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSValUnchecked)
repaintRectsAsText ::
(MonadDOM m, FromJSString result) => Internals -> m result
repaintRectsAsText self
= liftDOM
((self ^. jsf "repaintRectsAsText" ()) >>= fromJSValUnchecked)
repaintRectsAsText_ :: (MonadDOM m) => Internals -> m ()
repaintRectsAsText_ self
= liftDOM (void (self ^. jsf "repaintRectsAsText" ()))
garbageCollectDocumentResources ::
(MonadDOM m) => Internals -> m ()
garbageCollectDocumentResources self
= liftDOM (void (self ^. jsf "garbageCollectDocumentResources" ()))
allowRoundingHacks :: (MonadDOM m) => Internals -> m ()
allowRoundingHacks self
= liftDOM (void (self ^. jsf "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 ^. jsf "numberOfLiveNodes" ()) >>= valToNumber))
numberOfLiveNodes_ :: (MonadDOM m) => Internals -> m ()
numberOfLiveNodes_ self
= liftDOM (void (self ^. jsf "numberOfLiveNodes" ()))
numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word
numberOfLiveDocuments self
= liftDOM
(round <$>
((self ^. jsf "numberOfLiveDocuments" ()) >>= valToNumber))
numberOfLiveDocuments_ :: (MonadDOM m) => Internals -> m ()
numberOfLiveDocuments_ self
= liftDOM (void (self ^. jsf "numberOfLiveDocuments" ()))
consoleMessageArgumentCounts ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
consoleMessageArgumentCounts self
= liftDOM
((self ^. jsf "consoleMessageArgumentCounts" ()) >>=
fromJSArrayUnchecked)
consoleMessageArgumentCounts_ :: (MonadDOM m) => Internals -> m ()
consoleMessageArgumentCounts_ self
= liftDOM (void (self ^. jsf "consoleMessageArgumentCounts" ()))
openDummyInspectorFrontend ::
(MonadDOM m, ToJSString url) =>
Internals -> url -> m (Maybe Window)
openDummyInspectorFrontend self url
= liftDOM
((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=
fromJSVal)
openDummyInspectorFrontend_ ::
(MonadDOM m, ToJSString url) => Internals -> url -> m ()
openDummyInspectorFrontend_ self url
= liftDOM
(void (self ^. jsf "openDummyInspectorFrontend" [toJSVal url]))
openDummyInspectorFrontendUnsafe ::
(MonadDOM m, ToJSString url, HasCallStack) =>
Internals -> url -> m Window
openDummyInspectorFrontendUnsafe self url
= liftDOM
(((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
openDummyInspectorFrontendUnchecked ::
(MonadDOM m, ToJSString url) => Internals -> url -> m Window
openDummyInspectorFrontendUnchecked self url
= liftDOM
((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=
fromJSValUnchecked)
closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m ()
closeDummyInspectorFrontend self
= liftDOM (void (self ^. jsf "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)
counterValue_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
counterValue_ self element
= liftDOM (void (self ^. jsf "counterValue" [toJSVal element]))
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))
pageNumber_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> Float -> Float -> m ()
pageNumber_ self element pageWidth pageHeight
= liftDOM
(void
(self ^. jsf "pageNumber"
[toJSVal element, toJSVal pageWidth, toJSVal pageHeight]))
shortcutIconURLs ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
shortcutIconURLs self
= liftDOM
((self ^. jsf "shortcutIconURLs" ()) >>= fromJSArrayUnchecked)
shortcutIconURLs_ :: (MonadDOM m) => Internals -> m ()
shortcutIconURLs_ self
= liftDOM (void (self ^. jsf "shortcutIconURLs" ()))
allIconURLs ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
allIconURLs self
= liftDOM ((self ^. jsf "allIconURLs" ()) >>= fromJSArrayUnchecked)
allIconURLs_ :: (MonadDOM m) => Internals -> m ()
allIconURLs_ self = liftDOM (void (self ^. jsf "allIconURLs" ()))
numberOfPages ::
(MonadDOM m) => Internals -> Double -> Double -> m Int
numberOfPages self pageWidthInPixels pageHeightInPixels
= liftDOM
(round <$>
((self ^. jsf "numberOfPages"
[toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])
>>= valToNumber))
numberOfPages_ ::
(MonadDOM m) => Internals -> Double -> Double -> m ()
numberOfPages_ self pageWidthInPixels pageHeightInPixels
= liftDOM
(void
(self ^. jsf "numberOfPages"
[toJSVal pageWidthInPixels, toJSVal pageHeightInPixels]))
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)
pageProperty_ ::
(MonadDOM m, ToJSString propertyName) =>
Internals -> propertyName -> Int -> m ()
pageProperty_ self propertyName pageNumber
= liftDOM
(void
(self ^. jsf "pageProperty"
[toJSVal propertyName, toJSVal pageNumber]))
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)
pageSizeAndMarginsInPixels_ ::
(MonadDOM m) =>
Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m ()
pageSizeAndMarginsInPixels_ self pageIndex width height marginTop
marginRight marginBottom marginLeft
= liftDOM
(void
(self ^. jsf "pageSizeAndMarginsInPixels"
[toJSVal pageIndex, toJSVal width, toJSVal height,
toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom,
toJSVal marginLeft]))
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"
[integralToDoubleToJSVal 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 ^. jsf "mallocStatistics" ()) >>= fromJSVal)
mallocStatistics_ :: (MonadDOM m) => Internals -> m ()
mallocStatistics_ self
= liftDOM (void (self ^. jsf "mallocStatistics" ()))
mallocStatisticsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m MallocStatistics
mallocStatisticsUnsafe self
= liftDOM
(((self ^. jsf "mallocStatistics" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
mallocStatisticsUnchecked ::
(MonadDOM m) => Internals -> m MallocStatistics
mallocStatisticsUnchecked self
= liftDOM
((self ^. jsf "mallocStatistics" ()) >>= fromJSValUnchecked)
typeConversions ::
(MonadDOM m) => Internals -> m (Maybe TypeConversions)
typeConversions self
= liftDOM ((self ^. jsf "typeConversions" ()) >>= fromJSVal)
typeConversions_ :: (MonadDOM m) => Internals -> m ()
typeConversions_ self
= liftDOM (void (self ^. jsf "typeConversions" ()))
typeConversionsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m TypeConversions
typeConversionsUnsafe self
= liftDOM
(((self ^. jsf "typeConversions" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
typeConversionsUnchecked ::
(MonadDOM m) => Internals -> m TypeConversions
typeConversionsUnchecked self
= liftDOM
((self ^. jsf "typeConversions" ()) >>= fromJSValUnchecked)
memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo)
memoryInfo self
= liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSVal)
memoryInfo_ :: (MonadDOM m) => Internals -> m ()
memoryInfo_ self = liftDOM (void (self ^. jsf "memoryInfo" ()))
memoryInfoUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m MemoryInfo
memoryInfoUnsafe self
= liftDOM
(((self ^. jsf "memoryInfo" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
memoryInfoUnchecked :: (MonadDOM m) => Internals -> m MemoryInfo
memoryInfoUnchecked self
= liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSValUnchecked)
getReferencedFilePaths ::
(MonadDOM m, FromJSString result) => Internals -> m [result]
getReferencedFilePaths self
= liftDOM
((self ^. jsf "getReferencedFilePaths" ()) >>=
fromJSArrayUnchecked)
getReferencedFilePaths_ :: (MonadDOM m) => Internals -> m ()
getReferencedFilePaths_ self
= liftDOM (void (self ^. jsf "getReferencedFilePaths" ()))
startTrackingRepaints :: (MonadDOM m) => Internals -> m ()
startTrackingRepaints self
= liftDOM (void (self ^. jsf "startTrackingRepaints" ()))
stopTrackingRepaints :: (MonadDOM m) => Internals -> m ()
stopTrackingRepaints self
= liftDOM (void (self ^. jsf "stopTrackingRepaints" ()))
isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool
isTimerThrottled self timerHandle
= liftDOM
((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>=
valToBool)
isTimerThrottled_ :: (MonadDOM m) => Internals -> Int -> m ()
isTimerThrottled_ self timerHandle
= liftDOM
(void (self ^. jsf "isTimerThrottled" [toJSVal timerHandle]))
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 ^. jsf "getCurrentCursorInfo" ()) >>= fromJSValUnchecked)
getCurrentCursorInfo_ :: (MonadDOM m) => Internals -> m ()
getCurrentCursorInfo_ self
= liftDOM (void (self ^. jsf "getCurrentCursorInfo" ()))
markerTextForListItem ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
markerTextForListItem self element
= liftDOM
((self ^. jsf "markerTextForListItem" [toJSVal element]) >>=
fromJSValUnchecked)
markerTextForListItem_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
markerTextForListItem_ self element
= liftDOM
(void (self ^. jsf "markerTextForListItem" [toJSVal element]))
toolTipFromElement ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
toolTipFromElement self element
= liftDOM
((self ^. jsf "toolTipFromElement" [toJSVal element]) >>=
fromJSValUnchecked)
toolTipFromElement_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
toolTipFromElement_ self element
= liftDOM
(void (self ^. jsf "toolTipFromElement" [toJSVal element]))
deserializeBuffer ::
(MonadDOM m, IsArrayBuffer buffer) =>
Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)
deserializeBuffer self buffer
= liftDOM
((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal)
deserializeBuffer_ ::
(MonadDOM m, IsArrayBuffer buffer) =>
Internals -> Maybe buffer -> m ()
deserializeBuffer_ self buffer
= liftDOM (void (self ^. jsf "deserializeBuffer" [toJSVal buffer]))
deserializeBufferUnsafe ::
(MonadDOM m, IsArrayBuffer buffer, HasCallStack) =>
Internals -> Maybe buffer -> m SerializedScriptValue
deserializeBufferUnsafe self buffer
= liftDOM
(((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
deserializeBufferUnchecked ::
(MonadDOM m, IsArrayBuffer buffer) =>
Internals -> Maybe buffer -> m SerializedScriptValue
deserializeBufferUnchecked self buffer
= liftDOM
((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>=
fromJSValUnchecked)
serializeObject ::
(MonadDOM m, IsSerializedScriptValue obj) =>
Internals -> Maybe obj -> m (Maybe ArrayBuffer)
serializeObject self obj
= liftDOM
((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal)
serializeObject_ ::
(MonadDOM m, IsSerializedScriptValue obj) =>
Internals -> Maybe obj -> m ()
serializeObject_ self obj
= liftDOM (void (self ^. jsf "serializeObject" [toJSVal obj]))
serializeObjectUnsafe ::
(MonadDOM m, IsSerializedScriptValue obj, HasCallStack) =>
Internals -> Maybe obj -> m ArrayBuffer
serializeObjectUnsafe self obj
= liftDOM
(((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
serializeObjectUnchecked ::
(MonadDOM m, IsSerializedScriptValue obj) =>
Internals -> Maybe obj -> m ArrayBuffer
serializeObjectUnchecked self obj
= liftDOM
((self ^. jsf "serializeObject" [toJSVal obj]) >>=
fromJSValUnchecked)
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)
mediaElementHasCharacteristic_ ::
(MonadDOM m, IsNode node, ToJSString characteristic) =>
Internals -> Maybe node -> characteristic -> m ()
mediaElementHasCharacteristic_ self node characteristic
= liftDOM
(void
(self ^. jsf "mediaElementHasCharacteristic"
[toJSVal node, toJSVal characteristic]))
initializeMockCDM :: (MonadDOM m) => Internals -> m ()
initializeMockCDM self
= liftDOM (void (self ^. jsf "initializeMockCDM" ()))
enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m ()
enableMockSpeechSynthesizer self
= liftDOM (void (self ^. jsf "enableMockSpeechSynthesizer" ()))
getImageSourceURL ::
(MonadDOM m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
getImageSourceURL self element
= liftDOM
((self ^. jsf "getImageSourceURL" [toJSVal element]) >>=
fromJSValUnchecked)
getImageSourceURL_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
getImageSourceURL_ self element
= liftDOM
(void (self ^. jsf "getImageSourceURL" [toJSVal element]))
captionsStyleSheetOverride ::
(MonadDOM m, FromJSString result) => Internals -> m result
captionsStyleSheetOverride self
= liftDOM
((self ^. jsf "captionsStyleSheetOverride" ()) >>=
fromJSValUnchecked)
captionsStyleSheetOverride_ :: (MonadDOM m) => Internals -> m ()
captionsStyleSheetOverride_ self
= liftDOM (void (self ^. jsf "captionsStyleSheetOverride" ()))
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)
createTimeRanges_ ::
(MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>
Internals -> Maybe startTimes -> Maybe endTimes -> m ()
createTimeRanges_ self startTimes endTimes
= liftDOM
(void
(self ^. jsf "createTimeRanges"
[toJSVal startTimes, toJSVal endTimes]))
createTimeRangesUnsafe ::
(MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes,
HasCallStack) =>
Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges
createTimeRangesUnsafe self startTimes endTimes
= liftDOM
(((self ^. jsf "createTimeRanges"
[toJSVal startTimes, toJSVal endTimes])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createTimeRangesUnchecked ::
(MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>
Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges
createTimeRangesUnchecked self startTimes endTimes
= liftDOM
((self ^. jsf "createTimeRanges"
[toJSVal startTimes, toJSVal endTimes])
>>= fromJSValUnchecked)
closestTimeToTimeRanges ::
(MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double
closestTimeToTimeRanges self time ranges
= liftDOM
((self ^. jsf "closestTimeToTimeRanges"
[toJSVal time, toJSVal ranges])
>>= valToNumber)
closestTimeToTimeRanges_ ::
(MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m ()
closestTimeToTimeRanges_ self time ranges
= liftDOM
(void
(self ^. jsf "closestTimeToTimeRanges"
[toJSVal time, toJSVal ranges]))
isSelectPopupVisible ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool
isSelectPopupVisible self node
= liftDOM
((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool)
isSelectPopupVisible_ ::
(MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()
isSelectPopupVisible_ self node
= liftDOM
(void (self ^. jsf "isSelectPopupVisible" [toJSVal node]))
isVibrating :: (MonadDOM m) => Internals -> m Bool
isVibrating self
= liftDOM ((self ^. jsf "isVibrating" ()) >>= valToBool)
isVibrating_ :: (MonadDOM m) => Internals -> m ()
isVibrating_ self = liftDOM (void (self ^. jsf "isVibrating" ()))
isPluginUnavailabilityIndicatorObscured ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginUnavailabilityIndicatorObscured self element
= liftDOM
((self ^. jsf "isPluginUnavailabilityIndicatorObscured"
[toJSVal element])
>>= valToBool)
isPluginUnavailabilityIndicatorObscured_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
isPluginUnavailabilityIndicatorObscured_ self element
= liftDOM
(void
(self ^. jsf "isPluginUnavailabilityIndicatorObscured"
[toJSVal element]))
isPluginSnapshotted ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginSnapshotted self element
= liftDOM
((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>=
valToBool)
isPluginSnapshotted_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
isPluginSnapshotted_ self element
= liftDOM
(void (self ^. jsf "isPluginSnapshotted" [toJSVal element]))
selectionBounds ::
(MonadDOM m) => Internals -> m (Maybe ClientRect)
selectionBounds self
= liftDOM ((self ^. jsf "selectionBounds" ()) >>= fromJSVal)
selectionBounds_ :: (MonadDOM m) => Internals -> m ()
selectionBounds_ self
= liftDOM (void (self ^. jsf "selectionBounds" ()))
selectionBoundsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m ClientRect
selectionBoundsUnsafe self
= liftDOM
(((self ^. jsf "selectionBounds" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
selectionBoundsUnchecked ::
(MonadDOM m) => Internals -> m ClientRect
selectionBoundsUnchecked self
= liftDOM
((self ^. jsf "selectionBounds" ()) >>= fromJSValUnchecked)
initializeMockMediaSource :: (MonadDOM m) => Internals -> m ()
initializeMockMediaSource self
= liftDOM (void (self ^. jsf "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)
bufferedSamplesForTrackID_ ::
(MonadDOM m, ToJSString trackID) =>
Internals -> Maybe SourceBuffer -> trackID -> m ()
bufferedSamplesForTrackID_ self buffer trackID
= liftDOM
(void
(self ^. jsf "bufferedSamplesForTrackID"
[toJSVal buffer, toJSVal trackID]))
beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m ()
beginMediaSessionInterruption self
= liftDOM (void (self ^. jsf "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 ^. jsf "applicationWillEnterForeground" ()))
applicationWillEnterBackground :: (MonadDOM m) => Internals -> m ()
applicationWillEnterBackground self
= liftDOM (void (self ^. jsf "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 ^. jsf "simulateSystemSleep" ()))
simulateSystemWake :: (MonadDOM m) => Internals -> m ()
simulateSystemWake self
= liftDOM (void (self ^. jsf "simulateSystemWake" ()))
elementIsBlockingDisplaySleep ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m Bool
elementIsBlockingDisplaySleep self element
= liftDOM
((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])
>>= valToBool)
elementIsBlockingDisplaySleep_ ::
(MonadDOM m, IsElement element) =>
Internals -> Maybe element -> m ()
elementIsBlockingDisplaySleep_ self element
= liftDOM
(void
(self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element]))
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 ^. jsf "pageOverlayLayerTreeAsText" ()) >>=
fromJSValUnchecked)
pageOverlayLayerTreeAsText_ :: (MonadDOM m) => Internals -> m ()
pageOverlayLayerTreeAsText_ self
= liftDOM (void (self ^. jsf "pageOverlayLayerTreeAsText" ()))
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 ^. jsf "isPagePlayingAudio" ()) >>= valToBool)
isPagePlayingAudio_ :: (MonadDOM m) => Internals -> m ()
isPagePlayingAudio_ self
= liftDOM (void (self ^. jsf "isPagePlayingAudio" ()))
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)
getSettingsUnsafe ::
(MonadDOM m, HasCallStack) => Internals -> m InternalSettings
getSettingsUnsafe self
= liftDOM
(((self ^. js "settings") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getSettingsUnchecked ::
(MonadDOM m) => Internals -> m InternalSettings
getSettingsUnchecked self
= liftDOM ((self ^. js "settings") >>= fromJSValUnchecked)
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)