ghcjs-dom-0.2.1.0: src/GHCJS/DOM/JSFFI/Generated/Internals.hs
{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}
module GHCJS.DOM.JSFFI.Generated.Internals
(js_address, address, js_nodeNeedsStyleRecalc,
nodeNeedsStyleRecalc, js_description, description,
js_hasPausedImageAnimations, hasPausedImageAnimations,
js_elementRenderTreeAsText, elementRenderTreeAsText,
js_isPreloaded, isPreloaded, js_isLoadingFromMemoryCache,
isLoadingFromMemoryCache, js_xhrResponseSource, xhrResponseSource,
js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize,
pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize,
js_clearPageCache, clearPageCache, js_pageCacheSize, pageCacheSize,
js_computedStyleIncludingVisitedInfo,
computedStyleIncludingVisitedInfo, js_ensureShadowRoot,
ensureShadowRoot, js_createShadowRoot, createShadowRoot,
js_shadowRoot, shadowRoot, js_shadowRootType, shadowRootType,
js_includerFor, includerFor, js_shadowPseudoId, shadowPseudoId,
js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode,
treeScopeRootNode, js_parentTreeScope, parentTreeScope,
js_lastSpatialNavigationCandidateCount,
lastSpatialNavigationCandidateCount, js_numberOfActiveAnimations,
numberOfActiveAnimations, js_suspendAnimations, suspendAnimations,
js_resumeAnimations, resumeAnimations, js_animationsAreSuspended,
animationsAreSuspended, js_pauseAnimationAtTimeOnElement,
pauseAnimationAtTimeOnElement,
js_pauseAnimationAtTimeOnPseudoElement,
pauseAnimationAtTimeOnPseudoElement,
js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement,
js_pauseTransitionAtTimeOnPseudoElement,
pauseTransitionAtTimeOnPseudoElement, js_attached, attached,
js_visiblePlaceholder, visiblePlaceholder,
js_selectColorInColorChooser, selectColorInColorChooser,
js_formControlStateOfPreviousHistoryItem,
formControlStateOfPreviousHistoryItem,
js_setFormControlStateOfPreviousHistoryItem,
setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds,
absoluteCaretBounds, js_boundingBox, boundingBox,
js_inspectorHighlightRects, inspectorHighlightRects,
js_inspectorHighlightObject, inspectorHighlightObject,
js_markerCountForNode, markerCountForNode, js_markerRangeForNode,
markerRangeForNode, js_markerDescriptionForNode,
markerDescriptionForNode, js_addTextMatchMarker,
addTextMatchMarker, js_setMarkedTextMatchesAreHighlighted,
setMarkedTextMatchesAreHighlighted, js_invalidateFontCache,
invalidateFontCache, js_setScrollViewPosition,
setScrollViewPosition, js_setPagination, setPagination,
js_configurationForViewport, configurationForViewport,
js_wasLastChangeUserEdit, wasLastChangeUserEdit,
js_elementShouldAutoComplete, elementShouldAutoComplete,
js_setEditingValue, setEditingValue, js_setAutofilled,
setAutofilled, js_countMatchesForText, countMatchesForText,
js_paintControlTints, paintControlTints, js_scrollElementToRect,
scrollElementToRect, js_rangeFromLocationAndLength,
rangeFromLocationAndLength, js_locationFromRange,
locationFromRange, js_lengthFromRange, lengthFromRange,
js_rangeAsText, rangeAsText, js_subrange, subrange,
js_rangeForDictionaryLookupAtLocation,
rangeForDictionaryLookupAtLocation, js_setDelegatesScrolling,
setDelegatesScrolling, js_lastSpellCheckRequestSequence,
lastSpellCheckRequestSequence, js_lastSpellCheckProcessedSequence,
lastSpellCheckProcessedSequence, js_userPreferredLanguages,
userPreferredLanguages, js_setUserPreferredLanguages,
setUserPreferredLanguages, js_wheelEventHandlerCount,
wheelEventHandlerCount, js_touchEventHandlerCount,
touchEventHandlerCount, js_nodesFromRect, nodesFromRect,
js_parserMetaData, parserMetaData, js_updateEditorUINowIfScheduled,
updateEditorUINowIfScheduled, js_hasSpellingMarker,
hasSpellingMarker, js_hasGrammarMarker, hasGrammarMarker,
js_hasAutocorrectedMarker, hasAutocorrectedMarker,
js_setContinuousSpellCheckingEnabled,
setContinuousSpellCheckingEnabled,
js_setAutomaticQuoteSubstitutionEnabled,
setAutomaticQuoteSubstitutionEnabled,
js_setAutomaticLinkDetectionEnabled,
setAutomaticLinkDetectionEnabled,
js_setAutomaticDashSubstitutionEnabled,
setAutomaticDashSubstitutionEnabled,
js_setAutomaticTextReplacementEnabled,
setAutomaticTextReplacementEnabled,
js_setAutomaticSpellingCorrectionEnabled,
setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled,
isOverwriteModeEnabled, js_toggleOverwriteModeEnabled,
toggleOverwriteModeEnabled, js_numberOfScrollableAreas,
numberOfScrollableAreas, js_isPageBoxVisible, isPageBoxVisible,
js_layerTreeAsText, layerTreeAsText, js_scrollingStateTreeAsText,
scrollingStateTreeAsText, js_mainThreadScrollingReasons,
mainThreadScrollingReasons, js_nonFastScrollableRects,
nonFastScrollableRects, js_repaintRectsAsText, repaintRectsAsText,
js_garbageCollectDocumentResources,
garbageCollectDocumentResources, js_allowRoundingHacks,
allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS,
js_insertUserCSS, insertUserCSS, js_setBatteryStatus,
setBatteryStatus, js_setDeviceProximity, setDeviceProximity,
js_numberOfLiveNodes, numberOfLiveNodes, js_numberOfLiveDocuments,
numberOfLiveDocuments, js_consoleMessageArgumentCounts,
consoleMessageArgumentCounts, js_openDummyInspectorFrontend,
openDummyInspectorFrontend, js_closeDummyInspectorFrontend,
closeDummyInspectorFrontend, js_setJavaScriptProfilingEnabled,
setJavaScriptProfilingEnabled, js_setInspectorIsUnderTest,
setInspectorIsUnderTest, js_counterValue, counterValue,
js_pageNumber, pageNumber, js_shortcutIconURLs, shortcutIconURLs,
js_allIconURLs, allIconURLs, js_numberOfPages, numberOfPages,
js_pageProperty, pageProperty, js_pageSizeAndMarginsInPixels,
pageSizeAndMarginsInPixels, js_setPageScaleFactor,
setPageScaleFactor, js_setPageZoomFactor, setPageZoomFactor,
js_setHeaderHeight, setHeaderHeight, js_setFooterHeight,
setFooterHeight, js_setTopContentInset, setTopContentInset,
js_webkitWillEnterFullScreenForElement,
webkitWillEnterFullScreenForElement,
js_webkitDidEnterFullScreenForElement,
webkitDidEnterFullScreenForElement,
js_webkitWillExitFullScreenForElement,
webkitWillExitFullScreenForElement,
js_webkitDidExitFullScreenForElement,
webkitDidExitFullScreenForElement,
js_setApplicationCacheOriginQuota, setApplicationCacheOriginQuota,
js_registerURLSchemeAsBypassingContentSecurityPolicy,
registerURLSchemeAsBypassingContentSecurityPolicy,
js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,
js_mallocStatistics, mallocStatistics, js_typeConversions,
typeConversions, js_memoryInfo, memoryInfo,
js_getReferencedFilePaths, getReferencedFilePaths,
js_startTrackingRepaints, startTrackingRepaints,
js_stopTrackingRepaints, stopTrackingRepaints, js_isTimerThrottled,
isTimerThrottled,
js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,
js_getCurrentCursorInfo, getCurrentCursorInfo,
js_markerTextForListItem, markerTextForListItem,
js_toolTipFromElement, toolTipFromElement, js_deserializeBuffer,
deserializeBuffer, js_serializeObject, serializeObject,
js_setUsesOverlayScrollbars, setUsesOverlayScrollbars,
js_forceReload, forceReload, js_simulateAudioInterruption,
simulateAudioInterruption, js_mediaElementHasCharacteristic,
mediaElementHasCharacteristic, js_initializeMockCDM,
initializeMockCDM, js_enableMockSpeechSynthesizer,
enableMockSpeechSynthesizer, js_getImageSourceURL,
getImageSourceURL, js_captionsStyleSheetOverride,
captionsStyleSheetOverride, js_setCaptionsStyleSheetOverride,
setCaptionsStyleSheetOverride,
js_setPrimaryAudioTrackLanguageOverride,
setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode,
setCaptionDisplayMode, js_createTimeRanges, createTimeRanges,
js_closestTimeToTimeRanges, closestTimeToTimeRanges,
js_isSelectPopupVisible, isSelectPopupVisible, js_isVibrating,
isVibrating, js_isPluginUnavailabilityIndicatorObscured,
isPluginUnavailabilityIndicatorObscured, js_isPluginSnapshotted,
isPluginSnapshotted, js_selectionBounds, selectionBounds,
js_initializeMockMediaSource, initializeMockMediaSource,
js_bufferedSamplesForTrackID, bufferedSamplesForTrackID,
js_beginMediaSessionInterruption, beginMediaSessionInterruption,
js_endMediaSessionInterruption, endMediaSessionInterruption,
js_applicationWillEnterForeground, applicationWillEnterForeground,
js_applicationWillEnterBackground, applicationWillEnterBackground,
js_setMediaSessionRestrictions, setMediaSessionRestrictions,
js_postRemoteControlCommand, postRemoteControlCommand,
js_simulateSystemSleep, simulateSystemSleep, js_simulateSystemWake,
simulateSystemWake, js_elementIsBlockingDisplaySleep,
elementIsBlockingDisplaySleep, js_installMockPageOverlay,
installMockPageOverlay, js_pageOverlayLayerTreeAsText,
pageOverlayLayerTreeAsText, js_setPageMuted, setPageMuted,
js_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, js_getSettings,
getSettings, js_getWorkerThreadCount, getWorkerThreadCount,
js_getConsoleProfiles, getConsoleProfiles, Internals,
castToInternals, gTypeInternals)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import Data.Typeable (Typeable)
import GHCJS.Types (JSRef(..), JSString, castRef)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..))
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.Enums
foreign import javascript unsafe "$1[\"address\"]($2)" js_address
:: JSRef Internals -> JSRef Node -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation>
address ::
(MonadIO m, IsNode node, FromJSString result) =>
Internals -> Maybe node -> m result
address self node
= liftIO
(fromJSString <$>
(js_address (unInternals self)
(maybe jsNull (unNode . toNode) node)))
foreign import javascript unsafe
"($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)"
js_nodeNeedsStyleRecalc :: JSRef Internals -> JSRef Node -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation>
nodeNeedsStyleRecalc ::
(MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool
nodeNeedsStyleRecalc self node
= liftIO
(js_nodeNeedsStyleRecalc (unInternals self)
(maybe jsNull (unNode . toNode) node))
foreign import javascript unsafe "$1[\"description\"]($2)"
js_description :: JSRef Internals -> JSRef a -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation>
description ::
(MonadIO m, FromJSString result) =>
Internals -> JSRef a -> m result
description self value
= liftIO
(fromJSString <$> (js_description (unInternals self) value))
foreign import javascript unsafe
"($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)"
js_hasPausedImageAnimations ::
JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation>
hasPausedImageAnimations ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m Bool
hasPausedImageAnimations self element
= liftIO
(js_hasPausedImageAnimations (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation>
elementRenderTreeAsText ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
elementRenderTreeAsText self element
= liftIO
(fromJSString <$>
(js_elementRenderTreeAsText (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe
"($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded ::
JSRef Internals -> JSString -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation>
isPreloaded ::
(MonadIO m, ToJSString url) => Internals -> url -> m Bool
isPreloaded self url
= liftIO (js_isPreloaded (unInternals self) (toJSString url))
foreign import javascript unsafe
"($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)"
js_isLoadingFromMemoryCache ::
JSRef Internals -> JSString -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation>
isLoadingFromMemoryCache ::
(MonadIO m, ToJSString url) => Internals -> url -> m Bool
isLoadingFromMemoryCache self url
= liftIO
(js_isLoadingFromMemoryCache (unInternals self) (toJSString url))
foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)"
js_xhrResponseSource ::
JSRef Internals -> JSRef XMLHttpRequest -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation>
xhrResponseSource ::
(MonadIO m, FromJSString result) =>
Internals -> Maybe XMLHttpRequest -> m result
xhrResponseSource self xhr
= liftIO
(fromJSString <$>
(js_xhrResponseSource (unInternals self)
(maybe jsNull pToJSRef xhr)))
foreign import javascript unsafe "$1[\"clearMemoryCache\"]()"
js_clearMemoryCache :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation>
clearMemoryCache :: (MonadIO m) => Internals -> m ()
clearMemoryCache self
= liftIO (js_clearMemoryCache (unInternals self))
foreign import javascript unsafe
"$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize ::
JSRef Internals -> Int -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation>
pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m ()
pruneMemoryCacheToSize self size
= liftIO (js_pruneMemoryCacheToSize (unInternals self) size)
foreign import javascript unsafe "$1[\"memoryCacheSize\"]()"
js_memoryCacheSize :: JSRef Internals -> IO Int
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation>
memoryCacheSize :: (MonadIO m) => Internals -> m Int
memoryCacheSize self
= liftIO (js_memoryCacheSize (unInternals self))
foreign import javascript unsafe "$1[\"clearPageCache\"]()"
js_clearPageCache :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation>
clearPageCache :: (MonadIO m) => Internals -> m ()
clearPageCache self = liftIO (js_clearPageCache (unInternals self))
foreign import javascript unsafe "$1[\"pageCacheSize\"]()"
js_pageCacheSize :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation>
pageCacheSize :: (MonadIO m) => Internals -> m Word
pageCacheSize self = liftIO (js_pageCacheSize (unInternals self))
foreign import javascript unsafe
"$1[\"computedStyleIncludingVisitedInfo\"]($2)"
js_computedStyleIncludingVisitedInfo ::
JSRef Internals -> JSRef Node -> IO (JSRef CSSStyleDeclaration)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation>
computedStyleIncludingVisitedInfo ::
(MonadIO m, IsNode node) =>
Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)
computedStyleIncludingVisitedInfo self node
= liftIO
((js_computedStyleIncludingVisitedInfo (unInternals self)
(maybe jsNull (unNode . toNode) node))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)"
js_ensureShadowRoot ::
JSRef Internals -> JSRef Element -> IO (JSRef Node)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation>
ensureShadowRoot ::
(MonadIO m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
ensureShadowRoot self host
= liftIO
((js_ensureShadowRoot (unInternals self)
(maybe jsNull (unElement . toElement) host))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)"
js_createShadowRoot ::
JSRef Internals -> JSRef Element -> IO (JSRef Node)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation>
createShadowRoot ::
(MonadIO m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
createShadowRoot self host
= liftIO
((js_createShadowRoot (unInternals self)
(maybe jsNull (unElement . toElement) host))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"shadowRoot\"]($2)"
js_shadowRoot ::
JSRef Internals -> JSRef Element -> IO (JSRef Node)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation>
shadowRoot ::
(MonadIO m, IsElement host) =>
Internals -> Maybe host -> m (Maybe Node)
shadowRoot self host
= liftIO
((js_shadowRoot (unInternals self)
(maybe jsNull (unElement . toElement) host))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"shadowRootType\"]($2)"
js_shadowRootType :: JSRef Internals -> JSRef Node -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation>
shadowRootType ::
(MonadIO m, IsNode root, FromJSString result) =>
Internals -> Maybe root -> m result
shadowRootType self root
= liftIO
(fromJSString <$>
(js_shadowRootType (unInternals self)
(maybe jsNull (unNode . toNode) root)))
foreign import javascript unsafe "$1[\"includerFor\"]($2)"
js_includerFor ::
JSRef Internals -> JSRef Node -> IO (JSRef Element)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation>
includerFor ::
(MonadIO m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Element)
includerFor self node
= liftIO
((js_includerFor (unInternals self)
(maybe jsNull (unNode . toNode) node))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)"
js_shadowPseudoId ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation>
shadowPseudoId ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
shadowPseudoId self element
= liftIO
(fromJSString <$>
(js_shadowPseudoId (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe
"$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId ::
JSRef Internals -> JSRef Element -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation>
setShadowPseudoId ::
(MonadIO m, IsElement element, ToJSString id) =>
Internals -> Maybe element -> id -> m ()
setShadowPseudoId self element id
= liftIO
(js_setShadowPseudoId (unInternals self)
(maybe jsNull (unElement . toElement) element)
(toJSString id))
foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)"
js_treeScopeRootNode ::
JSRef Internals -> JSRef Node -> IO (JSRef Node)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation>
treeScopeRootNode ::
(MonadIO m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Node)
treeScopeRootNode self node
= liftIO
((js_treeScopeRootNode (unInternals self)
(maybe jsNull (unNode . toNode) node))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)"
js_parentTreeScope ::
JSRef Internals -> JSRef Node -> IO (JSRef Node)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation>
parentTreeScope ::
(MonadIO m, IsNode node) =>
Internals -> Maybe node -> m (Maybe Node)
parentTreeScope self node
= liftIO
((js_parentTreeScope (unInternals self)
(maybe jsNull (unNode . toNode) node))
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"lastSpatialNavigationCandidateCount\"]()"
js_lastSpatialNavigationCandidateCount ::
JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation>
lastSpatialNavigationCandidateCount ::
(MonadIO m) => Internals -> m Word
lastSpatialNavigationCandidateCount self
= liftIO
(js_lastSpatialNavigationCandidateCount (unInternals self))
foreign import javascript unsafe
"$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations ::
JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation>
numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word
numberOfActiveAnimations self
= liftIO (js_numberOfActiveAnimations (unInternals self))
foreign import javascript unsafe "$1[\"suspendAnimations\"]()"
js_suspendAnimations :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation>
suspendAnimations :: (MonadIO m) => Internals -> m ()
suspendAnimations self
= liftIO (js_suspendAnimations (unInternals self))
foreign import javascript unsafe "$1[\"resumeAnimations\"]()"
js_resumeAnimations :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation>
resumeAnimations :: (MonadIO m) => Internals -> m ()
resumeAnimations self
= liftIO (js_resumeAnimations (unInternals self))
foreign import javascript unsafe
"($1[\"animationsAreSuspended\"]() ? 1 : 0)"
js_animationsAreSuspended :: JSRef Internals -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation>
animationsAreSuspended :: (MonadIO m) => Internals -> m Bool
animationsAreSuspended self
= liftIO (js_animationsAreSuspended (unInternals self))
foreign import javascript unsafe
"($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"
js_pauseAnimationAtTimeOnElement ::
JSRef Internals -> JSString -> Double -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation>
pauseAnimationAtTimeOnElement ::
(MonadIO m, ToJSString animationName, IsElement element) =>
Internals -> animationName -> Double -> Maybe element -> m Bool
pauseAnimationAtTimeOnElement self animationName pauseTime element
= liftIO
(js_pauseAnimationAtTimeOnElement (unInternals self)
(toJSString animationName)
pauseTime
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"
js_pauseAnimationAtTimeOnPseudoElement ::
JSRef Internals ->
JSString -> Double -> JSRef Element -> JSString -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation>
pauseAnimationAtTimeOnPseudoElement ::
(MonadIO m, ToJSString animationName, IsElement element,
ToJSString pseudoId) =>
Internals ->
animationName ->
Double -> Maybe element -> pseudoId -> m Bool
pauseAnimationAtTimeOnPseudoElement self animationName pauseTime
element pseudoId
= liftIO
(js_pauseAnimationAtTimeOnPseudoElement (unInternals self)
(toJSString animationName)
pauseTime
(maybe jsNull (unElement . toElement) element)
(toJSString pseudoId))
foreign import javascript unsafe
"($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"
js_pauseTransitionAtTimeOnElement ::
JSRef Internals -> JSString -> Double -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation>
pauseTransitionAtTimeOnElement ::
(MonadIO m, ToJSString propertyName, IsElement element) =>
Internals -> propertyName -> Double -> Maybe element -> m Bool
pauseTransitionAtTimeOnElement self propertyName pauseTime element
= liftIO
(js_pauseTransitionAtTimeOnElement (unInternals self)
(toJSString propertyName)
pauseTime
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"
js_pauseTransitionAtTimeOnPseudoElement ::
JSRef Internals ->
JSString -> Double -> JSRef Element -> JSString -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation>
pauseTransitionAtTimeOnPseudoElement ::
(MonadIO m, ToJSString property, IsElement element,
ToJSString pseudoId) =>
Internals ->
property -> Double -> Maybe element -> pseudoId -> m Bool
pauseTransitionAtTimeOnPseudoElement self property pauseTime
element pseudoId
= liftIO
(js_pauseTransitionAtTimeOnPseudoElement (unInternals self)
(toJSString property)
pauseTime
(maybe jsNull (unElement . toElement) element)
(toJSString pseudoId))
foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)"
js_attached :: JSRef Internals -> JSRef Node -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation>
attached ::
(MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool
attached self node
= liftIO
(js_attached (unInternals self)
(maybe jsNull (unNode . toNode) node))
foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)"
js_visiblePlaceholder ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation>
visiblePlaceholder ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
visiblePlaceholder self element
= liftIO
(fromJSString <$>
(js_visiblePlaceholder (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe
"$1[\"selectColorInColorChooser\"]($2,\n$3)"
js_selectColorInColorChooser ::
JSRef Internals -> JSRef Element -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation>
selectColorInColorChooser ::
(MonadIO m, IsElement element, ToJSString colorValue) =>
Internals -> Maybe element -> colorValue -> m ()
selectColorInColorChooser self element colorValue
= liftIO
(js_selectColorInColorChooser (unInternals self)
(maybe jsNull (unElement . toElement) element)
(toJSString colorValue))
foreign import javascript unsafe
"$1[\"formControlStateOfPreviousHistoryItem\"]()"
js_formControlStateOfPreviousHistoryItem ::
JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation>
formControlStateOfPreviousHistoryItem ::
(MonadIO m, FromJSString result) => Internals -> m [result]
formControlStateOfPreviousHistoryItem self
= liftIO
((js_formControlStateOfPreviousHistoryItem (unInternals self)) >>=
fromJSRefUnchecked)
foreign import javascript unsafe
"$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)"
js_setFormControlStateOfPreviousHistoryItem ::
JSRef Internals -> JSRef [values] -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation>
setFormControlStateOfPreviousHistoryItem ::
(MonadIO m, ToJSString values) =>
Internals -> [values] -> m ()
setFormControlStateOfPreviousHistoryItem self values
= liftIO
(toJSRef values >>=
\ values' ->
js_setFormControlStateOfPreviousHistoryItem (unInternals self)
values')
foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()"
js_absoluteCaretBounds :: JSRef Internals -> IO (JSRef ClientRect)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation>
absoluteCaretBounds ::
(MonadIO m) => Internals -> m (Maybe ClientRect)
absoluteCaretBounds self
= liftIO
((js_absoluteCaretBounds (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"boundingBox\"]($2)"
js_boundingBox ::
JSRef Internals -> JSRef Element -> IO (JSRef ClientRect)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation>
boundingBox ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m (Maybe ClientRect)
boundingBox self element
= liftIO
((js_boundingBox (unInternals self)
(maybe jsNull (unElement . toElement) element))
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects ::
JSRef Internals -> IO (JSRef ClientRectList)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation>
inspectorHighlightRects ::
(MonadIO m) => Internals -> m (Maybe ClientRectList)
inspectorHighlightRects self
= liftIO
((js_inspectorHighlightRects (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe
"$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject ::
JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation>
inspectorHighlightObject ::
(MonadIO m, FromJSString result) => Internals -> m result
inspectorHighlightObject self
= liftIO
(fromJSString <$> (js_inspectorHighlightObject (unInternals self)))
foreign import javascript unsafe
"$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode ::
JSRef Internals -> JSRef Node -> JSString -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation>
markerCountForNode ::
(MonadIO m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> m Word
markerCountForNode self node markerType
= liftIO
(js_markerCountForNode (unInternals self)
(maybe jsNull (unNode . toNode) node)
(toJSString markerType))
foreign import javascript unsafe
"$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode ::
JSRef Internals ->
JSRef Node -> JSString -> Word -> IO (JSRef Range)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation>
markerRangeForNode ::
(MonadIO m, IsNode node, ToJSString markerType) =>
Internals -> Maybe node -> markerType -> Word -> m (Maybe Range)
markerRangeForNode self node markerType index
= liftIO
((js_markerRangeForNode (unInternals self)
(maybe jsNull (unNode . toNode) node)
(toJSString markerType)
index)
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"markerDescriptionForNode\"]($2,\n$3, $4)"
js_markerDescriptionForNode ::
JSRef Internals -> JSRef Node -> JSString -> Word -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation>
markerDescriptionForNode ::
(MonadIO m, IsNode node, ToJSString markerType,
FromJSString result) =>
Internals -> Maybe node -> markerType -> Word -> m result
markerDescriptionForNode self node markerType index
= liftIO
(fromJSString <$>
(js_markerDescriptionForNode (unInternals self)
(maybe jsNull (unNode . toNode) node)
(toJSString markerType)
index))
foreign import javascript unsafe
"$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker ::
JSRef Internals -> JSRef Range -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation>
addTextMatchMarker ::
(MonadIO m) => Internals -> Maybe Range -> Bool -> m ()
addTextMatchMarker self range isActive
= liftIO
(js_addTextMatchMarker (unInternals self)
(maybe jsNull pToJSRef range)
isActive)
foreign import javascript unsafe
"$1[\"setMarkedTextMatchesAreHighlighted\"]($2)"
js_setMarkedTextMatchesAreHighlighted ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation>
setMarkedTextMatchesAreHighlighted ::
(MonadIO m) => Internals -> Bool -> m ()
setMarkedTextMatchesAreHighlighted self flag
= liftIO
(js_setMarkedTextMatchesAreHighlighted (unInternals self) flag)
foreign import javascript unsafe "$1[\"invalidateFontCache\"]()"
js_invalidateFontCache :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation>
invalidateFontCache :: (MonadIO m) => Internals -> m ()
invalidateFontCache self
= liftIO (js_invalidateFontCache (unInternals self))
foreign import javascript unsafe
"$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition
:: JSRef Internals -> Int -> Int -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation>
setScrollViewPosition ::
(MonadIO m) => Internals -> Int -> Int -> m ()
setScrollViewPosition self x y
= liftIO (js_setScrollViewPosition (unInternals self) x y)
foreign import javascript unsafe
"$1[\"setPagination\"]($2, $3, $4)" js_setPagination ::
JSRef Internals -> JSString -> Int -> Int -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation>
setPagination ::
(MonadIO m, ToJSString mode) =>
Internals -> mode -> Int -> Int -> m ()
setPagination self mode gap pageLength
= liftIO
(js_setPagination (unInternals self) (toJSString mode) gap
pageLength)
foreign import javascript unsafe
"$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)"
js_configurationForViewport ::
JSRef Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation>
configurationForViewport ::
(MonadIO m, FromJSString result) =>
Internals -> Float -> Int -> Int -> Int -> Int -> m result
configurationForViewport self devicePixelRatio deviceWidth
deviceHeight availableWidth availableHeight
= liftIO
(fromJSString <$>
(js_configurationForViewport (unInternals self) devicePixelRatio
deviceWidth
deviceHeight
availableWidth
availableHeight))
foreign import javascript unsafe
"($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)"
js_wasLastChangeUserEdit ::
JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation>
wasLastChangeUserEdit ::
(MonadIO m, IsElement textField) =>
Internals -> Maybe textField -> m Bool
wasLastChangeUserEdit self textField
= liftIO
(js_wasLastChangeUserEdit (unInternals self)
(maybe jsNull (unElement . toElement) textField))
foreign import javascript unsafe
"($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)"
js_elementShouldAutoComplete ::
JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation>
elementShouldAutoComplete ::
(MonadIO m, IsElement inputElement) =>
Internals -> Maybe inputElement -> m Bool
elementShouldAutoComplete self inputElement
= liftIO
(js_elementShouldAutoComplete (unInternals self)
(maybe jsNull (unElement . toElement) inputElement))
foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)"
js_setEditingValue ::
JSRef Internals -> JSRef Element -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation>
setEditingValue ::
(MonadIO m, IsElement inputElement, ToJSString value) =>
Internals -> Maybe inputElement -> value -> m ()
setEditingValue self inputElement value
= liftIO
(js_setEditingValue (unInternals self)
(maybe jsNull (unElement . toElement) inputElement)
(toJSString value))
foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)"
js_setAutofilled ::
JSRef Internals -> JSRef Element -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation>
setAutofilled ::
(MonadIO m, IsElement inputElement) =>
Internals -> Maybe inputElement -> Bool -> m ()
setAutofilled self inputElement enabled
= liftIO
(js_setAutofilled (unInternals self)
(maybe jsNull (unElement . toElement) inputElement)
enabled)
foreign import javascript unsafe
"$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText
:: JSRef Internals -> JSString -> Word -> JSString -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation>
countMatchesForText ::
(MonadIO m, ToJSString text, ToJSString markMatches) =>
Internals -> text -> Word -> markMatches -> m Word
countMatchesForText self text findOptions markMatches
= liftIO
(js_countMatchesForText (unInternals self) (toJSString text)
findOptions
(toJSString markMatches))
foreign import javascript unsafe "$1[\"paintControlTints\"]()"
js_paintControlTints :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation>
paintControlTints :: (MonadIO m) => Internals -> m ()
paintControlTints self
= liftIO (js_paintControlTints (unInternals self))
foreign import javascript unsafe
"$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)"
js_scrollElementToRect ::
JSRef Internals ->
JSRef Element -> Int -> Int -> Int -> Int -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation>
scrollElementToRect ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> Int -> Int -> Int -> Int -> m ()
scrollElementToRect self element x y w h
= liftIO
(js_scrollElementToRect (unInternals self)
(maybe jsNull (unElement . toElement) element)
x
y
w
h)
foreign import javascript unsafe
"$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)"
js_rangeFromLocationAndLength ::
JSRef Internals -> JSRef Element -> Int -> Int -> IO (JSRef Range)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation>
rangeFromLocationAndLength ::
(MonadIO m, IsElement scope) =>
Internals -> Maybe scope -> Int -> Int -> m (Maybe Range)
rangeFromLocationAndLength self scope rangeLocation rangeLength
= liftIO
((js_rangeFromLocationAndLength (unInternals self)
(maybe jsNull (unElement . toElement) scope)
rangeLocation
rangeLength)
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"locationFromRange\"]($2, $3)" js_locationFromRange ::
JSRef Internals -> JSRef Element -> JSRef Range -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation>
locationFromRange ::
(MonadIO m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m Word
locationFromRange self scope range
= liftIO
(js_locationFromRange (unInternals self)
(maybe jsNull (unElement . toElement) scope)
(maybe jsNull pToJSRef range))
foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)"
js_lengthFromRange ::
JSRef Internals -> JSRef Element -> JSRef Range -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation>
lengthFromRange ::
(MonadIO m, IsElement scope) =>
Internals -> Maybe scope -> Maybe Range -> m Word
lengthFromRange self scope range
= liftIO
(js_lengthFromRange (unInternals self)
(maybe jsNull (unElement . toElement) scope)
(maybe jsNull pToJSRef range))
foreign import javascript unsafe "$1[\"rangeAsText\"]($2)"
js_rangeAsText :: JSRef Internals -> JSRef Range -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation>
rangeAsText ::
(MonadIO m, FromJSString result) =>
Internals -> Maybe Range -> m result
rangeAsText self range
= liftIO
(fromJSString <$>
(js_rangeAsText (unInternals self) (maybe jsNull pToJSRef range)))
foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)"
js_subrange ::
JSRef Internals -> JSRef Range -> Int -> Int -> IO (JSRef Range)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation>
subrange ::
(MonadIO m) =>
Internals -> Maybe Range -> Int -> Int -> m (Maybe Range)
subrange self range rangeLocation rangeLength
= liftIO
((js_subrange (unInternals self) (maybe jsNull pToJSRef range)
rangeLocation
rangeLength)
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)"
js_rangeForDictionaryLookupAtLocation ::
JSRef Internals -> Int -> Int -> IO (JSRef Range)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation>
rangeForDictionaryLookupAtLocation ::
(MonadIO m) => Internals -> Int -> Int -> m (Maybe Range)
rangeForDictionaryLookupAtLocation self x y
= liftIO
((js_rangeForDictionaryLookupAtLocation (unInternals self) x y) >>=
fromJSRef)
foreign import javascript unsafe
"$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation>
setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m ()
setDelegatesScrolling self enabled
= liftIO (js_setDelegatesScrolling (unInternals self) enabled)
foreign import javascript unsafe
"$1[\"lastSpellCheckRequestSequence\"]()"
js_lastSpellCheckRequestSequence :: JSRef Internals -> IO Int
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation>
lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int
lastSpellCheckRequestSequence self
= liftIO (js_lastSpellCheckRequestSequence (unInternals self))
foreign import javascript unsafe
"$1[\"lastSpellCheckProcessedSequence\"]()"
js_lastSpellCheckProcessedSequence :: JSRef Internals -> IO Int
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation>
lastSpellCheckProcessedSequence ::
(MonadIO m) => Internals -> m Int
lastSpellCheckProcessedSequence self
= liftIO (js_lastSpellCheckProcessedSequence (unInternals self))
foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()"
js_userPreferredLanguages :: JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation>
userPreferredLanguages ::
(MonadIO m, FromJSString result) => Internals -> m [result]
userPreferredLanguages self
= liftIO
((js_userPreferredLanguages (unInternals self)) >>=
fromJSRefUnchecked)
foreign import javascript unsafe
"$1[\"setUserPreferredLanguages\"]($2)"
js_setUserPreferredLanguages ::
JSRef Internals -> JSRef [languages] -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation>
setUserPreferredLanguages ::
(MonadIO m, ToJSString languages) =>
Internals -> [languages] -> m ()
setUserPreferredLanguages self languages
= liftIO
(toJSRef languages >>=
\ languages' ->
js_setUserPreferredLanguages (unInternals self) languages')
foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()"
js_wheelEventHandlerCount :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation>
wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word
wheelEventHandlerCount self
= liftIO (js_wheelEventHandlerCount (unInternals self))
foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()"
js_touchEventHandlerCount :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation>
touchEventHandlerCount :: (MonadIO m) => Internals -> m Word
touchEventHandlerCount self
= liftIO (js_touchEventHandlerCount (unInternals self))
foreign import javascript unsafe
"$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)"
js_nodesFromRect ::
JSRef Internals ->
JSRef Document ->
Int ->
Int ->
Word ->
Word -> Word -> Word -> Bool -> Bool -> Bool -> IO (JSRef NodeList)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation>
nodesFromRect ::
(MonadIO 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
= liftIO
((js_nodesFromRect (unInternals self)
(maybe jsNull (unDocument . toDocument) document)
x
y
topPadding
rightPadding
bottomPadding
leftPadding
ignoreClipping
allowShadowContent
allowChildFrameContent)
>>= fromJSRef)
foreign import javascript unsafe "$1[\"parserMetaData\"]($2)"
js_parserMetaData :: JSRef Internals -> JSRef a -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation>
parserMetaData ::
(MonadIO m, FromJSString result) =>
Internals -> JSRef a -> m result
parserMetaData self func
= liftIO
(fromJSString <$> (js_parserMetaData (unInternals self) func))
foreign import javascript unsafe
"$1[\"updateEditorUINowIfScheduled\"]()"
js_updateEditorUINowIfScheduled :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation>
updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m ()
updateEditorUINowIfScheduled self
= liftIO (js_updateEditorUINowIfScheduled (unInternals self))
foreign import javascript unsafe
"($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker
:: JSRef Internals -> Int -> Int -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation>
hasSpellingMarker ::
(MonadIO m) => Internals -> Int -> Int -> m Bool
hasSpellingMarker self from length
= liftIO (js_hasSpellingMarker (unInternals self) from length)
foreign import javascript unsafe
"($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker
:: JSRef Internals -> Int -> Int -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation>
hasGrammarMarker ::
(MonadIO m) => Internals -> Int -> Int -> m Bool
hasGrammarMarker self from length
= liftIO (js_hasGrammarMarker (unInternals self) from length)
foreign import javascript unsafe
"($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)"
js_hasAutocorrectedMarker ::
JSRef Internals -> Int -> Int -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation>
hasAutocorrectedMarker ::
(MonadIO m) => Internals -> Int -> Int -> m Bool
hasAutocorrectedMarker self from length
= liftIO (js_hasAutocorrectedMarker (unInternals self) from length)
foreign import javascript unsafe
"$1[\"setContinuousSpellCheckingEnabled\"]($2)"
js_setContinuousSpellCheckingEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation>
setContinuousSpellCheckingEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setContinuousSpellCheckingEnabled self enabled
= liftIO
(js_setContinuousSpellCheckingEnabled (unInternals self) enabled)
foreign import javascript unsafe
"$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)"
js_setAutomaticQuoteSubstitutionEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation>
setAutomaticQuoteSubstitutionEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setAutomaticQuoteSubstitutionEnabled self enabled
= liftIO
(js_setAutomaticQuoteSubstitutionEnabled (unInternals self)
enabled)
foreign import javascript unsafe
"$1[\"setAutomaticLinkDetectionEnabled\"]($2)"
js_setAutomaticLinkDetectionEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation>
setAutomaticLinkDetectionEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setAutomaticLinkDetectionEnabled self enabled
= liftIO
(js_setAutomaticLinkDetectionEnabled (unInternals self) enabled)
foreign import javascript unsafe
"$1[\"setAutomaticDashSubstitutionEnabled\"]($2)"
js_setAutomaticDashSubstitutionEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation>
setAutomaticDashSubstitutionEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setAutomaticDashSubstitutionEnabled self enabled
= liftIO
(js_setAutomaticDashSubstitutionEnabled (unInternals self) enabled)
foreign import javascript unsafe
"$1[\"setAutomaticTextReplacementEnabled\"]($2)"
js_setAutomaticTextReplacementEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation>
setAutomaticTextReplacementEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setAutomaticTextReplacementEnabled self enabled
= liftIO
(js_setAutomaticTextReplacementEnabled (unInternals self) enabled)
foreign import javascript unsafe
"$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)"
js_setAutomaticSpellingCorrectionEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation>
setAutomaticSpellingCorrectionEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setAutomaticSpellingCorrectionEnabled self enabled
= liftIO
(js_setAutomaticSpellingCorrectionEnabled (unInternals self)
enabled)
foreign import javascript unsafe
"($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)"
js_isOverwriteModeEnabled :: JSRef Internals -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation>
isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool
isOverwriteModeEnabled self
= liftIO (js_isOverwriteModeEnabled (unInternals self))
foreign import javascript unsafe
"$1[\"toggleOverwriteModeEnabled\"]()"
js_toggleOverwriteModeEnabled :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation>
toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m ()
toggleOverwriteModeEnabled self
= liftIO (js_toggleOverwriteModeEnabled (unInternals self))
foreign import javascript unsafe
"$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas ::
JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation>
numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word
numberOfScrollableAreas self
= liftIO (js_numberOfScrollableAreas (unInternals self))
foreign import javascript unsafe
"($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible ::
JSRef Internals -> Int -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation>
isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool
isPageBoxVisible self pageNumber
= liftIO (js_isPageBoxVisible (unInternals self) pageNumber)
foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)"
js_layerTreeAsText ::
JSRef Internals -> JSRef Document -> Word -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation>
layerTreeAsText ::
(MonadIO m, IsDocument document, FromJSString result) =>
Internals -> Maybe document -> Word -> m result
layerTreeAsText self document flags
= liftIO
(fromJSString <$>
(js_layerTreeAsText (unInternals self)
(maybe jsNull (unDocument . toDocument) document)
flags))
foreign import javascript unsafe
"$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText ::
JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation>
scrollingStateTreeAsText ::
(MonadIO m, FromJSString result) => Internals -> m result
scrollingStateTreeAsText self
= liftIO
(fromJSString <$> (js_scrollingStateTreeAsText (unInternals self)))
foreign import javascript unsafe
"$1[\"mainThreadScrollingReasons\"]()"
js_mainThreadScrollingReasons :: JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation>
mainThreadScrollingReasons ::
(MonadIO m, FromJSString result) => Internals -> m result
mainThreadScrollingReasons self
= liftIO
(fromJSString <$>
(js_mainThreadScrollingReasons (unInternals self)))
foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()"
js_nonFastScrollableRects ::
JSRef Internals -> IO (JSRef ClientRectList)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation>
nonFastScrollableRects ::
(MonadIO m) => Internals -> m (Maybe ClientRectList)
nonFastScrollableRects self
= liftIO
((js_nonFastScrollableRects (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()"
js_repaintRectsAsText :: JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation>
repaintRectsAsText ::
(MonadIO m, FromJSString result) => Internals -> m result
repaintRectsAsText self
= liftIO
(fromJSString <$> (js_repaintRectsAsText (unInternals self)))
foreign import javascript unsafe
"$1[\"garbageCollectDocumentResources\"]()"
js_garbageCollectDocumentResources :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation>
garbageCollectDocumentResources :: (MonadIO m) => Internals -> m ()
garbageCollectDocumentResources self
= liftIO (js_garbageCollectDocumentResources (unInternals self))
foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()"
js_allowRoundingHacks :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation>
allowRoundingHacks :: (MonadIO m) => Internals -> m ()
allowRoundingHacks self
= liftIO (js_allowRoundingHacks (unInternals self))
foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)"
js_insertAuthorCSS :: JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation>
insertAuthorCSS ::
(MonadIO m, ToJSString css) => Internals -> css -> m ()
insertAuthorCSS self css
= liftIO (js_insertAuthorCSS (unInternals self) (toJSString css))
foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)"
js_insertUserCSS :: JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation>
insertUserCSS ::
(MonadIO m, ToJSString css) => Internals -> css -> m ()
insertUserCSS self css
= liftIO (js_insertUserCSS (unInternals self) (toJSString css))
foreign import javascript unsafe
"$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus
::
JSRef Internals ->
JSString -> Bool -> Double -> Double -> Double -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation>
setBatteryStatus ::
(MonadIO m, ToJSString eventType) =>
Internals ->
eventType -> Bool -> Double -> Double -> Double -> m ()
setBatteryStatus self eventType charging chargingTime
dischargingTime level
= liftIO
(js_setBatteryStatus (unInternals self) (toJSString eventType)
charging
chargingTime
dischargingTime
level)
foreign import javascript unsafe
"$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity
::
JSRef Internals -> JSString -> Double -> Double -> Double -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation>
setDeviceProximity ::
(MonadIO m, ToJSString eventType) =>
Internals -> eventType -> Double -> Double -> Double -> m ()
setDeviceProximity self eventType value min max
= liftIO
(js_setDeviceProximity (unInternals self) (toJSString eventType)
value
min
max)
foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()"
js_numberOfLiveNodes :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation>
numberOfLiveNodes :: (MonadIO m) => Internals -> m Word
numberOfLiveNodes self
= liftIO (js_numberOfLiveNodes (unInternals self))
foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()"
js_numberOfLiveDocuments :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation>
numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word
numberOfLiveDocuments self
= liftIO (js_numberOfLiveDocuments (unInternals self))
foreign import javascript unsafe
"$1[\"consoleMessageArgumentCounts\"]()"
js_consoleMessageArgumentCounts ::
JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation>
consoleMessageArgumentCounts ::
(MonadIO m, FromJSString result) => Internals -> m [result]
consoleMessageArgumentCounts self
= liftIO
((js_consoleMessageArgumentCounts (unInternals self)) >>=
fromJSRefUnchecked)
foreign import javascript unsafe
"$1[\"openDummyInspectorFrontend\"]($2)"
js_openDummyInspectorFrontend ::
JSRef Internals -> JSString -> IO (JSRef Window)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation>
openDummyInspectorFrontend ::
(MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window)
openDummyInspectorFrontend self url
= liftIO
((js_openDummyInspectorFrontend (unInternals self)
(toJSString url))
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"closeDummyInspectorFrontend\"]()"
js_closeDummyInspectorFrontend :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation>
closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m ()
closeDummyInspectorFrontend self
= liftIO (js_closeDummyInspectorFrontend (unInternals self))
foreign import javascript unsafe
"$1[\"setJavaScriptProfilingEnabled\"]($2)"
js_setJavaScriptProfilingEnabled ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation>
setJavaScriptProfilingEnabled ::
(MonadIO m) => Internals -> Bool -> m ()
setJavaScriptProfilingEnabled self creates
= liftIO
(js_setJavaScriptProfilingEnabled (unInternals self) creates)
foreign import javascript unsafe
"$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest ::
JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation>
setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m ()
setInspectorIsUnderTest self isUnderTest
= liftIO
(js_setInspectorIsUnderTest (unInternals self) isUnderTest)
foreign import javascript unsafe "$1[\"counterValue\"]($2)"
js_counterValue :: JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation>
counterValue ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
counterValue self element
= liftIO
(fromJSString <$>
(js_counterValue (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)"
js_pageNumber ::
JSRef Internals -> JSRef Element -> Float -> Float -> IO Int
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation>
pageNumber ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> Float -> Float -> m Int
pageNumber self element pageWidth pageHeight
= liftIO
(js_pageNumber (unInternals self)
(maybe jsNull (unElement . toElement) element)
pageWidth
pageHeight)
foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()"
js_shortcutIconURLs :: JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation>
shortcutIconURLs ::
(MonadIO m, FromJSString result) => Internals -> m [result]
shortcutIconURLs self
= liftIO
((js_shortcutIconURLs (unInternals self)) >>= fromJSRefUnchecked)
foreign import javascript unsafe "$1[\"allIconURLs\"]()"
js_allIconURLs :: JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation>
allIconURLs ::
(MonadIO m, FromJSString result) => Internals -> m [result]
allIconURLs self
= liftIO
((js_allIconURLs (unInternals self)) >>= fromJSRefUnchecked)
foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)"
js_numberOfPages :: JSRef Internals -> Double -> Double -> IO Int
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation>
numberOfPages ::
(MonadIO m) => Internals -> Double -> Double -> m Int
numberOfPages self pageWidthInPixels pageHeightInPixels
= liftIO
(js_numberOfPages (unInternals self) pageWidthInPixels
pageHeightInPixels)
foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)"
js_pageProperty ::
JSRef Internals -> JSString -> Int -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation>
pageProperty ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
Internals -> propertyName -> Int -> m result
pageProperty self propertyName pageNumber
= liftIO
(fromJSString <$>
(js_pageProperty (unInternals self) (toJSString propertyName)
pageNumber))
foreign import javascript unsafe
"$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)"
js_pageSizeAndMarginsInPixels ::
JSRef Internals ->
Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation>
pageSizeAndMarginsInPixels ::
(MonadIO m, FromJSString result) =>
Internals ->
Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result
pageSizeAndMarginsInPixels self pageIndex width height marginTop
marginRight marginBottom marginLeft
= liftIO
(fromJSString <$>
(js_pageSizeAndMarginsInPixels (unInternals self) pageIndex width
height
marginTop
marginRight
marginBottom
marginLeft))
foreign import javascript unsafe
"$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor ::
JSRef Internals -> Float -> Int -> Int -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation>
setPageScaleFactor ::
(MonadIO m) => Internals -> Float -> Int -> Int -> m ()
setPageScaleFactor self scaleFactor x y
= liftIO (js_setPageScaleFactor (unInternals self) scaleFactor x y)
foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)"
js_setPageZoomFactor :: JSRef Internals -> Float -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation>
setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m ()
setPageZoomFactor self zoomFactor
= liftIO (js_setPageZoomFactor (unInternals self) zoomFactor)
foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)"
js_setHeaderHeight :: JSRef Internals -> Float -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation>
setHeaderHeight :: (MonadIO m) => Internals -> Float -> m ()
setHeaderHeight self height
= liftIO (js_setHeaderHeight (unInternals self) height)
foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)"
js_setFooterHeight :: JSRef Internals -> Float -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation>
setFooterHeight :: (MonadIO m) => Internals -> Float -> m ()
setFooterHeight self height
= liftIO (js_setFooterHeight (unInternals self) height)
foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)"
js_setTopContentInset :: JSRef Internals -> Float -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation>
setTopContentInset :: (MonadIO m) => Internals -> Float -> m ()
setTopContentInset self contentInset
= liftIO (js_setTopContentInset (unInternals self) contentInset)
foreign import javascript unsafe
"$1[\"webkitWillEnterFullScreenForElement\"]($2)"
js_webkitWillEnterFullScreenForElement ::
JSRef Internals -> JSRef Element -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation>
webkitWillEnterFullScreenForElement ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitWillEnterFullScreenForElement self element
= liftIO
(js_webkitWillEnterFullScreenForElement (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"webkitDidEnterFullScreenForElement\"]($2)"
js_webkitDidEnterFullScreenForElement ::
JSRef Internals -> JSRef Element -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation>
webkitDidEnterFullScreenForElement ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitDidEnterFullScreenForElement self element
= liftIO
(js_webkitDidEnterFullScreenForElement (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"webkitWillExitFullScreenForElement\"]($2)"
js_webkitWillExitFullScreenForElement ::
JSRef Internals -> JSRef Element -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation>
webkitWillExitFullScreenForElement ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitWillExitFullScreenForElement self element
= liftIO
(js_webkitWillExitFullScreenForElement (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"webkitDidExitFullScreenForElement\"]($2)"
js_webkitDidExitFullScreenForElement ::
JSRef Internals -> JSRef Element -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation>
webkitDidExitFullScreenForElement ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m ()
webkitDidExitFullScreenForElement self element
= liftIO
(js_webkitDidExitFullScreenForElement (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"setApplicationCacheOriginQuota\"]($2)"
js_setApplicationCacheOriginQuota ::
JSRef Internals -> Double -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation>
setApplicationCacheOriginQuota ::
(MonadIO m) => Internals -> Word64 -> m ()
setApplicationCacheOriginQuota self quota
= liftIO
(js_setApplicationCacheOriginQuota (unInternals self)
(fromIntegral quota))
foreign import javascript unsafe
"$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)"
js_registerURLSchemeAsBypassingContentSecurityPolicy ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation>
registerURLSchemeAsBypassingContentSecurityPolicy ::
(MonadIO m, ToJSString scheme) =>
Internals -> scheme -> m ()
registerURLSchemeAsBypassingContentSecurityPolicy self scheme
= liftIO
(js_registerURLSchemeAsBypassingContentSecurityPolicy
(unInternals self)
(toJSString scheme))
foreign import javascript unsafe
"$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)"
js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation>
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::
(MonadIO m, ToJSString scheme) =>
Internals -> scheme -> m ()
removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self
scheme
= liftIO
(js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy
(unInternals self)
(toJSString scheme))
foreign import javascript unsafe "$1[\"mallocStatistics\"]()"
js_mallocStatistics ::
JSRef Internals -> IO (JSRef MallocStatistics)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation>
mallocStatistics ::
(MonadIO m) => Internals -> m (Maybe MallocStatistics)
mallocStatistics self
= liftIO ((js_mallocStatistics (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"typeConversions\"]()"
js_typeConversions :: JSRef Internals -> IO (JSRef TypeConversions)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation>
typeConversions ::
(MonadIO m) => Internals -> m (Maybe TypeConversions)
typeConversions self
= liftIO ((js_typeConversions (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"memoryInfo\"]()"
js_memoryInfo :: JSRef Internals -> IO (JSRef MemoryInfo)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation>
memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo)
memoryInfo self
= liftIO ((js_memoryInfo (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()"
js_getReferencedFilePaths :: JSRef Internals -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation>
getReferencedFilePaths ::
(MonadIO m, FromJSString result) => Internals -> m [result]
getReferencedFilePaths self
= liftIO
((js_getReferencedFilePaths (unInternals self)) >>=
fromJSRefUnchecked)
foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()"
js_startTrackingRepaints :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation>
startTrackingRepaints :: (MonadIO m) => Internals -> m ()
startTrackingRepaints self
= liftIO (js_startTrackingRepaints (unInternals self))
foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()"
js_stopTrackingRepaints :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation>
stopTrackingRepaints :: (MonadIO m) => Internals -> m ()
stopTrackingRepaints self
= liftIO (js_stopTrackingRepaints (unInternals self))
foreign import javascript unsafe
"($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled ::
JSRef Internals -> Int -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation>
isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool
isTimerThrottled self timerHandle
= liftIO (js_isTimerThrottled (unInternals self) timerHandle)
foreign import javascript unsafe
"$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)"
js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::
JSRef Internals -> JSRef Node -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation>
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::
(MonadIO m, IsNode node) =>
Internals -> Maybe node -> m ()
updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node
= liftIO
(js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks
(unInternals self)
(maybe jsNull (unNode . toNode) node))
foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()"
js_getCurrentCursorInfo :: JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation>
getCurrentCursorInfo ::
(MonadIO m, FromJSString result) => Internals -> m result
getCurrentCursorInfo self
= liftIO
(fromJSString <$> (js_getCurrentCursorInfo (unInternals self)))
foreign import javascript unsafe
"$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation>
markerTextForListItem ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
markerTextForListItem self element
= liftIO
(fromJSString <$>
(js_markerTextForListItem (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)"
js_toolTipFromElement ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation>
toolTipFromElement ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
toolTipFromElement self element
= liftIO
(fromJSString <$>
(js_toolTipFromElement (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)"
js_deserializeBuffer ::
JSRef Internals ->
JSRef ArrayBuffer -> IO (JSRef SerializedScriptValue)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation>
deserializeBuffer ::
(MonadIO m, IsArrayBuffer buffer) =>
Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)
deserializeBuffer self buffer
= liftIO
((js_deserializeBuffer (unInternals self)
(maybe jsNull (unArrayBuffer . toArrayBuffer) buffer))
>>= fromJSRef)
foreign import javascript unsafe "$1[\"serializeObject\"]($2)"
js_serializeObject ::
JSRef Internals ->
JSRef SerializedScriptValue -> IO (JSRef ArrayBuffer)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation>
serializeObject ::
(MonadIO m, IsSerializedScriptValue obj) =>
Internals -> Maybe obj -> m (Maybe ArrayBuffer)
serializeObject self obj
= liftIO
((js_serializeObject (unInternals self)
(maybe jsNull (unSerializedScriptValue . toSerializedScriptValue)
obj))
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars
:: JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation>
setUsesOverlayScrollbars ::
(MonadIO m) => Internals -> Bool -> m ()
setUsesOverlayScrollbars self enabled
= liftIO (js_setUsesOverlayScrollbars (unInternals self) enabled)
foreign import javascript unsafe "$1[\"forceReload\"]($2)"
js_forceReload :: JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation>
forceReload :: (MonadIO m) => Internals -> Bool -> m ()
forceReload self endToEnd
= liftIO (js_forceReload (unInternals self) endToEnd)
foreign import javascript unsafe
"$1[\"simulateAudioInterruption\"]($2)"
js_simulateAudioInterruption ::
JSRef Internals -> JSRef Node -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation>
simulateAudioInterruption ::
(MonadIO m, IsNode node) => Internals -> Maybe node -> m ()
simulateAudioInterruption self node
= liftIO
(js_simulateAudioInterruption (unInternals self)
(maybe jsNull (unNode . toNode) node))
foreign import javascript unsafe
"($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)"
js_mediaElementHasCharacteristic ::
JSRef Internals -> JSRef Node -> JSString -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation>
mediaElementHasCharacteristic ::
(MonadIO m, IsNode node, ToJSString characteristic) =>
Internals -> Maybe node -> characteristic -> m Bool
mediaElementHasCharacteristic self node characteristic
= liftIO
(js_mediaElementHasCharacteristic (unInternals self)
(maybe jsNull (unNode . toNode) node)
(toJSString characteristic))
foreign import javascript unsafe "$1[\"initializeMockCDM\"]()"
js_initializeMockCDM :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation>
initializeMockCDM :: (MonadIO m) => Internals -> m ()
initializeMockCDM self
= liftIO (js_initializeMockCDM (unInternals self))
foreign import javascript unsafe
"$1[\"enableMockSpeechSynthesizer\"]()"
js_enableMockSpeechSynthesizer :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation>
enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m ()
enableMockSpeechSynthesizer self
= liftIO (js_enableMockSpeechSynthesizer (unInternals self))
foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)"
js_getImageSourceURL ::
JSRef Internals -> JSRef Element -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation>
getImageSourceURL ::
(MonadIO m, IsElement element, FromJSString result) =>
Internals -> Maybe element -> m result
getImageSourceURL self element
= liftIO
(fromJSString <$>
(js_getImageSourceURL (unInternals self)
(maybe jsNull (unElement . toElement) element)))
foreign import javascript unsafe
"$1[\"captionsStyleSheetOverride\"]()"
js_captionsStyleSheetOverride :: JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation>
captionsStyleSheetOverride ::
(MonadIO m, FromJSString result) => Internals -> m result
captionsStyleSheetOverride self
= liftIO
(fromJSString <$>
(js_captionsStyleSheetOverride (unInternals self)))
foreign import javascript unsafe
"$1[\"setCaptionsStyleSheetOverride\"]($2)"
js_setCaptionsStyleSheetOverride ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation>
setCaptionsStyleSheetOverride ::
(MonadIO m, ToJSString override) => Internals -> override -> m ()
setCaptionsStyleSheetOverride self override
= liftIO
(js_setCaptionsStyleSheetOverride (unInternals self)
(toJSString override))
foreign import javascript unsafe
"$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)"
js_setPrimaryAudioTrackLanguageOverride ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation>
setPrimaryAudioTrackLanguageOverride ::
(MonadIO m, ToJSString language) =>
Internals -> language -> m ()
setPrimaryAudioTrackLanguageOverride self language
= liftIO
(js_setPrimaryAudioTrackLanguageOverride (unInternals self)
(toJSString language))
foreign import javascript unsafe
"$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation>
setCaptionDisplayMode ::
(MonadIO m, ToJSString mode) => Internals -> mode -> m ()
setCaptionDisplayMode self mode
= liftIO
(js_setCaptionDisplayMode (unInternals self) (toJSString mode))
foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)"
js_createTimeRanges ::
JSRef Internals ->
JSRef Float32Array -> JSRef Float32Array -> IO (JSRef TimeRanges)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation>
createTimeRanges ::
(MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>
Internals ->
Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges)
createTimeRanges self startTimes endTimes
= liftIO
((js_createTimeRanges (unInternals self)
(maybe jsNull (unFloat32Array . toFloat32Array) startTimes)
(maybe jsNull (unFloat32Array . toFloat32Array) endTimes))
>>= fromJSRef)
foreign import javascript unsafe
"$1[\"closestTimeToTimeRanges\"]($2,\n$3)"
js_closestTimeToTimeRanges ::
JSRef Internals -> Double -> JSRef TimeRanges -> IO Double
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation>
closestTimeToTimeRanges ::
(MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double
closestTimeToTimeRanges self time ranges
= liftIO
(js_closestTimeToTimeRanges (unInternals self) time
(maybe jsNull pToJSRef ranges))
foreign import javascript unsafe
"($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)"
js_isSelectPopupVisible :: JSRef Internals -> JSRef Node -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation>
isSelectPopupVisible ::
(MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool
isSelectPopupVisible self node
= liftIO
(js_isSelectPopupVisible (unInternals self)
(maybe jsNull (unNode . toNode) node))
foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)"
js_isVibrating :: JSRef Internals -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation>
isVibrating :: (MonadIO m) => Internals -> m Bool
isVibrating self = liftIO (js_isVibrating (unInternals self))
foreign import javascript unsafe
"($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)"
js_isPluginUnavailabilityIndicatorObscured ::
JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation>
isPluginUnavailabilityIndicatorObscured ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginUnavailabilityIndicatorObscured self element
= liftIO
(js_isPluginUnavailabilityIndicatorObscured (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted
:: JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation>
isPluginSnapshotted ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m Bool
isPluginSnapshotted self element
= liftIO
(js_isPluginSnapshotted (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe "$1[\"selectionBounds\"]()"
js_selectionBounds :: JSRef Internals -> IO (JSRef ClientRect)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation>
selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect)
selectionBounds self
= liftIO ((js_selectionBounds (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe
"$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource
:: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation>
initializeMockMediaSource :: (MonadIO m) => Internals -> m ()
initializeMockMediaSource self
= liftIO (js_initializeMockMediaSource (unInternals self))
foreign import javascript unsafe
"$1[\"bufferedSamplesForTrackID\"]($2,\n$3)"
js_bufferedSamplesForTrackID ::
JSRef Internals ->
JSRef SourceBuffer -> JSString -> IO (JSRef [result])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation>
bufferedSamplesForTrackID ::
(MonadIO m, ToJSString trackID, FromJSString result) =>
Internals -> Maybe SourceBuffer -> trackID -> m [result]
bufferedSamplesForTrackID self buffer trackID
= liftIO
((js_bufferedSamplesForTrackID (unInternals self)
(maybe jsNull pToJSRef buffer)
(toJSString trackID))
>>= fromJSRefUnchecked)
foreign import javascript unsafe
"$1[\"beginMediaSessionInterruption\"]()"
js_beginMediaSessionInterruption :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation>
beginMediaSessionInterruption :: (MonadIO m) => Internals -> m ()
beginMediaSessionInterruption self
= liftIO (js_beginMediaSessionInterruption (unInternals self))
foreign import javascript unsafe
"$1[\"endMediaSessionInterruption\"]($2)"
js_endMediaSessionInterruption ::
JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation>
endMediaSessionInterruption ::
(MonadIO m, ToJSString flags) => Internals -> flags -> m ()
endMediaSessionInterruption self flags
= liftIO
(js_endMediaSessionInterruption (unInternals self)
(toJSString flags))
foreign import javascript unsafe
"$1[\"applicationWillEnterForeground\"]()"
js_applicationWillEnterForeground :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation>
applicationWillEnterForeground :: (MonadIO m) => Internals -> m ()
applicationWillEnterForeground self
= liftIO (js_applicationWillEnterForeground (unInternals self))
foreign import javascript unsafe
"$1[\"applicationWillEnterBackground\"]()"
js_applicationWillEnterBackground :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation>
applicationWillEnterBackground :: (MonadIO m) => Internals -> m ()
applicationWillEnterBackground self
= liftIO (js_applicationWillEnterBackground (unInternals self))
foreign import javascript unsafe
"$1[\"setMediaSessionRestrictions\"]($2,\n$3)"
js_setMediaSessionRestrictions ::
JSRef Internals -> JSString -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation>
setMediaSessionRestrictions ::
(MonadIO m, ToJSString mediaType, ToJSString restrictions) =>
Internals -> mediaType -> restrictions -> m ()
setMediaSessionRestrictions self mediaType restrictions
= liftIO
(js_setMediaSessionRestrictions (unInternals self)
(toJSString mediaType)
(toJSString restrictions))
foreign import javascript unsafe
"$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand
:: JSRef Internals -> JSString -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation>
postRemoteControlCommand ::
(MonadIO m, ToJSString command) => Internals -> command -> m ()
postRemoteControlCommand self command
= liftIO
(js_postRemoteControlCommand (unInternals self)
(toJSString command))
foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()"
js_simulateSystemSleep :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation>
simulateSystemSleep :: (MonadIO m) => Internals -> m ()
simulateSystemSleep self
= liftIO (js_simulateSystemSleep (unInternals self))
foreign import javascript unsafe "$1[\"simulateSystemWake\"]()"
js_simulateSystemWake :: JSRef Internals -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation>
simulateSystemWake :: (MonadIO m) => Internals -> m ()
simulateSystemWake self
= liftIO (js_simulateSystemWake (unInternals self))
foreign import javascript unsafe
"($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)"
js_elementIsBlockingDisplaySleep ::
JSRef Internals -> JSRef Element -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation>
elementIsBlockingDisplaySleep ::
(MonadIO m, IsElement element) =>
Internals -> Maybe element -> m Bool
elementIsBlockingDisplaySleep self element
= liftIO
(js_elementIsBlockingDisplaySleep (unInternals self)
(maybe jsNull (unElement . toElement) element))
foreign import javascript unsafe
"$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay ::
JSRef Internals -> JSRef PageOverlayType -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation>
installMockPageOverlay ::
(MonadIO m) => Internals -> PageOverlayType -> m ()
installMockPageOverlay self type'
= liftIO
(js_installMockPageOverlay (unInternals self) (pToJSRef type'))
foreign import javascript unsafe
"$1[\"pageOverlayLayerTreeAsText\"]()"
js_pageOverlayLayerTreeAsText :: JSRef Internals -> IO JSString
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation>
pageOverlayLayerTreeAsText ::
(MonadIO m, FromJSString result) => Internals -> m result
pageOverlayLayerTreeAsText self
= liftIO
(fromJSString <$>
(js_pageOverlayLayerTreeAsText (unInternals self)))
foreign import javascript unsafe "$1[\"setPageMuted\"]($2)"
js_setPageMuted :: JSRef Internals -> Bool -> IO ()
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation>
setPageMuted :: (MonadIO m) => Internals -> Bool -> m ()
setPageMuted self muted
= liftIO (js_setPageMuted (unInternals self) muted)
foreign import javascript unsafe
"($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio ::
JSRef Internals -> IO Bool
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation>
isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool
isPagePlayingAudio self
= liftIO (js_isPagePlayingAudio (unInternals self))
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
foreign import javascript unsafe "$1[\"settings\"]" js_getSettings
:: JSRef Internals -> IO (JSRef InternalSettings)
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation>
getSettings ::
(MonadIO m) => Internals -> m (Maybe InternalSettings)
getSettings self
= liftIO ((js_getSettings (unInternals self)) >>= fromJSRef)
foreign import javascript unsafe "$1[\"workerThreadCount\"]"
js_getWorkerThreadCount :: JSRef Internals -> IO Word
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.workerThreadCount Mozilla Internals.workerThreadCount documentation>
getWorkerThreadCount :: (MonadIO m) => Internals -> m Word
getWorkerThreadCount self
= liftIO (js_getWorkerThreadCount (unInternals self))
foreign import javascript unsafe "$1[\"consoleProfiles\"]"
js_getConsoleProfiles ::
JSRef Internals -> IO (JSRef [Maybe ScriptProfile])
-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleProfiles Mozilla Internals.consoleProfiles documentation>
getConsoleProfiles ::
(MonadIO m) => Internals -> m [Maybe ScriptProfile]
getConsoleProfiles self
= liftIO
((js_getConsoleProfiles (unInternals self)) >>= fromJSRefUnchecked)