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