module GHCJS.DOM.JSFFI.Generated.Document
(js_newDocument, newDocument, js_createElement, createElement,
createElement_, createElementUnsafe, createElementUnchecked,
js_createDocumentFragment, createDocumentFragment,
createDocumentFragment_, createDocumentFragmentUnsafe,
createDocumentFragmentUnchecked, js_createTextNode, createTextNode,
createTextNode_, createTextNodeUnsafe, createTextNodeUnchecked,
js_createComment, createComment, createComment_,
createCommentUnsafe, createCommentUnchecked, js_createCDATASection,
createCDATASection, createCDATASection_, createCDATASectionUnsafe,
createCDATASectionUnchecked, js_createProcessingInstruction,
createProcessingInstruction, createProcessingInstruction_,
createProcessingInstructionUnsafe,
createProcessingInstructionUnchecked, js_createAttribute,
createAttribute, createAttribute_, createAttributeUnsafe,
createAttributeUnchecked, js_createEntityReference,
createEntityReference, createEntityReference_,
createEntityReferenceUnsafe, createEntityReferenceUnchecked,
js_getElementsByTagName, getElementsByTagName,
getElementsByTagName_, getElementsByTagNameUnsafe,
getElementsByTagNameUnchecked, js_importNode, importNode,
importNode_, importNodeUnsafe, importNodeUnchecked,
js_createElementNS, createElementNS, createElementNS_,
createElementNSUnsafe, createElementNSUnchecked,
js_createAttributeNS, createAttributeNS, createAttributeNS_,
createAttributeNSUnsafe, createAttributeNSUnchecked,
js_getElementsByTagNameNS, getElementsByTagNameNS,
getElementsByTagNameNS_, getElementsByTagNameNSUnsafe,
getElementsByTagNameNSUnchecked, js_getElementById, getElementById,
getElementById_, getElementByIdUnsafe, getElementByIdUnchecked,
js_adoptNode, adoptNode, adoptNode_, adoptNodeUnsafe,
adoptNodeUnchecked, js_createEvent, createEvent, createEvent_,
createEventUnsafe, createEventUnchecked, js_createRange,
createRange, createRange_, createRangeUnsafe, createRangeUnchecked,
js_createNodeIterator, createNodeIterator, createNodeIterator_,
createNodeIteratorUnsafe, createNodeIteratorUnchecked,
js_createTreeWalker, createTreeWalker, createTreeWalker_,
createTreeWalkerUnsafe, createTreeWalkerUnchecked,
js_getOverrideStyle, getOverrideStyle, getOverrideStyle_,
getOverrideStyleUnsafe, getOverrideStyleUnchecked,
js_createExpression, createExpression, createExpression_,
createExpressionUnsafe, createExpressionUnchecked,
js_createNSResolver, createNSResolver, createNSResolver_,
createNSResolverUnsafe, createNSResolverUnchecked, js_evaluate,
evaluate, evaluate_, evaluateUnsafe, evaluateUnchecked,
js_execCommand, execCommand, execCommand_, js_queryCommandEnabled,
queryCommandEnabled, queryCommandEnabled_, js_queryCommandIndeterm,
queryCommandIndeterm, queryCommandIndeterm_, js_queryCommandState,
queryCommandState, queryCommandState_, js_queryCommandSupported,
queryCommandSupported, queryCommandSupported_,
js_queryCommandValue, queryCommandValue, queryCommandValue_,
js_getElementsByName, getElementsByName, getElementsByName_,
getElementsByNameUnsafe, getElementsByNameUnchecked,
js_elementFromPoint, elementFromPoint, elementFromPoint_,
elementFromPointUnsafe, elementFromPointUnchecked,
js_caretRangeFromPoint, caretRangeFromPoint, caretRangeFromPoint_,
caretRangeFromPointUnsafe, caretRangeFromPointUnchecked,
js_getSelection, getSelection, getSelection_, getSelectionUnsafe,
getSelectionUnchecked, js_getCSSCanvasContext, getCSSCanvasContext,
getCSSCanvasContext_, getCSSCanvasContextUnsafe,
getCSSCanvasContextUnchecked, js_getElementsByClassName,
getElementsByClassName, getElementsByClassName_,
getElementsByClassNameUnsafe, getElementsByClassNameUnchecked,
js_hasFocus, hasFocus, hasFocus_, js_querySelector, querySelector,
querySelector_, querySelectorUnsafe, querySelectorUnchecked,
js_querySelectorAll, querySelectorAll, querySelectorAll_,
querySelectorAllUnsafe, querySelectorAllUnchecked,
js_webkitCancelFullScreen, webkitCancelFullScreen,
js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,
exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,
webkitGetNamedFlows_, webkitGetNamedFlowsUnsafe,
webkitGetNamedFlowsUnchecked, js_createTouch, createTouch,
createTouch_, createTouchUnsafe, createTouchUnchecked,
js_createTouchList, createTouchList, createTouchList_,
createTouchListUnsafe, createTouchListUnchecked, js_getDoctype,
getDoctype, getDoctypeUnsafe, getDoctypeUnchecked,
js_getImplementation, getImplementation, getImplementationUnsafe,
getImplementationUnchecked, js_getDocumentElement,
getDocumentElement, getDocumentElementUnsafe,
getDocumentElementUnchecked, js_getInputEncoding, getInputEncoding,
getInputEncodingUnsafe, getInputEncodingUnchecked,
js_getXmlEncoding, getXmlEncoding, getXmlEncodingUnsafe,
getXmlEncodingUnchecked, js_setXmlVersion, setXmlVersion,
js_getXmlVersion, getXmlVersion, getXmlVersionUnsafe,
getXmlVersionUnchecked, js_setXmlStandalone, setXmlStandalone,
js_getXmlStandalone, getXmlStandalone, js_getDocumentURI,
getDocumentURI, getDocumentURIUnsafe, getDocumentURIUnchecked,
js_getDefaultView, getDefaultView, getDefaultViewUnsafe,
getDefaultViewUnchecked, js_getStyleSheets, getStyleSheets,
getStyleSheetsUnsafe, getStyleSheetsUnchecked, js_getContentType,
getContentType, js_setTitle, setTitle, js_getTitle, getTitle,
getTitleUnsafe, getTitleUnchecked, js_getReferrer, getReferrer,
js_setDomain, setDomain, js_getDomain, getDomain, getDomainUnsafe,
getDomainUnchecked, js_getURL, getURL, js_setCookie, setCookie,
js_getCookie, getCookie, getCookieUnsafe, getCookieUnchecked,
js_setBody, setBody, js_getBody, getBody, getBodyUnsafe,
getBodyUnchecked, js_getHead, getHead, getHeadUnsafe,
getHeadUnchecked, js_getImages, getImages, getImagesUnsafe,
getImagesUnchecked, js_getApplets, getApplets, getAppletsUnsafe,
getAppletsUnchecked, js_getLinks, getLinks, getLinksUnsafe,
getLinksUnchecked, js_getForms, getForms, getFormsUnsafe,
getFormsUnchecked, js_getAnchors, getAnchors, getAnchorsUnsafe,
getAnchorsUnchecked, js_getLastModified, getLastModified,
js_setLocation, setLocation, js_getLocation, getLocation,
getLocationUnsafe, getLocationUnchecked, js_setCharset, setCharset,
js_getCharset, getCharset, getCharsetUnsafe, getCharsetUnchecked,
js_getDefaultCharset, getDefaultCharset, getDefaultCharsetUnsafe,
getDefaultCharsetUnchecked, js_getReadyState, getReadyState,
getReadyStateUnsafe, getReadyStateUnchecked, js_getCharacterSet,
getCharacterSet, getCharacterSetUnsafe, getCharacterSetUnchecked,
js_getPreferredStylesheetSet, getPreferredStylesheetSet,
getPreferredStylesheetSetUnsafe,
getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet,
setSelectedStylesheetSet, js_getSelectedStylesheetSet,
getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe,
getSelectedStylesheetSetUnchecked, js_getActiveElement,
getActiveElement, getActiveElementUnsafe,
getActiveElementUnchecked, js_getCompatMode, getCompatMode,
js_getWebkitIsFullScreen, getWebkitIsFullScreen,
js_getWebkitFullScreenKeyboardInputAllowed,
getWebkitFullScreenKeyboardInputAllowed,
js_getWebkitCurrentFullScreenElement,
getWebkitCurrentFullScreenElement,
getWebkitCurrentFullScreenElementUnsafe,
getWebkitCurrentFullScreenElementUnchecked,
js_getWebkitFullscreenEnabled, getWebkitFullscreenEnabled,
js_getWebkitFullscreenElement, getWebkitFullscreenElement,
getWebkitFullscreenElementUnsafe,
getWebkitFullscreenElementUnchecked, js_getPointerLockElement,
getPointerLockElement, getPointerLockElementUnsafe,
getPointerLockElementUnchecked, js_getFonts, getFonts,
getFontsUnsafe, getFontsUnchecked, abort, blur, change, click,
contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,
dragOver, dragStart, drop, error, focus, input, invalid, keyDown,
keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,
mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel,
readyStateChange, scroll, select, submit, wheel, beforeCut, cut,
beforeCopy, copy, beforePaste, paste, reset, search, selectStart,
selectionchange, touchStart, touchMove, touchEnd, touchCancel,
webKitFullscreenChange, webKitFullscreenError, pointerlockchange,
pointerlockerror, securitypolicyviolation, webKitWillRevealBottom,
webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,
js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,
js_getSecurityPolicy, getSecurityPolicy, getSecurityPolicyUnsafe,
getSecurityPolicyUnchecked, js_getCurrentScript, getCurrentScript,
getCurrentScriptUnsafe, getCurrentScriptUnchecked, js_getOrigin,
getOrigin, Document(..), gTypeDocument, IsDocument, toDocument)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "new window[\"Document\"]()"
js_newDocument :: IO Document
newDocument :: (MonadIO m) => m Document
newDocument = liftIO (js_newDocument)
foreign import javascript unsafe "$1[\"createElement\"]($2)"
js_createElement ::
Document -> Nullable JSString -> IO (Nullable Element)
createElement ::
(MonadIO m, IsDocument self, ToJSString tagName) =>
self -> Maybe tagName -> m (Maybe Element)
createElement self tagName
= liftIO
(nullableToMaybe <$>
(js_createElement (toDocument self) (toMaybeJSString tagName)))
createElement_ ::
(MonadIO m, IsDocument self, ToJSString tagName) =>
self -> Maybe tagName -> m ()
createElement_ self tagName
= liftIO
(void
(js_createElement (toDocument self) (toMaybeJSString tagName)))
createElementUnsafe ::
(MonadIO m, IsDocument self, ToJSString tagName, HasCallStack) =>
self -> Maybe tagName -> m Element
createElementUnsafe self tagName
= liftIO
((nullableToMaybe <$>
(js_createElement (toDocument self) (toMaybeJSString tagName)))
>>= maybe (Prelude.error "Nothing to return") return)
createElementUnchecked ::
(MonadIO m, IsDocument self, ToJSString tagName) =>
self -> Maybe tagName -> m Element
createElementUnchecked self tagName
= liftIO
(fromJust . nullableToMaybe <$>
(js_createElement (toDocument self) (toMaybeJSString tagName)))
foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"
js_createDocumentFragment ::
Document -> IO (Nullable DocumentFragment)
createDocumentFragment ::
(MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment)
createDocumentFragment self
= liftIO
(nullableToMaybe <$> (js_createDocumentFragment (toDocument self)))
createDocumentFragment_ ::
(MonadIO m, IsDocument self) => self -> m ()
createDocumentFragment_ self
= liftIO (void (js_createDocumentFragment (toDocument self)))
createDocumentFragmentUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m DocumentFragment
createDocumentFragmentUnsafe self
= liftIO
((nullableToMaybe <$>
(js_createDocumentFragment (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
createDocumentFragmentUnchecked ::
(MonadIO m, IsDocument self) => self -> m DocumentFragment
createDocumentFragmentUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_createDocumentFragment (toDocument self)))
foreign import javascript unsafe "$1[\"createTextNode\"]($2)"
js_createTextNode :: Document -> JSString -> IO (Nullable Text)
createTextNode ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe Text)
createTextNode self data'
= liftIO
(nullableToMaybe <$>
(js_createTextNode (toDocument self) (toJSString data')))
createTextNode_ ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m ()
createTextNode_ self data'
= liftIO
(void (js_createTextNode (toDocument self) (toJSString data')))
createTextNodeUnsafe ::
(MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>
self -> data' -> m Text
createTextNodeUnsafe self data'
= liftIO
((nullableToMaybe <$>
(js_createTextNode (toDocument self) (toJSString data')))
>>= maybe (Prelude.error "Nothing to return") return)
createTextNodeUnchecked ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m Text
createTextNodeUnchecked self data'
= liftIO
(fromJust . nullableToMaybe <$>
(js_createTextNode (toDocument self) (toJSString data')))
foreign import javascript unsafe "$1[\"createComment\"]($2)"
js_createComment :: Document -> JSString -> IO (Nullable Comment)
createComment ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe Comment)
createComment self data'
= liftIO
(nullableToMaybe <$>
(js_createComment (toDocument self) (toJSString data')))
createComment_ ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m ()
createComment_ self data'
= liftIO
(void (js_createComment (toDocument self) (toJSString data')))
createCommentUnsafe ::
(MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>
self -> data' -> m Comment
createCommentUnsafe self data'
= liftIO
((nullableToMaybe <$>
(js_createComment (toDocument self) (toJSString data')))
>>= maybe (Prelude.error "Nothing to return") return)
createCommentUnchecked ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m Comment
createCommentUnchecked self data'
= liftIO
(fromJust . nullableToMaybe <$>
(js_createComment (toDocument self) (toJSString data')))
foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"
js_createCDATASection ::
Document -> JSString -> IO (Nullable CDATASection)
createCDATASection ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe CDATASection)
createCDATASection self data'
= liftIO
(nullableToMaybe <$>
(js_createCDATASection (toDocument self) (toJSString data')))
createCDATASection_ ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m ()
createCDATASection_ self data'
= liftIO
(void (js_createCDATASection (toDocument self) (toJSString data')))
createCDATASectionUnsafe ::
(MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>
self -> data' -> m CDATASection
createCDATASectionUnsafe self data'
= liftIO
((nullableToMaybe <$>
(js_createCDATASection (toDocument self) (toJSString data')))
>>= maybe (Prelude.error "Nothing to return") return)
createCDATASectionUnchecked ::
(MonadIO m, IsDocument self, ToJSString data') =>
self -> data' -> m CDATASection
createCDATASectionUnchecked self data'
= liftIO
(fromJust . nullableToMaybe <$>
(js_createCDATASection (toDocument self) (toJSString data')))
foreign import javascript unsafe
"$1[\"createProcessingInstruction\"]($2,\n$3)"
js_createProcessingInstruction ::
Document ->
JSString -> JSString -> IO (Nullable ProcessingInstruction)
createProcessingInstruction ::
(MonadIO m, IsDocument self, ToJSString target,
ToJSString data') =>
self -> target -> data' -> m (Maybe ProcessingInstruction)
createProcessingInstruction self target data'
= liftIO
(nullableToMaybe <$>
(js_createProcessingInstruction (toDocument self)
(toJSString target)
(toJSString data')))
createProcessingInstruction_ ::
(MonadIO m, IsDocument self, ToJSString target,
ToJSString data') =>
self -> target -> data' -> m ()
createProcessingInstruction_ self target data'
= liftIO
(void
(js_createProcessingInstruction (toDocument self)
(toJSString target)
(toJSString data')))
createProcessingInstructionUnsafe ::
(MonadIO m, IsDocument self, ToJSString target, ToJSString data',
HasCallStack) =>
self -> target -> data' -> m ProcessingInstruction
createProcessingInstructionUnsafe self target data'
= liftIO
((nullableToMaybe <$>
(js_createProcessingInstruction (toDocument self)
(toJSString target)
(toJSString data')))
>>= maybe (Prelude.error "Nothing to return") return)
createProcessingInstructionUnchecked ::
(MonadIO m, IsDocument self, ToJSString target,
ToJSString data') =>
self -> target -> data' -> m ProcessingInstruction
createProcessingInstructionUnchecked self target data'
= liftIO
(fromJust . nullableToMaybe <$>
(js_createProcessingInstruction (toDocument self)
(toJSString target)
(toJSString data')))
foreign import javascript unsafe "$1[\"createAttribute\"]($2)"
js_createAttribute :: Document -> JSString -> IO (Nullable Attr)
createAttribute ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m (Maybe Attr)
createAttribute self name
= liftIO
(nullableToMaybe <$>
(js_createAttribute (toDocument self) (toJSString name)))
createAttribute_ ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m ()
createAttribute_ self name
= liftIO
(void (js_createAttribute (toDocument self) (toJSString name)))
createAttributeUnsafe ::
(MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>
self -> name -> m Attr
createAttributeUnsafe self name
= liftIO
((nullableToMaybe <$>
(js_createAttribute (toDocument self) (toJSString name)))
>>= maybe (Prelude.error "Nothing to return") return)
createAttributeUnchecked ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m Attr
createAttributeUnchecked self name
= liftIO
(fromJust . nullableToMaybe <$>
(js_createAttribute (toDocument self) (toJSString name)))
foreign import javascript unsafe
"$1[\"createEntityReference\"]($2)" js_createEntityReference ::
Document -> JSString -> IO (Nullable EntityReference)
createEntityReference ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m (Maybe EntityReference)
createEntityReference self name
= liftIO
(nullableToMaybe <$>
(js_createEntityReference (toDocument self) (toJSString name)))
createEntityReference_ ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m ()
createEntityReference_ self name
= liftIO
(void
(js_createEntityReference (toDocument self) (toJSString name)))
createEntityReferenceUnsafe ::
(MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>
self -> name -> m EntityReference
createEntityReferenceUnsafe self name
= liftIO
((nullableToMaybe <$>
(js_createEntityReference (toDocument self) (toJSString name)))
>>= maybe (Prelude.error "Nothing to return") return)
createEntityReferenceUnchecked ::
(MonadIO m, IsDocument self, ToJSString name) =>
self -> name -> m EntityReference
createEntityReferenceUnchecked self name
= liftIO
(fromJust . nullableToMaybe <$>
(js_createEntityReference (toDocument self) (toJSString name)))
foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"
js_getElementsByTagName ::
Document -> JSString -> IO (Nullable NodeList)
getElementsByTagName ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m (Maybe NodeList)
getElementsByTagName self tagname
= liftIO
(nullableToMaybe <$>
(js_getElementsByTagName (toDocument self) (toJSString tagname)))
getElementsByTagName_ ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m ()
getElementsByTagName_ self tagname
= liftIO
(void
(js_getElementsByTagName (toDocument self) (toJSString tagname)))
getElementsByTagNameUnsafe ::
(MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>
self -> tagname -> m NodeList
getElementsByTagNameUnsafe self tagname
= liftIO
((nullableToMaybe <$>
(js_getElementsByTagName (toDocument self) (toJSString tagname)))
>>= maybe (Prelude.error "Nothing to return") return)
getElementsByTagNameUnchecked ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m NodeList
getElementsByTagNameUnchecked self tagname
= liftIO
(fromJust . nullableToMaybe <$>
(js_getElementsByTagName (toDocument self) (toJSString tagname)))
foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"
js_importNode ::
Document -> Nullable Node -> Bool -> IO (Nullable Node)
importNode ::
(MonadIO m, IsDocument self, IsNode importedNode) =>
self -> Maybe importedNode -> Bool -> m (Maybe Node)
importNode self importedNode deep
= liftIO
(nullableToMaybe <$>
(js_importNode (toDocument self)
(maybeToNullable (fmap toNode importedNode))
deep))
importNode_ ::
(MonadIO m, IsDocument self, IsNode importedNode) =>
self -> Maybe importedNode -> Bool -> m ()
importNode_ self importedNode deep
= liftIO
(void
(js_importNode (toDocument self)
(maybeToNullable (fmap toNode importedNode))
deep))
importNodeUnsafe ::
(MonadIO m, IsDocument self, IsNode importedNode, HasCallStack) =>
self -> Maybe importedNode -> Bool -> m Node
importNodeUnsafe self importedNode deep
= liftIO
((nullableToMaybe <$>
(js_importNode (toDocument self)
(maybeToNullable (fmap toNode importedNode))
deep))
>>= maybe (Prelude.error "Nothing to return") return)
importNodeUnchecked ::
(MonadIO m, IsDocument self, IsNode importedNode) =>
self -> Maybe importedNode -> Bool -> m Node
importNodeUnchecked self importedNode deep
= liftIO
(fromJust . nullableToMaybe <$>
(js_importNode (toDocument self)
(maybeToNullable (fmap toNode importedNode))
deep))
foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"
js_createElementNS ::
Document ->
Nullable JSString -> Nullable JSString -> IO (Nullable Element)
createElementNS ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self ->
Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)
createElementNS self namespaceURI qualifiedName
= liftIO
(nullableToMaybe <$>
(js_createElementNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
createElementNS_ ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m ()
createElementNS_ self namespaceURI qualifiedName
= liftIO
(void
(js_createElementNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
createElementNSUnsafe ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName, HasCallStack) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element
createElementNSUnsafe self namespaceURI qualifiedName
= liftIO
((nullableToMaybe <$>
(js_createElementNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
>>= maybe (Prelude.error "Nothing to return") return)
createElementNSUnchecked ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element
createElementNSUnchecked self namespaceURI qualifiedName
= liftIO
(fromJust . nullableToMaybe <$>
(js_createElementNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
foreign import javascript unsafe
"$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::
Document ->
Nullable JSString -> Nullable JSString -> IO (Nullable Attr)
createAttributeNS ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)
createAttributeNS self namespaceURI qualifiedName
= liftIO
(nullableToMaybe <$>
(js_createAttributeNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
createAttributeNS_ ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m ()
createAttributeNS_ self namespaceURI qualifiedName
= liftIO
(void
(js_createAttributeNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
createAttributeNSUnsafe ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName, HasCallStack) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr
createAttributeNSUnsafe self namespaceURI qualifiedName
= liftIO
((nullableToMaybe <$>
(js_createAttributeNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
>>= maybe (Prelude.error "Nothing to return") return)
createAttributeNSUnchecked ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr
createAttributeNSUnchecked self namespaceURI qualifiedName
= liftIO
(fromJust . nullableToMaybe <$>
(js_createAttributeNS (toDocument self)
(toMaybeJSString namespaceURI)
(toMaybeJSString qualifiedName)))
foreign import javascript unsafe
"$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS
::
Document -> Nullable JSString -> JSString -> IO (Nullable NodeList)
getElementsByTagNameNS ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)
getElementsByTagNameNS self namespaceURI localName
= liftIO
(nullableToMaybe <$>
(js_getElementsByTagNameNS (toDocument self)
(toMaybeJSString namespaceURI)
(toJSString localName)))
getElementsByTagNameNS_ ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
getElementsByTagNameNS_ self namespaceURI localName
= liftIO
(void
(js_getElementsByTagNameNS (toDocument self)
(toMaybeJSString namespaceURI)
(toJSString localName)))
getElementsByTagNameNSUnsafe ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString localName, HasCallStack) =>
self -> Maybe namespaceURI -> localName -> m NodeList
getElementsByTagNameNSUnsafe self namespaceURI localName
= liftIO
((nullableToMaybe <$>
(js_getElementsByTagNameNS (toDocument self)
(toMaybeJSString namespaceURI)
(toJSString localName)))
>>= maybe (Prelude.error "Nothing to return") return)
getElementsByTagNameNSUnchecked ::
(MonadIO m, IsDocument self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m NodeList
getElementsByTagNameNSUnchecked self namespaceURI localName
= liftIO
(fromJust . nullableToMaybe <$>
(js_getElementsByTagNameNS (toDocument self)
(toMaybeJSString namespaceURI)
(toJSString localName)))
foreign import javascript unsafe "$1[\"getElementById\"]($2)"
js_getElementById :: Document -> JSString -> IO (Nullable Element)
getElementById ::
(MonadIO m, IsDocument self, ToJSString elementId) =>
self -> elementId -> m (Maybe Element)
getElementById self elementId
= liftIO
(nullableToMaybe <$>
(js_getElementById (toDocument self) (toJSString elementId)))
getElementById_ ::
(MonadIO m, IsDocument self, ToJSString elementId) =>
self -> elementId -> m ()
getElementById_ self elementId
= liftIO
(void (js_getElementById (toDocument self) (toJSString elementId)))
getElementByIdUnsafe ::
(MonadIO m, IsDocument self, ToJSString elementId, HasCallStack) =>
self -> elementId -> m Element
getElementByIdUnsafe self elementId
= liftIO
((nullableToMaybe <$>
(js_getElementById (toDocument self) (toJSString elementId)))
>>= maybe (Prelude.error "Nothing to return") return)
getElementByIdUnchecked ::
(MonadIO m, IsDocument self, ToJSString elementId) =>
self -> elementId -> m Element
getElementByIdUnchecked self elementId
= liftIO
(fromJust . nullableToMaybe <$>
(js_getElementById (toDocument self) (toJSString elementId)))
foreign import javascript unsafe "$1[\"adoptNode\"]($2)"
js_adoptNode :: Document -> Nullable Node -> IO (Nullable Node)
adoptNode ::
(MonadIO m, IsDocument self, IsNode source) =>
self -> Maybe source -> m (Maybe Node)
adoptNode self source
= liftIO
(nullableToMaybe <$>
(js_adoptNode (toDocument self)
(maybeToNullable (fmap toNode source))))
adoptNode_ ::
(MonadIO m, IsDocument self, IsNode source) =>
self -> Maybe source -> m ()
adoptNode_ self source
= liftIO
(void
(js_adoptNode (toDocument self)
(maybeToNullable (fmap toNode source))))
adoptNodeUnsafe ::
(MonadIO m, IsDocument self, IsNode source, HasCallStack) =>
self -> Maybe source -> m Node
adoptNodeUnsafe self source
= liftIO
((nullableToMaybe <$>
(js_adoptNode (toDocument self)
(maybeToNullable (fmap toNode source))))
>>= maybe (Prelude.error "Nothing to return") return)
adoptNodeUnchecked ::
(MonadIO m, IsDocument self, IsNode source) =>
self -> Maybe source -> m Node
adoptNodeUnchecked self source
= liftIO
(fromJust . nullableToMaybe <$>
(js_adoptNode (toDocument self)
(maybeToNullable (fmap toNode source))))
foreign import javascript unsafe "$1[\"createEvent\"]($2)"
js_createEvent :: Document -> JSString -> IO (Nullable Event)
createEvent ::
(MonadIO m, IsDocument self, ToJSString eventType) =>
self -> eventType -> m (Maybe Event)
createEvent self eventType
= liftIO
(nullableToMaybe <$>
(js_createEvent (toDocument self) (toJSString eventType)))
createEvent_ ::
(MonadIO m, IsDocument self, ToJSString eventType) =>
self -> eventType -> m ()
createEvent_ self eventType
= liftIO
(void (js_createEvent (toDocument self) (toJSString eventType)))
createEventUnsafe ::
(MonadIO m, IsDocument self, ToJSString eventType, HasCallStack) =>
self -> eventType -> m Event
createEventUnsafe self eventType
= liftIO
((nullableToMaybe <$>
(js_createEvent (toDocument self) (toJSString eventType)))
>>= maybe (Prelude.error "Nothing to return") return)
createEventUnchecked ::
(MonadIO m, IsDocument self, ToJSString eventType) =>
self -> eventType -> m Event
createEventUnchecked self eventType
= liftIO
(fromJust . nullableToMaybe <$>
(js_createEvent (toDocument self) (toJSString eventType)))
foreign import javascript unsafe "$1[\"createRange\"]()"
js_createRange :: Document -> IO (Nullable Range)
createRange ::
(MonadIO m, IsDocument self) => self -> m (Maybe Range)
createRange self
= liftIO (nullableToMaybe <$> (js_createRange (toDocument self)))
createRange_ :: (MonadIO m, IsDocument self) => self -> m ()
createRange_ self
= liftIO (void (js_createRange (toDocument self)))
createRangeUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Range
createRangeUnsafe self
= liftIO
((nullableToMaybe <$> (js_createRange (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
createRangeUnchecked ::
(MonadIO m, IsDocument self) => self -> m Range
createRangeUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_createRange (toDocument self)))
foreign import javascript unsafe
"$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator
::
Document ->
Nullable Node ->
Word -> Nullable NodeFilter -> Bool -> IO (Nullable NodeIterator)
createNodeIterator ::
(MonadIO m, IsDocument self, IsNode root) =>
self ->
Maybe root ->
Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)
createNodeIterator self root whatToShow filter
expandEntityReferences
= liftIO
(nullableToMaybe <$>
(js_createNodeIterator (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
createNodeIterator_ ::
(MonadIO m, IsDocument self, IsNode root) =>
self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m ()
createNodeIterator_ self root whatToShow filter
expandEntityReferences
= liftIO
(void
(js_createNodeIterator (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
createNodeIteratorUnsafe ::
(MonadIO m, IsDocument self, IsNode root, HasCallStack) =>
self ->
Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator
createNodeIteratorUnsafe self root whatToShow filter
expandEntityReferences
= liftIO
((nullableToMaybe <$>
(js_createNodeIterator (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
>>= maybe (Prelude.error "Nothing to return") return)
createNodeIteratorUnchecked ::
(MonadIO m, IsDocument self, IsNode root) =>
self ->
Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator
createNodeIteratorUnchecked self root whatToShow filter
expandEntityReferences
= liftIO
(fromJust . nullableToMaybe <$>
(js_createNodeIterator (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
foreign import javascript unsafe
"$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::
Document ->
Nullable Node ->
Word -> Nullable NodeFilter -> Bool -> IO (Nullable TreeWalker)
createTreeWalker ::
(MonadIO m, IsDocument self, IsNode root) =>
self ->
Maybe root ->
Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)
createTreeWalker self root whatToShow filter expandEntityReferences
= liftIO
(nullableToMaybe <$>
(js_createTreeWalker (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
createTreeWalker_ ::
(MonadIO m, IsDocument self, IsNode root) =>
self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m ()
createTreeWalker_ self root whatToShow filter
expandEntityReferences
= liftIO
(void
(js_createTreeWalker (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
createTreeWalkerUnsafe ::
(MonadIO m, IsDocument self, IsNode root, HasCallStack) =>
self ->
Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker
createTreeWalkerUnsafe self root whatToShow filter
expandEntityReferences
= liftIO
((nullableToMaybe <$>
(js_createTreeWalker (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
>>= maybe (Prelude.error "Nothing to return") return)
createTreeWalkerUnchecked ::
(MonadIO m, IsDocument self, IsNode root) =>
self ->
Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker
createTreeWalkerUnchecked self root whatToShow filter
expandEntityReferences
= liftIO
(fromJust . nullableToMaybe <$>
(js_createTreeWalker (toDocument self)
(maybeToNullable (fmap toNode root))
whatToShow
(maybeToNullable filter)
expandEntityReferences))
foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"
js_getOverrideStyle ::
Document ->
Nullable Element -> JSString -> IO (Nullable CSSStyleDeclaration)
getOverrideStyle ::
(MonadIO m, IsDocument self, IsElement element,
ToJSString pseudoElement) =>
self ->
Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)
getOverrideStyle self element pseudoElement
= liftIO
(nullableToMaybe <$>
(js_getOverrideStyle (toDocument self)
(maybeToNullable (fmap toElement element))
(toJSString pseudoElement)))
getOverrideStyle_ ::
(MonadIO m, IsDocument self, IsElement element,
ToJSString pseudoElement) =>
self -> Maybe element -> pseudoElement -> m ()
getOverrideStyle_ self element pseudoElement
= liftIO
(void
(js_getOverrideStyle (toDocument self)
(maybeToNullable (fmap toElement element))
(toJSString pseudoElement)))
getOverrideStyleUnsafe ::
(MonadIO m, IsDocument self, IsElement element,
ToJSString pseudoElement, HasCallStack) =>
self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration
getOverrideStyleUnsafe self element pseudoElement
= liftIO
((nullableToMaybe <$>
(js_getOverrideStyle (toDocument self)
(maybeToNullable (fmap toElement element))
(toJSString pseudoElement)))
>>= maybe (Prelude.error "Nothing to return") return)
getOverrideStyleUnchecked ::
(MonadIO m, IsDocument self, IsElement element,
ToJSString pseudoElement) =>
self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration
getOverrideStyleUnchecked self element pseudoElement
= liftIO
(fromJust . nullableToMaybe <$>
(js_getOverrideStyle (toDocument self)
(maybeToNullable (fmap toElement element))
(toJSString pseudoElement)))
foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"
js_createExpression ::
Document ->
JSString ->
Nullable XPathNSResolver -> IO (Nullable XPathExpression)
createExpression ::
(MonadIO m, IsDocument self, ToJSString expression) =>
self ->
expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)
createExpression self expression resolver
= liftIO
(nullableToMaybe <$>
(js_createExpression (toDocument self) (toJSString expression)
(maybeToNullable resolver)))
createExpression_ ::
(MonadIO m, IsDocument self, ToJSString expression) =>
self -> expression -> Maybe XPathNSResolver -> m ()
createExpression_ self expression resolver
= liftIO
(void
(js_createExpression (toDocument self) (toJSString expression)
(maybeToNullable resolver)))
createExpressionUnsafe ::
(MonadIO m, IsDocument self, ToJSString expression,
HasCallStack) =>
self -> expression -> Maybe XPathNSResolver -> m XPathExpression
createExpressionUnsafe self expression resolver
= liftIO
((nullableToMaybe <$>
(js_createExpression (toDocument self) (toJSString expression)
(maybeToNullable resolver)))
>>= maybe (Prelude.error "Nothing to return") return)
createExpressionUnchecked ::
(MonadIO m, IsDocument self, ToJSString expression) =>
self -> expression -> Maybe XPathNSResolver -> m XPathExpression
createExpressionUnchecked self expression resolver
= liftIO
(fromJust . nullableToMaybe <$>
(js_createExpression (toDocument self) (toJSString expression)
(maybeToNullable resolver)))
foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"
js_createNSResolver ::
Document -> Nullable Node -> IO (Nullable XPathNSResolver)
createNSResolver ::
(MonadIO m, IsDocument self, IsNode nodeResolver) =>
self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)
createNSResolver self nodeResolver
= liftIO
(nullableToMaybe <$>
(js_createNSResolver (toDocument self)
(maybeToNullable (fmap toNode nodeResolver))))
createNSResolver_ ::
(MonadIO m, IsDocument self, IsNode nodeResolver) =>
self -> Maybe nodeResolver -> m ()
createNSResolver_ self nodeResolver
= liftIO
(void
(js_createNSResolver (toDocument self)
(maybeToNullable (fmap toNode nodeResolver))))
createNSResolverUnsafe ::
(MonadIO m, IsDocument self, IsNode nodeResolver, HasCallStack) =>
self -> Maybe nodeResolver -> m XPathNSResolver
createNSResolverUnsafe self nodeResolver
= liftIO
((nullableToMaybe <$>
(js_createNSResolver (toDocument self)
(maybeToNullable (fmap toNode nodeResolver))))
>>= maybe (Prelude.error "Nothing to return") return)
createNSResolverUnchecked ::
(MonadIO m, IsDocument self, IsNode nodeResolver) =>
self -> Maybe nodeResolver -> m XPathNSResolver
createNSResolverUnchecked self nodeResolver
= liftIO
(fromJust . nullableToMaybe <$>
(js_createNSResolver (toDocument self)
(maybeToNullable (fmap toNode nodeResolver))))
foreign import javascript unsafe
"$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::
Document ->
JSString ->
Nullable Node ->
Nullable XPathNSResolver ->
Word -> Nullable XPathResult -> IO (Nullable XPathResult)
evaluate ::
(MonadIO m, IsDocument self, ToJSString expression,
IsNode contextNode) =>
self ->
expression ->
Maybe contextNode ->
Maybe XPathNSResolver ->
Word -> Maybe XPathResult -> m (Maybe XPathResult)
evaluate self expression contextNode resolver type' inResult
= liftIO
(nullableToMaybe <$>
(js_evaluate (toDocument self) (toJSString expression)
(maybeToNullable (fmap toNode contextNode))
(maybeToNullable resolver)
type'
(maybeToNullable inResult)))
evaluate_ ::
(MonadIO m, IsDocument self, ToJSString expression,
IsNode contextNode) =>
self ->
expression ->
Maybe contextNode ->
Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m ()
evaluate_ self expression contextNode resolver type' inResult
= liftIO
(void
(js_evaluate (toDocument self) (toJSString expression)
(maybeToNullable (fmap toNode contextNode))
(maybeToNullable resolver)
type'
(maybeToNullable inResult)))
evaluateUnsafe ::
(MonadIO m, IsDocument self, ToJSString expression,
IsNode contextNode, HasCallStack) =>
self ->
expression ->
Maybe contextNode ->
Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult
evaluateUnsafe self expression contextNode resolver type' inResult
= liftIO
((nullableToMaybe <$>
(js_evaluate (toDocument self) (toJSString expression)
(maybeToNullable (fmap toNode contextNode))
(maybeToNullable resolver)
type'
(maybeToNullable inResult)))
>>= maybe (Prelude.error "Nothing to return") return)
evaluateUnchecked ::
(MonadIO m, IsDocument self, ToJSString expression,
IsNode contextNode) =>
self ->
expression ->
Maybe contextNode ->
Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult
evaluateUnchecked self expression contextNode resolver type'
inResult
= liftIO
(fromJust . nullableToMaybe <$>
(js_evaluate (toDocument self) (toJSString expression)
(maybeToNullable (fmap toNode contextNode))
(maybeToNullable resolver)
type'
(maybeToNullable inResult)))
foreign import javascript unsafe
"($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::
Document -> JSString -> Bool -> Nullable JSString -> IO Bool
execCommand ::
(MonadIO m, IsDocument self, ToJSString command,
ToJSString value) =>
self -> command -> Bool -> Maybe value -> m Bool
execCommand self command userInterface value
= liftIO
(js_execCommand (toDocument self) (toJSString command)
userInterface
(toMaybeJSString value))
execCommand_ ::
(MonadIO m, IsDocument self, ToJSString command,
ToJSString value) =>
self -> command -> Bool -> Maybe value -> m ()
execCommand_ self command userInterface value
= liftIO
(void
(js_execCommand (toDocument self) (toJSString command)
userInterface
(toMaybeJSString value)))
foreign import javascript unsafe
"($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled
:: Document -> JSString -> IO Bool
queryCommandEnabled ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandEnabled self command
= liftIO
(js_queryCommandEnabled (toDocument self) (toJSString command))
queryCommandEnabled_ ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m ()
queryCommandEnabled_ self command
= liftIO
(void
(js_queryCommandEnabled (toDocument self) (toJSString command)))
foreign import javascript unsafe
"($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"
js_queryCommandIndeterm :: Document -> JSString -> IO Bool
queryCommandIndeterm ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandIndeterm self command
= liftIO
(js_queryCommandIndeterm (toDocument self) (toJSString command))
queryCommandIndeterm_ ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m ()
queryCommandIndeterm_ self command
= liftIO
(void
(js_queryCommandIndeterm (toDocument self) (toJSString command)))
foreign import javascript unsafe
"($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::
Document -> JSString -> IO Bool
queryCommandState ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandState self command
= liftIO
(js_queryCommandState (toDocument self) (toJSString command))
queryCommandState_ ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m ()
queryCommandState_ self command
= liftIO
(void
(js_queryCommandState (toDocument self) (toJSString command)))
foreign import javascript unsafe
"($1[\"queryCommandSupported\"]($2) ? 1 : 0)"
js_queryCommandSupported :: Document -> JSString -> IO Bool
queryCommandSupported ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandSupported self command
= liftIO
(js_queryCommandSupported (toDocument self) (toJSString command))
queryCommandSupported_ ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m ()
queryCommandSupported_ self command
= liftIO
(void
(js_queryCommandSupported (toDocument self) (toJSString command)))
foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"
js_queryCommandValue :: Document -> JSString -> IO JSString
queryCommandValue ::
(MonadIO m, IsDocument self, ToJSString command,
FromJSString result) =>
self -> command -> m result
queryCommandValue self command
= liftIO
(fromJSString <$>
(js_queryCommandValue (toDocument self) (toJSString command)))
queryCommandValue_ ::
(MonadIO m, IsDocument self, ToJSString command) =>
self -> command -> m ()
queryCommandValue_ self command
= liftIO
(void
(js_queryCommandValue (toDocument self) (toJSString command)))
foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"
js_getElementsByName ::
Document -> JSString -> IO (Nullable NodeList)
getElementsByName ::
(MonadIO m, IsDocument self, ToJSString elementName) =>
self -> elementName -> m (Maybe NodeList)
getElementsByName self elementName
= liftIO
(nullableToMaybe <$>
(js_getElementsByName (toDocument self) (toJSString elementName)))
getElementsByName_ ::
(MonadIO m, IsDocument self, ToJSString elementName) =>
self -> elementName -> m ()
getElementsByName_ self elementName
= liftIO
(void
(js_getElementsByName (toDocument self) (toJSString elementName)))
getElementsByNameUnsafe ::
(MonadIO m, IsDocument self, ToJSString elementName,
HasCallStack) =>
self -> elementName -> m NodeList
getElementsByNameUnsafe self elementName
= liftIO
((nullableToMaybe <$>
(js_getElementsByName (toDocument self) (toJSString elementName)))
>>= maybe (Prelude.error "Nothing to return") return)
getElementsByNameUnchecked ::
(MonadIO m, IsDocument self, ToJSString elementName) =>
self -> elementName -> m NodeList
getElementsByNameUnchecked self elementName
= liftIO
(fromJust . nullableToMaybe <$>
(js_getElementsByName (toDocument self) (toJSString elementName)))
foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"
js_elementFromPoint ::
Document -> Int -> Int -> IO (Nullable Element)
elementFromPoint ::
(MonadIO m, IsDocument self) =>
self -> Int -> Int -> m (Maybe Element)
elementFromPoint self x y
= liftIO
(nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))
elementFromPoint_ ::
(MonadIO m, IsDocument self) => self -> Int -> Int -> m ()
elementFromPoint_ self x y
= liftIO (void (js_elementFromPoint (toDocument self) x y))
elementFromPointUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> Int -> Int -> m Element
elementFromPointUnsafe self x y
= liftIO
((nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))
>>= maybe (Prelude.error "Nothing to return") return)
elementFromPointUnchecked ::
(MonadIO m, IsDocument self) => self -> Int -> Int -> m Element
elementFromPointUnchecked self x y
= liftIO
(fromJust . nullableToMaybe <$>
(js_elementFromPoint (toDocument self) x y))
foreign import javascript unsafe
"$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::
Document -> Int -> Int -> IO (Nullable Range)
caretRangeFromPoint ::
(MonadIO m, IsDocument self) =>
self -> Int -> Int -> m (Maybe Range)
caretRangeFromPoint self x y
= liftIO
(nullableToMaybe <$>
(js_caretRangeFromPoint (toDocument self) x y))
caretRangeFromPoint_ ::
(MonadIO m, IsDocument self) => self -> Int -> Int -> m ()
caretRangeFromPoint_ self x y
= liftIO (void (js_caretRangeFromPoint (toDocument self) x y))
caretRangeFromPointUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> Int -> Int -> m Range
caretRangeFromPointUnsafe self x y
= liftIO
((nullableToMaybe <$>
(js_caretRangeFromPoint (toDocument self) x y))
>>= maybe (Prelude.error "Nothing to return") return)
caretRangeFromPointUnchecked ::
(MonadIO m, IsDocument self) => self -> Int -> Int -> m Range
caretRangeFromPointUnchecked self x y
= liftIO
(fromJust . nullableToMaybe <$>
(js_caretRangeFromPoint (toDocument self) x y))
foreign import javascript unsafe "$1[\"getSelection\"]()"
js_getSelection :: Document -> IO (Nullable Selection)
getSelection ::
(MonadIO m, IsDocument self) => self -> m (Maybe Selection)
getSelection self
= liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))
getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()
getSelection_ self
= liftIO (void (js_getSelection (toDocument self)))
getSelectionUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Selection
getSelectionUnsafe self
= liftIO
((nullableToMaybe <$> (js_getSelection (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getSelectionUnchecked ::
(MonadIO m, IsDocument self) => self -> m Selection
getSelectionUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getSelection (toDocument self)))
foreign import javascript unsafe
"$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"
js_getCSSCanvasContext ::
Document ->
JSString ->
JSString -> Int -> Int -> IO (Nullable CanvasRenderingContext)
getCSSCanvasContext ::
(MonadIO m, IsDocument self, ToJSString contextId,
ToJSString name) =>
self ->
contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)
getCSSCanvasContext self contextId name width height
= liftIO
(nullableToMaybe <$>
(js_getCSSCanvasContext (toDocument self) (toJSString contextId)
(toJSString name)
width
height))
getCSSCanvasContext_ ::
(MonadIO m, IsDocument self, ToJSString contextId,
ToJSString name) =>
self -> contextId -> name -> Int -> Int -> m ()
getCSSCanvasContext_ self contextId name width height
= liftIO
(void
(js_getCSSCanvasContext (toDocument self) (toJSString contextId)
(toJSString name)
width
height))
getCSSCanvasContextUnsafe ::
(MonadIO m, IsDocument self, ToJSString contextId, ToJSString name,
HasCallStack) =>
self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext
getCSSCanvasContextUnsafe self contextId name width height
= liftIO
((nullableToMaybe <$>
(js_getCSSCanvasContext (toDocument self) (toJSString contextId)
(toJSString name)
width
height))
>>= maybe (Prelude.error "Nothing to return") return)
getCSSCanvasContextUnchecked ::
(MonadIO m, IsDocument self, ToJSString contextId,
ToJSString name) =>
self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext
getCSSCanvasContextUnchecked self contextId name width height
= liftIO
(fromJust . nullableToMaybe <$>
(js_getCSSCanvasContext (toDocument self) (toJSString contextId)
(toJSString name)
width
height))
foreign import javascript unsafe
"$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::
Document -> JSString -> IO (Nullable NodeList)
getElementsByClassName ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m (Maybe NodeList)
getElementsByClassName self tagname
= liftIO
(nullableToMaybe <$>
(js_getElementsByClassName (toDocument self) (toJSString tagname)))
getElementsByClassName_ ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m ()
getElementsByClassName_ self tagname
= liftIO
(void
(js_getElementsByClassName (toDocument self) (toJSString tagname)))
getElementsByClassNameUnsafe ::
(MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>
self -> tagname -> m NodeList
getElementsByClassNameUnsafe self tagname
= liftIO
((nullableToMaybe <$>
(js_getElementsByClassName (toDocument self) (toJSString tagname)))
>>= maybe (Prelude.error "Nothing to return") return)
getElementsByClassNameUnchecked ::
(MonadIO m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m NodeList
getElementsByClassNameUnchecked self tagname
= liftIO
(fromJust . nullableToMaybe <$>
(js_getElementsByClassName (toDocument self) (toJSString tagname)))
foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"
js_hasFocus :: Document -> IO Bool
hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool
hasFocus self = liftIO (js_hasFocus (toDocument self))
hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()
hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))
foreign import javascript unsafe "$1[\"querySelector\"]($2)"
js_querySelector :: Document -> JSString -> IO (Nullable Element)
querySelector ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m (Maybe Element)
querySelector self selectors
= liftIO
(nullableToMaybe <$>
(js_querySelector (toDocument self) (toJSString selectors)))
querySelector_ ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m ()
querySelector_ self selectors
= liftIO
(void (js_querySelector (toDocument self) (toJSString selectors)))
querySelectorUnsafe ::
(MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>
self -> selectors -> m Element
querySelectorUnsafe self selectors
= liftIO
((nullableToMaybe <$>
(js_querySelector (toDocument self) (toJSString selectors)))
>>= maybe (Prelude.error "Nothing to return") return)
querySelectorUnchecked ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m Element
querySelectorUnchecked self selectors
= liftIO
(fromJust . nullableToMaybe <$>
(js_querySelector (toDocument self) (toJSString selectors)))
foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"
js_querySelectorAll ::
Document -> JSString -> IO (Nullable NodeList)
querySelectorAll ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m (Maybe NodeList)
querySelectorAll self selectors
= liftIO
(nullableToMaybe <$>
(js_querySelectorAll (toDocument self) (toJSString selectors)))
querySelectorAll_ ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m ()
querySelectorAll_ self selectors
= liftIO
(void
(js_querySelectorAll (toDocument self) (toJSString selectors)))
querySelectorAllUnsafe ::
(MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>
self -> selectors -> m NodeList
querySelectorAllUnsafe self selectors
= liftIO
((nullableToMaybe <$>
(js_querySelectorAll (toDocument self) (toJSString selectors)))
>>= maybe (Prelude.error "Nothing to return") return)
querySelectorAllUnchecked ::
(MonadIO m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m NodeList
querySelectorAllUnchecked self selectors
= liftIO
(fromJust . nullableToMaybe <$>
(js_querySelectorAll (toDocument self) (toJSString selectors)))
foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"
js_webkitCancelFullScreen :: Document -> IO ()
webkitCancelFullScreen ::
(MonadIO m, IsDocument self) => self -> m ()
webkitCancelFullScreen self
= liftIO (js_webkitCancelFullScreen (toDocument self))
foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"
js_webkitExitFullscreen :: Document -> IO ()
webkitExitFullscreen ::
(MonadIO m, IsDocument self) => self -> m ()
webkitExitFullscreen self
= liftIO (js_webkitExitFullscreen (toDocument self))
foreign import javascript unsafe "$1[\"exitPointerLock\"]()"
js_exitPointerLock :: Document -> IO ()
exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()
exitPointerLock self
= liftIO (js_exitPointerLock (toDocument self))
foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"
js_webkitGetNamedFlows ::
Document -> IO (Nullable DOMNamedFlowCollection)
webkitGetNamedFlows ::
(MonadIO m, IsDocument self) =>
self -> m (Maybe DOMNamedFlowCollection)
webkitGetNamedFlows self
= liftIO
(nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))
webkitGetNamedFlows_ ::
(MonadIO m, IsDocument self) => self -> m ()
webkitGetNamedFlows_ self
= liftIO (void (js_webkitGetNamedFlows (toDocument self)))
webkitGetNamedFlowsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m DOMNamedFlowCollection
webkitGetNamedFlowsUnsafe self
= liftIO
((nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
webkitGetNamedFlowsUnchecked ::
(MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection
webkitGetNamedFlowsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_webkitGetNamedFlows (toDocument self)))
foreign import javascript unsafe
"$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"
js_createTouch ::
Document ->
Nullable Window ->
Nullable EventTarget ->
Int ->
Int ->
Int ->
Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable Touch)
createTouch ::
(MonadIO m, IsDocument self, IsEventTarget target) =>
self ->
Maybe Window ->
Maybe target ->
Int ->
Int ->
Int ->
Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch)
createTouch self window target identifier pageX pageY screenX
screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce
= liftIO
(nullableToMaybe <$>
(js_createTouch (toDocument self) (maybeToNullable window)
(maybeToNullable (fmap toEventTarget target))
identifier
pageX
pageY
screenX
screenY
webkitRadiusX
webkitRadiusY
webkitRotationAngle
webkitForce))
createTouch_ ::
(MonadIO m, IsDocument self, IsEventTarget target) =>
self ->
Maybe Window ->
Maybe target ->
Int ->
Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m ()
createTouch_ self window target identifier pageX pageY screenX
screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce
= liftIO
(void
(js_createTouch (toDocument self) (maybeToNullable window)
(maybeToNullable (fmap toEventTarget target))
identifier
pageX
pageY
screenX
screenY
webkitRadiusX
webkitRadiusY
webkitRotationAngle
webkitForce))
createTouchUnsafe ::
(MonadIO m, IsDocument self, IsEventTarget target, HasCallStack) =>
self ->
Maybe Window ->
Maybe target ->
Int ->
Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch
createTouchUnsafe self window target identifier pageX pageY screenX
screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce
= liftIO
((nullableToMaybe <$>
(js_createTouch (toDocument self) (maybeToNullable window)
(maybeToNullable (fmap toEventTarget target))
identifier
pageX
pageY
screenX
screenY
webkitRadiusX
webkitRadiusY
webkitRotationAngle
webkitForce))
>>= maybe (Prelude.error "Nothing to return") return)
createTouchUnchecked ::
(MonadIO m, IsDocument self, IsEventTarget target) =>
self ->
Maybe Window ->
Maybe target ->
Int ->
Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch
createTouchUnchecked self window target identifier pageX pageY
screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle
webkitForce
= liftIO
(fromJust . nullableToMaybe <$>
(js_createTouch (toDocument self) (maybeToNullable window)
(maybeToNullable (fmap toEventTarget target))
identifier
pageX
pageY
screenX
screenY
webkitRadiusX
webkitRadiusY
webkitRotationAngle
webkitForce))
foreign import javascript unsafe "$1[\"createTouchList\"]()"
js_createTouchList :: Document -> IO (Nullable TouchList)
createTouchList ::
(MonadIO m, IsDocument self) => self -> m (Maybe TouchList)
createTouchList self
= liftIO
(nullableToMaybe <$> (js_createTouchList (toDocument self)))
createTouchList_ :: (MonadIO m, IsDocument self) => self -> m ()
createTouchList_ self
= liftIO (void (js_createTouchList (toDocument self)))
createTouchListUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m TouchList
createTouchListUnsafe self
= liftIO
((nullableToMaybe <$> (js_createTouchList (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
createTouchListUnchecked ::
(MonadIO m, IsDocument self) => self -> m TouchList
createTouchListUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_createTouchList (toDocument self)))
foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::
Document -> IO (Nullable DocumentType)
getDoctype ::
(MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)
getDoctype self
= liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))
getDoctypeUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m DocumentType
getDoctypeUnsafe self
= liftIO
((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDoctypeUnchecked ::
(MonadIO m, IsDocument self) => self -> m DocumentType
getDoctypeUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))
foreign import javascript unsafe "$1[\"implementation\"]"
js_getImplementation :: Document -> IO (Nullable DOMImplementation)
getImplementation ::
(MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation)
getImplementation self
= liftIO
(nullableToMaybe <$> (js_getImplementation (toDocument self)))
getImplementationUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m DOMImplementation
getImplementationUnsafe self
= liftIO
((nullableToMaybe <$> (js_getImplementation (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getImplementationUnchecked ::
(MonadIO m, IsDocument self) => self -> m DOMImplementation
getImplementationUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getImplementation (toDocument self)))
foreign import javascript unsafe "$1[\"documentElement\"]"
js_getDocumentElement :: Document -> IO (Nullable Element)
getDocumentElement ::
(MonadIO m, IsDocument self) => self -> m (Maybe Element)
getDocumentElement self
= liftIO
(nullableToMaybe <$> (js_getDocumentElement (toDocument self)))
getDocumentElementUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Element
getDocumentElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getDocumentElementUnchecked ::
(MonadIO m, IsDocument self) => self -> m Element
getDocumentElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getDocumentElement (toDocument self)))
foreign import javascript unsafe "$1[\"inputEncoding\"]"
js_getInputEncoding :: Document -> IO (Nullable JSString)
getInputEncoding ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getInputEncoding self
= liftIO
(fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))
getInputEncodingUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getInputEncodingUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getInputEncodingUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getInputEncodingUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getInputEncoding (toDocument self)))
foreign import javascript unsafe "$1[\"xmlEncoding\"]"
js_getXmlEncoding :: Document -> IO (Nullable JSString)
getXmlEncoding ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getXmlEncoding self
= liftIO
(fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))
getXmlEncodingUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getXmlEncodingUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getXmlEncodingUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getXmlEncodingUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getXmlEncoding (toDocument self)))
foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"
js_setXmlVersion :: Document -> Nullable JSString -> IO ()
setXmlVersion ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setXmlVersion self val
= liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"xmlVersion\"]"
js_getXmlVersion :: Document -> IO (Nullable JSString)
getXmlVersion ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getXmlVersion self
= liftIO
(fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))
getXmlVersionUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getXmlVersionUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getXmlVersionUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getXmlVersionUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getXmlVersion (toDocument self)))
foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"
js_setXmlStandalone :: Document -> Bool -> IO ()
setXmlStandalone ::
(MonadIO m, IsDocument self) => self -> Bool -> m ()
setXmlStandalone self val
= liftIO (js_setXmlStandalone (toDocument self) val)
foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"
js_getXmlStandalone :: Document -> IO Bool
getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool
getXmlStandalone self
= liftIO (js_getXmlStandalone (toDocument self))
foreign import javascript unsafe "$1[\"documentURI\"]"
js_getDocumentURI :: Document -> IO (Nullable JSString)
getDocumentURI ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDocumentURI self
= liftIO
(fromMaybeJSString <$> (js_getDocumentURI (toDocument self)))
getDocumentURIUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getDocumentURIUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getDocumentURI (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDocumentURIUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getDocumentURIUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getDocumentURI (toDocument self)))
foreign import javascript unsafe "$1[\"defaultView\"]"
js_getDefaultView :: Document -> IO (Nullable Window)
getDefaultView ::
(MonadIO m, IsDocument self) => self -> m (Maybe Window)
getDefaultView self
= liftIO
(nullableToMaybe <$> (js_getDefaultView (toDocument self)))
getDefaultViewUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Window
getDefaultViewUnsafe self
= liftIO
((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDefaultViewUnchecked ::
(MonadIO m, IsDocument self) => self -> m Window
getDefaultViewUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getDefaultView (toDocument self)))
foreign import javascript unsafe "$1[\"styleSheets\"]"
js_getStyleSheets :: Document -> IO (Nullable StyleSheetList)
getStyleSheets ::
(MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList)
getStyleSheets self
= liftIO
(nullableToMaybe <$> (js_getStyleSheets (toDocument self)))
getStyleSheetsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m StyleSheetList
getStyleSheetsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getStyleSheets (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getStyleSheetsUnchecked ::
(MonadIO m, IsDocument self) => self -> m StyleSheetList
getStyleSheetsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getStyleSheets (toDocument self)))
foreign import javascript unsafe "$1[\"contentType\"]"
js_getContentType :: Document -> IO JSString
getContentType ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getContentType self
= liftIO (fromJSString <$> (js_getContentType (toDocument self)))
foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle
:: Document -> Nullable JSString -> IO ()
setTitle ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setTitle self val
= liftIO (js_setTitle (toDocument self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::
Document -> IO (Nullable JSString)
getTitle ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getTitle self
= liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self)))
getTitleUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getTitleUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getTitle (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTitleUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getTitleUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getTitle (toDocument self)))
foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer
:: Document -> IO JSString
getReferrer ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getReferrer self
= liftIO (fromJSString <$> (js_getReferrer (toDocument self)))
foreign import javascript unsafe "$1[\"domain\"] = $2;"
js_setDomain :: Document -> Nullable JSString -> IO ()
setDomain ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setDomain self val
= liftIO (js_setDomain (toDocument self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::
Document -> IO (Nullable JSString)
getDomain ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDomain self
= liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self)))
getDomainUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getDomainUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getDomain (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDomainUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getDomainUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getDomain (toDocument self)))
foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::
Document -> IO JSString
getURL ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getURL self
= liftIO (fromJSString <$> (js_getURL (toDocument self)))
foreign import javascript unsafe "$1[\"cookie\"] = $2;"
js_setCookie :: Document -> Nullable JSString -> IO ()
setCookie ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setCookie self val
= liftIO (js_setCookie (toDocument self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::
Document -> IO (Nullable JSString)
getCookie ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCookie self
= liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self)))
getCookieUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getCookieUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getCookie (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCookieUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getCookieUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getCookie (toDocument self)))
foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::
Document -> Nullable HTMLElement -> IO ()
setBody ::
(MonadIO m, IsDocument self, IsHTMLElement val) =>
self -> Maybe val -> m ()
setBody self val
= liftIO
(js_setBody (toDocument self)
(maybeToNullable (fmap toHTMLElement val)))
foreign import javascript unsafe "$1[\"body\"]" js_getBody ::
Document -> IO (Nullable HTMLElement)
getBody ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)
getBody self
= liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))
getBodyUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement
getBodyUnsafe self
= liftIO
((nullableToMaybe <$> (js_getBody (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getBodyUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLElement
getBodyUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))
foreign import javascript unsafe "$1[\"head\"]" js_getHead ::
Document -> IO (Nullable HTMLHeadElement)
getHead ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)
getHead self
= liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))
getHeadUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLHeadElement
getHeadUnsafe self
= liftIO
((nullableToMaybe <$> (js_getHead (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getHeadUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLHeadElement
getHeadUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))
foreign import javascript unsafe "$1[\"images\"]" js_getImages ::
Document -> IO (Nullable HTMLCollection)
getImages ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)
getImages self
= liftIO (nullableToMaybe <$> (js_getImages (toDocument self)))
getImagesUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLCollection
getImagesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getImages (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getImagesUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLCollection
getImagesUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getImages (toDocument self)))
foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::
Document -> IO (Nullable HTMLCollection)
getApplets ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)
getApplets self
= liftIO (nullableToMaybe <$> (js_getApplets (toDocument self)))
getAppletsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLCollection
getAppletsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getApplets (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getAppletsUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLCollection
getAppletsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getApplets (toDocument self)))
foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::
Document -> IO (Nullable HTMLCollection)
getLinks ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)
getLinks self
= liftIO (nullableToMaybe <$> (js_getLinks (toDocument self)))
getLinksUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLCollection
getLinksUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLinks (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLinksUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLCollection
getLinksUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getLinks (toDocument self)))
foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::
Document -> IO (Nullable HTMLCollection)
getForms ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)
getForms self
= liftIO (nullableToMaybe <$> (js_getForms (toDocument self)))
getFormsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLCollection
getFormsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getForms (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormsUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLCollection
getFormsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getForms (toDocument self)))
foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::
Document -> IO (Nullable HTMLCollection)
getAnchors ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)
getAnchors self
= liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self)))
getAnchorsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLCollection
getAnchorsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getAnchors (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getAnchorsUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLCollection
getAnchorsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getAnchors (toDocument self)))
foreign import javascript unsafe "$1[\"lastModified\"]"
js_getLastModified :: Document -> IO JSString
getLastModified ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getLastModified self
= liftIO (fromJSString <$> (js_getLastModified (toDocument self)))
foreign import javascript unsafe "$1[\"location\"] = $2;"
js_setLocation :: Document -> Nullable Location -> IO ()
setLocation ::
(MonadIO m, IsDocument self) => self -> Maybe Location -> m ()
setLocation self val
= liftIO (js_setLocation (toDocument self) (maybeToNullable val))
foreign import javascript unsafe "$1[\"location\"]" js_getLocation
:: Document -> IO (Nullable Location)
getLocation ::
(MonadIO m, IsDocument self) => self -> m (Maybe Location)
getLocation self
= liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))
getLocationUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Location
getLocationUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLocationUnchecked ::
(MonadIO m, IsDocument self) => self -> m Location
getLocationUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))
foreign import javascript unsafe "$1[\"charset\"] = $2;"
js_setCharset :: Document -> Nullable JSString -> IO ()
setCharset ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setCharset self val
= liftIO (js_setCharset (toDocument self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::
Document -> IO (Nullable JSString)
getCharset ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCharset self
= liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self)))
getCharsetUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getCharsetUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getCharset (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCharsetUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getCharsetUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getCharset (toDocument self)))
foreign import javascript unsafe "$1[\"defaultCharset\"]"
js_getDefaultCharset :: Document -> IO (Nullable JSString)
getDefaultCharset ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDefaultCharset self
= liftIO
(fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))
getDefaultCharsetUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getDefaultCharsetUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getDefaultCharsetUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getDefaultCharsetUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getDefaultCharset (toDocument self)))
foreign import javascript unsafe "$1[\"readyState\"]"
js_getReadyState :: Document -> IO (Nullable JSString)
getReadyState ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getReadyState self
= liftIO
(fromMaybeJSString <$> (js_getReadyState (toDocument self)))
getReadyStateUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getReadyStateUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getReadyState (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getReadyStateUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getReadyStateUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getReadyState (toDocument self)))
foreign import javascript unsafe "$1[\"characterSet\"]"
js_getCharacterSet :: Document -> IO (Nullable JSString)
getCharacterSet ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCharacterSet self
= liftIO
(fromMaybeJSString <$> (js_getCharacterSet (toDocument self)))
getCharacterSetUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getCharacterSetUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getCharacterSet (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCharacterSetUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getCharacterSetUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getCharacterSet (toDocument self)))
foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"
js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)
getPreferredStylesheetSet ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getPreferredStylesheetSet self
= liftIO
(fromMaybeJSString <$>
(js_getPreferredStylesheetSet (toDocument self)))
getPreferredStylesheetSetUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getPreferredStylesheetSetUnsafe self
= liftIO
((fromMaybeJSString <$>
(js_getPreferredStylesheetSet (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getPreferredStylesheetSetUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getPreferredStylesheetSetUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getPreferredStylesheetSet (toDocument self)))
foreign import javascript unsafe
"$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet
:: Document -> Nullable JSString -> IO ()
setSelectedStylesheetSet ::
(MonadIO m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setSelectedStylesheetSet self val
= liftIO
(js_setSelectedStylesheetSet (toDocument self)
(toMaybeJSString val))
foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"
js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)
getSelectedStylesheetSet ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getSelectedStylesheetSet self
= liftIO
(fromMaybeJSString <$>
(js_getSelectedStylesheetSet (toDocument self)))
getSelectedStylesheetSetUnsafe ::
(MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>
self -> m result
getSelectedStylesheetSetUnsafe self
= liftIO
((fromMaybeJSString <$>
(js_getSelectedStylesheetSet (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getSelectedStylesheetSetUnchecked ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getSelectedStylesheetSetUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getSelectedStylesheetSet (toDocument self)))
foreign import javascript unsafe "$1[\"activeElement\"]"
js_getActiveElement :: Document -> IO (Nullable Element)
getActiveElement ::
(MonadIO m, IsDocument self) => self -> m (Maybe Element)
getActiveElement self
= liftIO
(nullableToMaybe <$> (js_getActiveElement (toDocument self)))
getActiveElementUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Element
getActiveElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getActiveElement (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getActiveElementUnchecked ::
(MonadIO m, IsDocument self) => self -> m Element
getActiveElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getActiveElement (toDocument self)))
foreign import javascript unsafe "$1[\"compatMode\"]"
js_getCompatMode :: Document -> IO JSString
getCompatMode ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getCompatMode self
= liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))
foreign import javascript unsafe
"($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::
Document -> IO Bool
getWebkitIsFullScreen ::
(MonadIO m, IsDocument self) => self -> m Bool
getWebkitIsFullScreen self
= liftIO (js_getWebkitIsFullScreen (toDocument self))
foreign import javascript unsafe
"($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"
js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool
getWebkitFullScreenKeyboardInputAllowed ::
(MonadIO m, IsDocument self) => self -> m Bool
getWebkitFullScreenKeyboardInputAllowed self
= liftIO
(js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))
foreign import javascript unsafe
"$1[\"webkitCurrentFullScreenElement\"]"
js_getWebkitCurrentFullScreenElement ::
Document -> IO (Nullable Element)
getWebkitCurrentFullScreenElement ::
(MonadIO m, IsDocument self) => self -> m (Maybe Element)
getWebkitCurrentFullScreenElement self
= liftIO
(nullableToMaybe <$>
(js_getWebkitCurrentFullScreenElement (toDocument self)))
getWebkitCurrentFullScreenElementUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m Element
getWebkitCurrentFullScreenElementUnsafe self
= liftIO
((nullableToMaybe <$>
(js_getWebkitCurrentFullScreenElement (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getWebkitCurrentFullScreenElementUnchecked ::
(MonadIO m, IsDocument self) => self -> m Element
getWebkitCurrentFullScreenElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getWebkitCurrentFullScreenElement (toDocument self)))
foreign import javascript unsafe
"($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"
js_getWebkitFullscreenEnabled :: Document -> IO Bool
getWebkitFullscreenEnabled ::
(MonadIO m, IsDocument self) => self -> m Bool
getWebkitFullscreenEnabled self
= liftIO (js_getWebkitFullscreenEnabled (toDocument self))
foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"
js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)
getWebkitFullscreenElement ::
(MonadIO m, IsDocument self) => self -> m (Maybe Element)
getWebkitFullscreenElement self
= liftIO
(nullableToMaybe <$>
(js_getWebkitFullscreenElement (toDocument self)))
getWebkitFullscreenElementUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Element
getWebkitFullscreenElementUnsafe self
= liftIO
((nullableToMaybe <$>
(js_getWebkitFullscreenElement (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getWebkitFullscreenElementUnchecked ::
(MonadIO m, IsDocument self) => self -> m Element
getWebkitFullscreenElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getWebkitFullscreenElement (toDocument self)))
foreign import javascript unsafe "$1[\"pointerLockElement\"]"
js_getPointerLockElement :: Document -> IO (Nullable Element)
getPointerLockElement ::
(MonadIO m, IsDocument self) => self -> m (Maybe Element)
getPointerLockElement self
= liftIO
(nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))
getPointerLockElementUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m Element
getPointerLockElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))
>>= maybe (Prelude.error "Nothing to return") return)
getPointerLockElementUnchecked ::
(MonadIO m, IsDocument self) => self -> m Element
getPointerLockElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getPointerLockElement (toDocument self)))
foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::
Document -> IO (Nullable FontLoader)
getFonts ::
(MonadIO m, IsDocument self) => self -> m (Maybe FontLoader)
getFonts self
= liftIO (nullableToMaybe <$> (js_getFonts (toDocument self)))
getFontsUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) => self -> m FontLoader
getFontsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getFonts (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFontsUnchecked ::
(MonadIO m, IsDocument self) => self -> m FontLoader
getFontsUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getFonts (toDocument self)))
abort ::
(IsDocument self, IsEventTarget self) => EventName self UIEvent
abort = unsafeEventName (toJSString "abort")
blur ::
(IsDocument self, IsEventTarget self) => EventName self FocusEvent
blur = unsafeEventName (toJSString "blur")
change ::
(IsDocument self, IsEventTarget self) => EventName self Event
change = unsafeEventName (toJSString "change")
click ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
click = unsafeEventName (toJSString "click")
contextMenu ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
contextMenu = unsafeEventName (toJSString "contextmenu")
dblClick ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dblClick = unsafeEventName (toJSString "dblclick")
drag ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
drag = unsafeEventName (toJSString "drag")
dragEnd ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dragEnd = unsafeEventName (toJSString "dragend")
dragEnter ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dragEnter = unsafeEventName (toJSString "dragenter")
dragLeave ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dragLeave = unsafeEventName (toJSString "dragleave")
dragOver ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dragOver = unsafeEventName (toJSString "dragover")
dragStart ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
dragStart = unsafeEventName (toJSString "dragstart")
drop ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
drop = unsafeEventName (toJSString "drop")
error ::
(IsDocument self, IsEventTarget self) => EventName self UIEvent
error = unsafeEventName (toJSString "error")
focus ::
(IsDocument self, IsEventTarget self) => EventName self FocusEvent
focus = unsafeEventName (toJSString "focus")
input ::
(IsDocument self, IsEventTarget self) => EventName self Event
input = unsafeEventName (toJSString "input")
invalid ::
(IsDocument self, IsEventTarget self) => EventName self Event
invalid = unsafeEventName (toJSString "invalid")
keyDown ::
(IsDocument self, IsEventTarget self) =>
EventName self KeyboardEvent
keyDown = unsafeEventName (toJSString "keydown")
keyPress ::
(IsDocument self, IsEventTarget self) =>
EventName self KeyboardEvent
keyPress = unsafeEventName (toJSString "keypress")
keyUp ::
(IsDocument self, IsEventTarget self) =>
EventName self KeyboardEvent
keyUp = unsafeEventName (toJSString "keyup")
load ::
(IsDocument self, IsEventTarget self) => EventName self UIEvent
load = unsafeEventName (toJSString "load")
mouseDown ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseDown = unsafeEventName (toJSString "mousedown")
mouseEnter ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseEnter = unsafeEventName (toJSString "mouseenter")
mouseLeave ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseLeave = unsafeEventName (toJSString "mouseleave")
mouseMove ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseMove = unsafeEventName (toJSString "mousemove")
mouseOut ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseOut = unsafeEventName (toJSString "mouseout")
mouseOver ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseOver = unsafeEventName (toJSString "mouseover")
mouseUp ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseUp = unsafeEventName (toJSString "mouseup")
mouseWheel ::
(IsDocument self, IsEventTarget self) => EventName self MouseEvent
mouseWheel = unsafeEventName (toJSString "mousewheel")
readyStateChange ::
(IsDocument self, IsEventTarget self) => EventName self Event
readyStateChange = unsafeEventName (toJSString "readystatechange")
scroll ::
(IsDocument self, IsEventTarget self) => EventName self UIEvent
scroll = unsafeEventName (toJSString "scroll")
select ::
(IsDocument self, IsEventTarget self) => EventName self UIEvent
select = unsafeEventName (toJSString "select")
submit ::
(IsDocument self, IsEventTarget self) => EventName self Event
submit = unsafeEventName (toJSString "submit")
wheel ::
(IsDocument self, IsEventTarget self) => EventName self WheelEvent
wheel = unsafeEventName (toJSString "wheel")
beforeCut ::
(IsDocument self, IsEventTarget self) => EventName self Event
beforeCut = unsafeEventName (toJSString "beforecut")
cut ::
(IsDocument self, IsEventTarget self) => EventName self Event
cut = unsafeEventName (toJSString "cut")
beforeCopy ::
(IsDocument self, IsEventTarget self) => EventName self Event
beforeCopy = unsafeEventName (toJSString "beforecopy")
copy ::
(IsDocument self, IsEventTarget self) => EventName self Event
copy = unsafeEventName (toJSString "copy")
beforePaste ::
(IsDocument self, IsEventTarget self) => EventName self Event
beforePaste = unsafeEventName (toJSString "beforepaste")
paste ::
(IsDocument self, IsEventTarget self) => EventName self Event
paste = unsafeEventName (toJSString "paste")
reset ::
(IsDocument self, IsEventTarget self) => EventName self Event
reset = unsafeEventName (toJSString "reset")
search ::
(IsDocument self, IsEventTarget self) => EventName self Event
search = unsafeEventName (toJSString "search")
selectStart ::
(IsDocument self, IsEventTarget self) => EventName self Event
selectStart = unsafeEventName (toJSString "selectstart")
selectionchange ::
(IsDocument self, IsEventTarget self) =>
EventName self onselectionchange
selectionchange = unsafeEventName (toJSString "selectionchange")
touchStart ::
(IsDocument self, IsEventTarget self) => EventName self TouchEvent
touchStart = unsafeEventName (toJSString "touchstart")
touchMove ::
(IsDocument self, IsEventTarget self) => EventName self TouchEvent
touchMove = unsafeEventName (toJSString "touchmove")
touchEnd ::
(IsDocument self, IsEventTarget self) => EventName self TouchEvent
touchEnd = unsafeEventName (toJSString "touchend")
touchCancel ::
(IsDocument self, IsEventTarget self) => EventName self TouchEvent
touchCancel = unsafeEventName (toJSString "touchcancel")
webKitFullscreenChange ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitFullscreenChange
= unsafeEventName (toJSString "webkitfullscreenchange")
webKitFullscreenError ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitFullscreenError
= unsafeEventName (toJSString "webkitfullscreenerror")
pointerlockchange ::
(IsDocument self, IsEventTarget self) => EventName self Event
pointerlockchange
= unsafeEventName (toJSString "pointerlockchange")
pointerlockerror ::
(IsDocument self, IsEventTarget self) => EventName self Event
pointerlockerror = unsafeEventName (toJSString "pointerlockerror")
securitypolicyviolation ::
(IsDocument self, IsEventTarget self) =>
EventName self onsecuritypolicyviolation
securitypolicyviolation
= unsafeEventName (toJSString "securitypolicyviolation")
webKitWillRevealBottom ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitWillRevealBottom
= unsafeEventName (toJSString "webkitwillrevealbottom")
webKitWillRevealLeft ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitWillRevealLeft
= unsafeEventName (toJSString "webkitwillrevealleft")
webKitWillRevealRight ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitWillRevealRight
= unsafeEventName (toJSString "webkitwillrevealright")
webKitWillRevealTop ::
(IsDocument self, IsEventTarget self) => EventName self Event
webKitWillRevealTop
= unsafeEventName (toJSString "webkitwillrevealtop")
foreign import javascript unsafe "$1[\"visibilityState\"]"
js_getVisibilityState :: Document -> IO JSString
getVisibilityState ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getVisibilityState self
= liftIO
(fromJSString <$> (js_getVisibilityState (toDocument self)))
foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"
js_getHidden :: Document -> IO Bool
getHidden :: (MonadIO m, IsDocument self) => self -> m Bool
getHidden self = liftIO (js_getHidden (toDocument self))
foreign import javascript unsafe "$1[\"securityPolicy\"]"
js_getSecurityPolicy :: Document -> IO (Nullable SecurityPolicy)
getSecurityPolicy ::
(MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy)
getSecurityPolicy self
= liftIO
(nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))
getSecurityPolicyUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m SecurityPolicy
getSecurityPolicyUnsafe self
= liftIO
((nullableToMaybe <$> (js_getSecurityPolicy (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getSecurityPolicyUnchecked ::
(MonadIO m, IsDocument self) => self -> m SecurityPolicy
getSecurityPolicyUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getSecurityPolicy (toDocument self)))
foreign import javascript unsafe "$1[\"currentScript\"]"
js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)
getCurrentScript ::
(MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)
getCurrentScript self
= liftIO
(nullableToMaybe <$> (js_getCurrentScript (toDocument self)))
getCurrentScriptUnsafe ::
(MonadIO m, IsDocument self, HasCallStack) =>
self -> m HTMLScriptElement
getCurrentScriptUnsafe self
= liftIO
((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCurrentScriptUnchecked ::
(MonadIO m, IsDocument self) => self -> m HTMLScriptElement
getCurrentScriptUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getCurrentScript (toDocument self)))
foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::
Document -> IO JSString
getOrigin ::
(MonadIO m, IsDocument self, FromJSString result) =>
self -> m result
getOrigin self
= liftIO (fromJSString <$> (js_getOrigin (toDocument self)))