{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Document (js_newDocument, newDocument, js_createElement, createElement, js_createDocumentFragment, createDocumentFragment, js_createTextNode, createTextNode, js_createComment, createComment, js_createCDATASection, createCDATASection, js_createProcessingInstruction, createProcessingInstruction, js_createAttribute, createAttribute, js_createEntityReference, createEntityReference, js_getElementsByTagName, getElementsByTagName, js_importNode, importNode, js_createElementNS, createElementNS, js_createAttributeNS, createAttributeNS, js_getElementsByTagNameNS, getElementsByTagNameNS, js_getElementById, getElementById, js_adoptNode, adoptNode, js_createEvent, createEvent, js_createRange, createRange, js_createNodeIterator, createNodeIterator, js_createTreeWalker, createTreeWalker, js_getOverrideStyle, getOverrideStyle, js_createExpression, createExpression, js_createNSResolver, createNSResolver, js_evaluate, evaluate, js_execCommand, execCommand, js_queryCommandEnabled, queryCommandEnabled, js_queryCommandIndeterm, queryCommandIndeterm, js_queryCommandState, queryCommandState, js_queryCommandSupported, queryCommandSupported, js_queryCommandValue, queryCommandValue, js_getElementsByName, getElementsByName, js_elementFromPoint, elementFromPoint, js_caretRangeFromPoint, caretRangeFromPoint, js_getSelection, getSelection, js_getCSSCanvasContext, getCSSCanvasContext, js_getElementsByClassName, getElementsByClassName, js_hasFocus, hasFocus, js_querySelector, querySelector, js_querySelectorAll, querySelectorAll, js_webkitCancelFullScreen, webkitCancelFullScreen, js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock, exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows, js_createTouch, createTouch, js_createTouchList, createTouchList, js_getDoctype, getDoctype, js_getImplementation, getImplementation, js_getDocumentElement, getDocumentElement, js_getInputEncoding, getInputEncoding, js_getXmlEncoding, getXmlEncoding, js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion, js_setXmlStandalone, setXmlStandalone, js_getXmlStandalone, getXmlStandalone, js_getDocumentURI, getDocumentURI, js_getDefaultView, getDefaultView, js_getStyleSheets, getStyleSheets, js_getContentType, getContentType, js_setTitle, setTitle, js_getTitle, getTitle, js_getReferrer, getReferrer, js_setDomain, setDomain, js_getDomain, getDomain, js_getURL, getURL, js_setCookie, setCookie, js_getCookie, getCookie, js_setBody, setBody, js_getBody, getBody, js_getHead, getHead, js_getImages, getImages, js_getApplets, getApplets, js_getLinks, getLinks, js_getForms, getForms, js_getAnchors, getAnchors, js_getLastModified, getLastModified, js_setLocation, setLocation, js_getLocation, getLocation, js_setCharset, setCharset, js_getCharset, getCharset, js_getDefaultCharset, getDefaultCharset, js_getReadyState, getReadyState, js_getCharacterSet, getCharacterSet, js_getPreferredStylesheetSet, getPreferredStylesheetSet, js_setSelectedStylesheetSet, setSelectedStylesheetSet, js_getSelectedStylesheetSet, getSelectedStylesheetSet, js_getActiveElement, getActiveElement, js_getCompatMode, getCompatMode, js_getWebkitIsFullScreen, getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed, getWebkitFullScreenKeyboardInputAllowed, js_getWebkitCurrentFullScreenElement, getWebkitCurrentFullScreenElement, js_getWebkitFullscreenEnabled, getWebkitFullscreenEnabled, js_getWebkitFullscreenElement, getWebkitFullscreenElement, js_getPointerLockElement, getPointerLockElement, js_getFonts, getFonts, 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, js_getCurrentScript, getCurrentScript, js_getOrigin, getOrigin, Document, castToDocument, gTypeDocument, IsDocument, toDocument) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (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.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "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))) 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))) 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'))) 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'))) 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'))) 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'))) 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))) 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))) 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))) 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)) 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))) 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))) 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))) 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))) 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)))) 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))) 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))) 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)) 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)) 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))) 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))) 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)))) 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))) 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)) 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)) 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)) 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)) 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)) 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))) 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))) 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)) 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)) 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))) 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)) 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))) 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)) 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))) 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))) 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))) 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)) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) -- | 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))) 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))) 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)))