module JSDOM.Generated.Document
(newDocument, createElement, createDocumentFragment,
createTextNode, createComment, createCDATASection,
createProcessingInstruction, createAttribute,
createEntityReference, getElementsByTagName, importNode,
createElementNS, createAttributeNS, getElementsByTagNameNS,
getElementById, adoptNode, createEvent, createRange,
createNodeIterator, createTreeWalker, getOverrideStyle,
createExpression, createNSResolver, evaluate, execCommand,
queryCommandEnabled, queryCommandIndeterm, queryCommandState,
queryCommandSupported, queryCommandValue, getElementsByName,
elementFromPoint, caretRangeFromPoint, getSelection,
getCSSCanvasContext, getElementsByClassName, hasFocus,
querySelector, querySelectorAll, webkitCancelFullScreen,
webkitExitFullscreen, exitPointerLock, webkitGetNamedFlows,
createTouch, createTouchList, getDoctype, getImplementation,
getDocumentElement, getInputEncoding, getXmlEncoding,
setXmlVersion, getXmlVersion, setXmlStandalone, getXmlStandalone,
getDocumentURI, getDefaultView, getStyleSheets, getContentType,
setTitle, getTitle, getReferrer, setDomain, getDomain, getURL,
setCookie, getCookie, setBody, getBody, getHead, getImages,
getApplets, getLinks, getForms, getAnchors, getLastModified,
setLocation, getLocation, setCharset, getCharset,
getDefaultCharset, getReadyState, getCharacterSet,
getPreferredStylesheetSet, setSelectedStylesheetSet,
getSelectedStylesheetSet, getActiveElement, getCompatMode,
getWebkitIsFullScreen, getWebkitFullScreenKeyboardInputAllowed,
getWebkitCurrentFullScreenElement, getWebkitFullscreenEnabled,
getWebkitFullscreenElement, getPointerLockElement, 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,
getVisibilityState, getHidden, getSecurityPolicy, getCurrentScript,
getOrigin, Document, castToDocument, gTypeDocument, IsDocument,
toDocument)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
newDocument :: (MonadDOM m) => m Document
newDocument = liftDOM (Document <$> new (jsg "Document") ())
createElement ::
(MonadDOM m, IsDocument self, ToJSString tagName) =>
self -> Maybe tagName -> m (Maybe Element)
createElement self tagName
= liftDOM
(((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>=
fromJSVal)
createDocumentFragment ::
(MonadDOM m, IsDocument self) => self -> m (Maybe DocumentFragment)
createDocumentFragment self
= liftDOM
(((toDocument self) ^. js "createDocumentFragment") >>= fromJSVal)
createTextNode ::
(MonadDOM m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe Text)
createTextNode self data'
= liftDOM
(((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>=
fromJSVal)
createComment ::
(MonadDOM m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe Comment)
createComment self data'
= liftDOM
(((toDocument self) ^. jsf "createComment" [toJSVal data']) >>=
fromJSVal)
createCDATASection ::
(MonadDOM m, IsDocument self, ToJSString data') =>
self -> data' -> m (Maybe CDATASection)
createCDATASection self data'
= liftDOM
(((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])
>>= fromJSVal)
createProcessingInstruction ::
(MonadDOM m, IsDocument self, ToJSString target,
ToJSString data') =>
self -> target -> data' -> m (Maybe ProcessingInstruction)
createProcessingInstruction self target data'
= liftDOM
(((toDocument self) ^. jsf "createProcessingInstruction"
[toJSVal target, toJSVal data'])
>>= fromJSVal)
createAttribute ::
(MonadDOM m, IsDocument self, ToJSString name) =>
self -> name -> m (Maybe Attr)
createAttribute self name
= liftDOM
(((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>=
fromJSVal)
createEntityReference ::
(MonadDOM m, IsDocument self, ToJSString name) =>
self -> name -> m (Maybe EntityReference)
createEntityReference self name
= liftDOM
(((toDocument self) ^. jsf "createEntityReference" [toJSVal name])
>>= fromJSVal)
getElementsByTagName ::
(MonadDOM m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m (Maybe NodeList)
getElementsByTagName self tagname
= liftDOM
(((toDocument self) ^. jsf "getElementsByTagName"
[toJSVal tagname])
>>= fromJSVal)
importNode ::
(MonadDOM m, IsDocument self, IsNode importedNode) =>
self -> Maybe importedNode -> Bool -> m (Maybe Node)
importNode self importedNode deep
= liftDOM
(((toDocument self) ^. jsf "importNode"
[toJSVal importedNode, toJSVal deep])
>>= fromJSVal)
createElementNS ::
(MonadDOM m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self ->
Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)
createElementNS self namespaceURI qualifiedName
= liftDOM
(((toDocument self) ^. jsf "createElementNS"
[toJSVal namespaceURI, toJSVal qualifiedName])
>>= fromJSVal)
createAttributeNS ::
(MonadDOM m, IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)
createAttributeNS self namespaceURI qualifiedName
= liftDOM
(((toDocument self) ^. jsf "createAttributeNS"
[toJSVal namespaceURI, toJSVal qualifiedName])
>>= fromJSVal)
getElementsByTagNameNS ::
(MonadDOM m, IsDocument self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)
getElementsByTagNameNS self namespaceURI localName
= liftDOM
(((toDocument self) ^. jsf "getElementsByTagNameNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
getElementById ::
(MonadDOM m, IsDocument self, ToJSString elementId) =>
self -> elementId -> m (Maybe Element)
getElementById self elementId
= liftDOM
(((toDocument self) ^. jsf "getElementById" [toJSVal elementId])
>>= fromJSVal)
adoptNode ::
(MonadDOM m, IsDocument self, IsNode source) =>
self -> Maybe source -> m (Maybe Node)
adoptNode self source
= liftDOM
(((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>=
fromJSVal)
createEvent ::
(MonadDOM m, IsDocument self, ToJSString eventType) =>
self -> eventType -> m (Maybe Event)
createEvent self eventType
= liftDOM
(((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>=
fromJSVal)
createRange ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Range)
createRange self
= liftDOM (((toDocument self) ^. js "createRange") >>= fromJSVal)
createNodeIterator ::
(MonadDOM m, IsDocument self, IsNode root) =>
self ->
Maybe root ->
Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)
createNodeIterator self root whatToShow filter
expandEntityReferences
= liftDOM
(((toDocument self) ^. jsf "createNodeIterator"
[toJSVal root, toJSVal whatToShow, toJSVal filter,
toJSVal expandEntityReferences])
>>= fromJSVal)
createTreeWalker ::
(MonadDOM m, IsDocument self, IsNode root) =>
self ->
Maybe root ->
Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)
createTreeWalker self root whatToShow filter expandEntityReferences
= liftDOM
(((toDocument self) ^. jsf "createTreeWalker"
[toJSVal root, toJSVal whatToShow, toJSVal filter,
toJSVal expandEntityReferences])
>>= fromJSVal)
getOverrideStyle ::
(MonadDOM m, IsDocument self, IsElement element,
ToJSString pseudoElement) =>
self ->
Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)
getOverrideStyle self element pseudoElement
= liftDOM
(((toDocument self) ^. jsf "getOverrideStyle"
[toJSVal element, toJSVal pseudoElement])
>>= fromJSVal)
createExpression ::
(MonadDOM m, IsDocument self, ToJSString expression) =>
self ->
expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)
createExpression self expression resolver
= liftDOM
(((toDocument self) ^. jsf "createExpression"
[toJSVal expression, toJSVal resolver])
>>= fromJSVal)
createNSResolver ::
(MonadDOM m, IsDocument self, IsNode nodeResolver) =>
self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)
createNSResolver self nodeResolver
= liftDOM
(((toDocument self) ^. jsf "createNSResolver"
[toJSVal nodeResolver])
>>= fromJSVal)
evaluate ::
(MonadDOM 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
= liftDOM
(((toDocument self) ^. jsf "evaluate"
[toJSVal expression, toJSVal contextNode, toJSVal resolver,
toJSVal type', toJSVal inResult])
>>= fromJSVal)
execCommand ::
(MonadDOM m, IsDocument self, ToJSString command,
ToJSString value) =>
self -> command -> Bool -> Maybe value -> m Bool
execCommand self command userInterface value
= liftDOM
(((toDocument self) ^. jsf "execCommand"
[toJSVal command, toJSVal userInterface, toJSVal value])
>>= valToBool)
queryCommandEnabled ::
(MonadDOM m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandEnabled self command
= liftDOM
(((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command])
>>= valToBool)
queryCommandIndeterm ::
(MonadDOM m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandIndeterm self command
= liftDOM
(((toDocument self) ^. jsf "queryCommandIndeterm"
[toJSVal command])
>>= valToBool)
queryCommandState ::
(MonadDOM m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandState self command
= liftDOM
(((toDocument self) ^. jsf "queryCommandState" [toJSVal command])
>>= valToBool)
queryCommandSupported ::
(MonadDOM m, IsDocument self, ToJSString command) =>
self -> command -> m Bool
queryCommandSupported self command
= liftDOM
(((toDocument self) ^. jsf "queryCommandSupported"
[toJSVal command])
>>= valToBool)
queryCommandValue ::
(MonadDOM m, IsDocument self, ToJSString command,
FromJSString result) =>
self -> command -> m result
queryCommandValue self command
= liftDOM
(((toDocument self) ^. jsf "queryCommandValue" [toJSVal command])
>>= fromJSValUnchecked)
getElementsByName ::
(MonadDOM m, IsDocument self, ToJSString elementName) =>
self -> elementName -> m (Maybe NodeList)
getElementsByName self elementName
= liftDOM
(((toDocument self) ^. jsf "getElementsByName"
[toJSVal elementName])
>>= fromJSVal)
elementFromPoint ::
(MonadDOM m, IsDocument self) =>
self -> Int -> Int -> m (Maybe Element)
elementFromPoint self x y
= liftDOM
(((toDocument self) ^. jsf "elementFromPoint"
[toJSVal x, toJSVal y])
>>= fromJSVal)
caretRangeFromPoint ::
(MonadDOM m, IsDocument self) =>
self -> Int -> Int -> m (Maybe Range)
caretRangeFromPoint self x y
= liftDOM
(((toDocument self) ^. jsf "caretRangeFromPoint"
[toJSVal x, toJSVal y])
>>= fromJSVal)
getSelection ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Selection)
getSelection self
= liftDOM (((toDocument self) ^. js "getSelection") >>= fromJSVal)
getCSSCanvasContext ::
(MonadDOM m, IsDocument self, ToJSString contextId,
ToJSString name) =>
self ->
contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)
getCSSCanvasContext self contextId name width height
= liftDOM
(((toDocument self) ^. jsf "getCSSCanvasContext"
[toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])
>>= fromJSVal)
getElementsByClassName ::
(MonadDOM m, IsDocument self, ToJSString tagname) =>
self -> tagname -> m (Maybe NodeList)
getElementsByClassName self tagname
= liftDOM
(((toDocument self) ^. jsf "getElementsByClassName"
[toJSVal tagname])
>>= fromJSVal)
hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool
hasFocus self
= liftDOM (((toDocument self) ^. js "hasFocus") >>= valToBool)
querySelector ::
(MonadDOM m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m (Maybe Element)
querySelector self selectors
= liftDOM
(((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>=
fromJSVal)
querySelectorAll ::
(MonadDOM m, IsDocument self, ToJSString selectors) =>
self -> selectors -> m (Maybe NodeList)
querySelectorAll self selectors
= liftDOM
(((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors])
>>= fromJSVal)
webkitCancelFullScreen ::
(MonadDOM m, IsDocument self) => self -> m ()
webkitCancelFullScreen self
= liftDOM (void ((toDocument self) ^. js "webkitCancelFullScreen"))
webkitExitFullscreen ::
(MonadDOM m, IsDocument self) => self -> m ()
webkitExitFullscreen self
= liftDOM (void ((toDocument self) ^. js "webkitExitFullscreen"))
exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m ()
exitPointerLock self
= liftDOM (void ((toDocument self) ^. js "exitPointerLock"))
webkitGetNamedFlows ::
(MonadDOM m, IsDocument self) =>
self -> m (Maybe DOMNamedFlowCollection)
webkitGetNamedFlows self
= liftDOM
(((toDocument self) ^. js "webkitGetNamedFlows") >>= fromJSVal)
createTouch ::
(MonadDOM 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
= liftDOM
(((toDocument self) ^. jsf "createTouch"
[toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX,
toJSVal pageY, toJSVal screenX, toJSVal screenY,
toJSVal webkitRadiusX, toJSVal webkitRadiusY,
toJSVal webkitRotationAngle, toJSVal webkitForce])
>>= fromJSVal)
createTouchList ::
(MonadDOM m, IsDocument self) => self -> m (Maybe TouchList)
createTouchList self
= liftDOM
(((toDocument self) ^. js "createTouchList") >>= fromJSVal)
getDoctype ::
(MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType)
getDoctype self
= liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal)
getImplementation ::
(MonadDOM m, IsDocument self) =>
self -> m (Maybe DOMImplementation)
getImplementation self
= liftDOM
(((toDocument self) ^. js "implementation") >>= fromJSVal)
getDocumentElement ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Element)
getDocumentElement self
= liftDOM
(((toDocument self) ^. js "documentElement") >>= fromJSVal)
getInputEncoding ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getInputEncoding self
= liftDOM
(((toDocument self) ^. js "inputEncoding") >>= fromMaybeJSString)
getXmlEncoding ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getXmlEncoding self
= liftDOM
(((toDocument self) ^. js "xmlEncoding") >>= fromMaybeJSString)
setXmlVersion ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setXmlVersion self val
= liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val))
getXmlVersion ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getXmlVersion self
= liftDOM
(((toDocument self) ^. js "xmlVersion") >>= fromMaybeJSString)
setXmlStandalone ::
(MonadDOM m, IsDocument self) => self -> Bool -> m ()
setXmlStandalone self val
= liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val))
getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool
getXmlStandalone self
= liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool)
getDocumentURI ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDocumentURI self
= liftDOM
(((toDocument self) ^. js "documentURI") >>= fromMaybeJSString)
getDefaultView ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Window)
getDefaultView self
= liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal)
getStyleSheets ::
(MonadDOM m, IsDocument self) => self -> m (Maybe StyleSheetList)
getStyleSheets self
= liftDOM (((toDocument self) ^. js "styleSheets") >>= fromJSVal)
getContentType ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getContentType self
= liftDOM
(((toDocument self) ^. js "contentType") >>= fromJSValUnchecked)
setTitle ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setTitle self val
= liftDOM ((toDocument self) ^. jss "title" (toJSVal val))
getTitle ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getTitle self
= liftDOM (((toDocument self) ^. js "title") >>= fromMaybeJSString)
getReferrer ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getReferrer self
= liftDOM
(((toDocument self) ^. js "referrer") >>= fromJSValUnchecked)
setDomain ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setDomain self val
= liftDOM ((toDocument self) ^. jss "domain" (toJSVal val))
getDomain ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDomain self
= liftDOM
(((toDocument self) ^. js "domain") >>= fromMaybeJSString)
getURL ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getURL self
= liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked)
setCookie ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setCookie self val
= liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val))
getCookie ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCookie self
= liftDOM
(((toDocument self) ^. js "cookie") >>= fromMaybeJSString)
setBody ::
(MonadDOM m, IsDocument self, IsHTMLElement val) =>
self -> Maybe val -> m ()
setBody self val
= liftDOM ((toDocument self) ^. jss "body" (toJSVal val))
getBody ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement)
getBody self
= liftDOM (((toDocument self) ^. js "body") >>= fromJSVal)
getHead ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement)
getHead self
= liftDOM (((toDocument self) ^. js "head") >>= fromJSVal)
getImages ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)
getImages self
= liftDOM (((toDocument self) ^. js "images") >>= fromJSVal)
getApplets ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)
getApplets self
= liftDOM (((toDocument self) ^. js "applets") >>= fromJSVal)
getLinks ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)
getLinks self
= liftDOM (((toDocument self) ^. js "links") >>= fromJSVal)
getForms ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)
getForms self
= liftDOM (((toDocument self) ^. js "forms") >>= fromJSVal)
getAnchors ::
(MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)
getAnchors self
= liftDOM (((toDocument self) ^. js "anchors") >>= fromJSVal)
getLastModified ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getLastModified self
= liftDOM
(((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked)
setLocation ::
(MonadDOM m, IsDocument self) => self -> Maybe Location -> m ()
setLocation self val
= liftDOM ((toDocument self) ^. jss "location" (toJSVal val))
getLocation ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Location)
getLocation self
= liftDOM (((toDocument self) ^. js "location") >>= fromJSVal)
setCharset ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setCharset self val
= liftDOM ((toDocument self) ^. jss "charset" (toJSVal val))
getCharset ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCharset self
= liftDOM
(((toDocument self) ^. js "charset") >>= fromMaybeJSString)
getDefaultCharset ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getDefaultCharset self
= liftDOM
(((toDocument self) ^. js "defaultCharset") >>= fromMaybeJSString)
getReadyState ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getReadyState self
= liftDOM
(((toDocument self) ^. js "readyState") >>= fromMaybeJSString)
getCharacterSet ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getCharacterSet self
= liftDOM
(((toDocument self) ^. js "characterSet") >>= fromMaybeJSString)
getPreferredStylesheetSet ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getPreferredStylesheetSet self
= liftDOM
(((toDocument self) ^. js "preferredStylesheetSet") >>=
fromMaybeJSString)
setSelectedStylesheetSet ::
(MonadDOM m, IsDocument self, ToJSString val) =>
self -> Maybe val -> m ()
setSelectedStylesheetSet self val
= liftDOM
((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val))
getSelectedStylesheetSet ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m (Maybe result)
getSelectedStylesheetSet self
= liftDOM
(((toDocument self) ^. js "selectedStylesheetSet") >>=
fromMaybeJSString)
getActiveElement ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Element)
getActiveElement self
= liftDOM (((toDocument self) ^. js "activeElement") >>= fromJSVal)
getCompatMode ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getCompatMode self
= liftDOM
(((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked)
getWebkitIsFullScreen ::
(MonadDOM m, IsDocument self) => self -> m Bool
getWebkitIsFullScreen self
= liftDOM
(((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool)
getWebkitFullScreenKeyboardInputAllowed ::
(MonadDOM m, IsDocument self) => self -> m Bool
getWebkitFullScreenKeyboardInputAllowed self
= liftDOM
(((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed")
>>= valToBool)
getWebkitCurrentFullScreenElement ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Element)
getWebkitCurrentFullScreenElement self
= liftDOM
(((toDocument self) ^. js "webkitCurrentFullScreenElement") >>=
fromJSVal)
getWebkitFullscreenEnabled ::
(MonadDOM m, IsDocument self) => self -> m Bool
getWebkitFullscreenEnabled self
= liftDOM
(((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool)
getWebkitFullscreenElement ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Element)
getWebkitFullscreenElement self
= liftDOM
(((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal)
getPointerLockElement ::
(MonadDOM m, IsDocument self) => self -> m (Maybe Element)
getPointerLockElement self
= liftDOM
(((toDocument self) ^. js "pointerLockElement") >>= fromJSVal)
getFonts ::
(MonadDOM m, IsDocument self) => self -> m (Maybe FontLoader)
getFonts self
= liftDOM (((toDocument self) ^. js "fonts") >>= fromJSVal)
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")
getVisibilityState ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getVisibilityState self
= liftDOM
(((toDocument self) ^. js "visibilityState") >>=
fromJSValUnchecked)
getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool
getHidden self
= liftDOM (((toDocument self) ^. js "hidden") >>= valToBool)
getSecurityPolicy ::
(MonadDOM m, IsDocument self) => self -> m (Maybe SecurityPolicy)
getSecurityPolicy self
= liftDOM
(((toDocument self) ^. js "securityPolicy") >>= fromJSVal)
getCurrentScript ::
(MonadDOM m, IsDocument self) =>
self -> m (Maybe HTMLScriptElement)
getCurrentScript self
= liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal)
getOrigin ::
(MonadDOM m, IsDocument self, FromJSString result) =>
self -> m result
getOrigin self
= liftDOM
(((toDocument self) ^. js "origin") >>= fromJSValUnchecked)