#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
module GHCJS.DOM.Document
(ghcjs_dom_document_create_element, documentCreateElement,
ghcjs_dom_document_create_document_fragment,
documentCreateDocumentFragment,
ghcjs_dom_document_create_text_node, documentCreateTextNode,
ghcjs_dom_document_create_comment, documentCreateComment,
ghcjs_dom_document_create_cdata_section,
documentCreateCDATASection,
ghcjs_dom_document_create_processing_instruction,
documentCreateProcessingInstruction,
ghcjs_dom_document_create_attribute, documentCreateAttribute,
ghcjs_dom_document_create_entity_reference,
documentCreateEntityReference,
ghcjs_dom_document_get_elements_by_tag_name,
documentGetElementsByTagName, ghcjs_dom_document_import_node,
documentImportNode, ghcjs_dom_document_create_element_ns,
documentCreateElementNS, ghcjs_dom_document_create_attribute_ns,
documentCreateAttributeNS,
ghcjs_dom_document_get_elements_by_tag_name_ns,
documentGetElementsByTagNameNS,
ghcjs_dom_document_get_element_by_id, documentGetElementById,
ghcjs_dom_document_adopt_node, documentAdoptNode,
ghcjs_dom_document_create_event, documentCreateEvent,
ghcjs_dom_document_create_range, documentCreateRange,
ghcjs_dom_document_create_node_iterator,
documentCreateNodeIterator, ghcjs_dom_document_create_tree_walker,
documentCreateTreeWalker, ghcjs_dom_document_get_override_style,
documentGetOverrideStyle, ghcjs_dom_document_create_expression,
documentCreateExpression, ghcjs_dom_document_create_ns_resolver,
documentCreateNSResolver, ghcjs_dom_document_evaluate,
documentEvaluate, ghcjs_dom_document_exec_command,
documentExecCommand, ghcjs_dom_document_query_command_enabled,
documentQueryCommandEnabled,
ghcjs_dom_document_query_command_indeterm,
documentQueryCommandIndeterm,
ghcjs_dom_document_query_command_state, documentQueryCommandState,
ghcjs_dom_document_query_command_supported,
documentQueryCommandSupported,
ghcjs_dom_document_query_command_value, documentQueryCommandValue,
ghcjs_dom_document_get_elements_by_name, documentGetElementsByName,
ghcjs_dom_document_element_from_point, documentElementFromPoint,
ghcjs_dom_document_caret_range_from_point,
documentCaretRangeFromPoint,
ghcjs_dom_document_create_css_style_declaration,
documentCreateCSSStyleDeclaration,
ghcjs_dom_document_get_elements_by_class_name,
documentGetElementsByClassName, ghcjs_dom_document_query_selector,
documentQuerySelector, ghcjs_dom_document_query_selector_all,
documentQuerySelectorAll,
ghcjs_dom_document_webkit_exit_pointer_lock,
documentWebkitExitPointerLock,
ghcjs_dom_document_webkit_get_named_flows,
documentWebkitGetNamedFlows, ghcjs_dom_document_get_doctype,
documentGetDoctype, ghcjs_dom_document_get_implementation,
documentGetImplementation, ghcjs_dom_document_get_document_element,
documentGetDocumentElement, ghcjs_dom_document_get_input_encoding,
documentGetInputEncoding, ghcjs_dom_document_get_xml_encoding,
documentGetXmlEncoding, ghcjs_dom_document_set_xml_version,
documentSetXmlVersion, ghcjs_dom_document_get_xml_version,
documentGetXmlVersion, ghcjs_dom_document_set_xml_standalone,
documentSetXmlStandalone, ghcjs_dom_document_get_xml_standalone,
documentGetXmlStandalone, ghcjs_dom_document_set_document_uri,
documentSetDocumentURI, ghcjs_dom_document_get_document_uri,
documentGetDocumentURI, ghcjs_dom_document_get_default_view,
documentGetDefaultView, ghcjs_dom_document_get_style_sheets,
documentGetStyleSheets, ghcjs_dom_document_set_title,
documentSetTitle, ghcjs_dom_document_get_title, documentGetTitle,
ghcjs_dom_document_get_referrer, documentGetReferrer,
ghcjs_dom_document_get_domain, documentGetDomain,
ghcjs_dom_document_set_cookie, documentSetCookie,
ghcjs_dom_document_get_cookie, documentGetCookie,
ghcjs_dom_document_set_body, documentSetBody,
ghcjs_dom_document_get_body, documentGetBody,
ghcjs_dom_document_get_head, documentGetHead,
ghcjs_dom_document_get_images, documentGetImages,
ghcjs_dom_document_get_applets, documentGetApplets,
ghcjs_dom_document_get_links, documentGetLinks,
ghcjs_dom_document_get_forms, documentGetForms,
ghcjs_dom_document_get_anchors, documentGetAnchors,
ghcjs_dom_document_get_last_modified, documentGetLastModified,
ghcjs_dom_document_set_charset, documentSetCharset,
ghcjs_dom_document_get_charset, documentGetCharset,
ghcjs_dom_document_get_default_charset, documentGetDefaultCharset,
ghcjs_dom_document_get_ready_state, documentGetReadyState,
ghcjs_dom_document_get_character_set, documentGetCharacterSet,
ghcjs_dom_document_get_preferred_stylesheet_set,
documentGetPreferredStylesheetSet,
ghcjs_dom_document_set_selected_stylesheet_set,
documentSetSelectedStylesheetSet,
ghcjs_dom_document_get_selected_stylesheet_set,
documentGetSelectedStylesheetSet,
ghcjs_dom_document_get_compat_mode, documentGetCompatMode,
ghcjs_dom_document_get_webkit_pointer_lock_element,
documentGetWebkitPointerLockElement, documentOnabort,
documentOnblur, documentOnchange, documentOnclick,
documentOncontextmenu, documentOndblclick, documentOndrag,
documentOndragend, documentOndragenter, documentOndragleave,
documentOndragover, documentOndragstart, documentOndrop,
documentOnerror, documentOnfocus, documentOninput,
documentOninvalid, documentOnkeydown, documentOnkeypress,
documentOnkeyup, documentOnload, documentOnmousedown,
documentOnmouseenter, documentOnmouseleave, documentOnmousemove,
documentOnmouseout, documentOnmouseover, documentOnmouseup,
documentOnmousewheel, documentOnreadystatechange, documentOnscroll,
documentOnselect, documentOnsubmit, documentOnbeforecut,
documentOncut, documentOnbeforecopy, documentOncopy,
documentOnbeforepaste, documentOnpaste, documentOnreset,
documentOnsearch, documentOnselectstart, documentOnselectionchange,
documentOntouchstart, documentOntouchmove, documentOntouchend,
documentOntouchcancel, documentOnwebkitfullscreenchange,
documentOnwebkitfullscreenerror, documentOnwebkitpointerlockchange,
documentOnwebkitpointerlockerror,
documentOnsecuritypolicyviolation,
ghcjs_dom_document_get_visibility_state,
documentGetVisibilityState, ghcjs_dom_document_get_hidden,
documentGetHidden, ghcjs_dom_document_get_security_policy,
documentGetSecurityPolicy, ghcjs_dom_document_get_current_script,
documentGetCurrentScript, Document, IsDocument, castToDocument,
gTypeDocument, toDocument)
where
import GHCJS.Types
import GHCJS.Foreign
import Data.Word
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventM
import GHCJS.Types
import GHCJS.Foreign
import Data.Word
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventM
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createElement\"]($2)"
ghcjs_dom_document_create_element ::
JSRef Document -> JSString -> IO (JSRef Element)
#else
ghcjs_dom_document_create_element ::
JSRef Document -> JSString -> IO (JSRef Element)
ghcjs_dom_document_create_element = undefined
#endif
documentCreateElement ::
(IsDocument self, ToJSString tagName) =>
self -> tagName -> IO (Maybe Element)
documentCreateElement self tagName
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_create_element (unDocument (toDocument self))
(toJSString tagName))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"
ghcjs_dom_document_create_document_fragment ::
JSRef Document -> IO (JSRef DocumentFragment)
#else
ghcjs_dom_document_create_document_fragment ::
JSRef Document -> IO (JSRef DocumentFragment)
ghcjs_dom_document_create_document_fragment = undefined
#endif
documentCreateDocumentFragment ::
(IsDocument self) => self -> IO (Maybe DocumentFragment)
documentCreateDocumentFragment self
= fmap DocumentFragment . maybeJSNull <$>
(ghcjs_dom_document_create_document_fragment
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createTextNode\"]($2)"
ghcjs_dom_document_create_text_node ::
JSRef Document -> JSString -> IO (JSRef Text)
#else
ghcjs_dom_document_create_text_node ::
JSRef Document -> JSString -> IO (JSRef Text)
ghcjs_dom_document_create_text_node = undefined
#endif
documentCreateTextNode ::
(IsDocument self, ToJSString data') =>
self -> data' -> IO (Maybe Text)
documentCreateTextNode self data'
= fmap Text . maybeJSNull <$>
(ghcjs_dom_document_create_text_node (unDocument (toDocument self))
(toJSString data'))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createComment\"]($2)"
ghcjs_dom_document_create_comment ::
JSRef Document -> JSString -> IO (JSRef Comment)
#else
ghcjs_dom_document_create_comment ::
JSRef Document -> JSString -> IO (JSRef Comment)
ghcjs_dom_document_create_comment = undefined
#endif
documentCreateComment ::
(IsDocument self, ToJSString data') =>
self -> data' -> IO (Maybe Comment)
documentCreateComment self data'
= fmap Comment . maybeJSNull <$>
(ghcjs_dom_document_create_comment (unDocument (toDocument self))
(toJSString data'))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"
ghcjs_dom_document_create_cdata_section ::
JSRef Document -> JSString -> IO (JSRef CDATASection)
#else
ghcjs_dom_document_create_cdata_section ::
JSRef Document -> JSString -> IO (JSRef CDATASection)
ghcjs_dom_document_create_cdata_section = undefined
#endif
documentCreateCDATASection ::
(IsDocument self, ToJSString data') =>
self -> data' -> IO (Maybe CDATASection)
documentCreateCDATASection self data'
= fmap CDATASection . maybeJSNull <$>
(ghcjs_dom_document_create_cdata_section
(unDocument (toDocument self))
(toJSString data'))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createProcessingInstruction\"]($2,\n$3)"
ghcjs_dom_document_create_processing_instruction ::
JSRef Document ->
JSString -> JSString -> IO (JSRef ProcessingInstruction)
#else
ghcjs_dom_document_create_processing_instruction ::
JSRef Document ->
JSString ->
JSString -> IO (JSRef ProcessingInstruction)
ghcjs_dom_document_create_processing_instruction = undefined
#endif
documentCreateProcessingInstruction ::
(IsDocument self, ToJSString target, ToJSString data') =>
self -> target -> data' -> IO (Maybe ProcessingInstruction)
documentCreateProcessingInstruction self target data'
= fmap ProcessingInstruction . maybeJSNull <$>
(ghcjs_dom_document_create_processing_instruction
(unDocument (toDocument self))
(toJSString target)
(toJSString data'))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createAttribute\"]($2)"
ghcjs_dom_document_create_attribute ::
JSRef Document -> JSString -> IO (JSRef DOMAttr)
#else
ghcjs_dom_document_create_attribute ::
JSRef Document -> JSString -> IO (JSRef DOMAttr)
ghcjs_dom_document_create_attribute = undefined
#endif
documentCreateAttribute ::
(IsDocument self, ToJSString name) =>
self -> name -> IO (Maybe DOMAttr)
documentCreateAttribute self name
= fmap DOMAttr . maybeJSNull <$>
(ghcjs_dom_document_create_attribute (unDocument (toDocument self))
(toJSString name))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createEntityReference\"]($2)"
ghcjs_dom_document_create_entity_reference ::
JSRef Document -> JSString -> IO (JSRef EntityReference)
#else
ghcjs_dom_document_create_entity_reference ::
JSRef Document ->
JSString -> IO (JSRef EntityReference)
ghcjs_dom_document_create_entity_reference = undefined
#endif
documentCreateEntityReference ::
(IsDocument self, ToJSString name) =>
self -> name -> IO (Maybe EntityReference)
documentCreateEntityReference self name
= fmap EntityReference . maybeJSNull <$>
(ghcjs_dom_document_create_entity_reference
(unDocument (toDocument self))
(toJSString name))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"
ghcjs_dom_document_get_elements_by_tag_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
#else
ghcjs_dom_document_get_elements_by_tag_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
ghcjs_dom_document_get_elements_by_tag_name = undefined
#endif
documentGetElementsByTagName ::
(IsDocument self, ToJSString tagname) =>
self -> tagname -> IO (Maybe NodeList)
documentGetElementsByTagName self tagname
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_document_get_elements_by_tag_name
(unDocument (toDocument self))
(toJSString tagname))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"
ghcjs_dom_document_import_node ::
JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)
#else
ghcjs_dom_document_import_node ::
JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)
ghcjs_dom_document_import_node = undefined
#endif
documentImportNode ::
(IsDocument self, IsNode importedNode) =>
self -> Maybe importedNode -> Bool -> IO (Maybe Node)
documentImportNode self importedNode deep
= fmap Node . maybeJSNull <$>
(ghcjs_dom_document_import_node (unDocument (toDocument self))
(maybe jsNull (unNode . toNode) importedNode)
deep)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"
ghcjs_dom_document_create_element_ns ::
JSRef Document -> JSString -> JSString -> IO (JSRef Element)
#else
ghcjs_dom_document_create_element_ns ::
JSRef Document -> JSString -> JSString -> IO (JSRef Element)
ghcjs_dom_document_create_element_ns = undefined
#endif
documentCreateElementNS ::
(IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> namespaceURI -> qualifiedName -> IO (Maybe Element)
documentCreateElementNS self namespaceURI qualifiedName
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_create_element_ns
(unDocument (toDocument self))
(toJSString namespaceURI)
(toJSString qualifiedName))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createAttributeNS\"]($2, $3)"
ghcjs_dom_document_create_attribute_ns ::
JSRef Document -> JSString -> JSString -> IO (JSRef DOMAttr)
#else
ghcjs_dom_document_create_attribute_ns ::
JSRef Document ->
JSString -> JSString -> IO (JSRef DOMAttr)
ghcjs_dom_document_create_attribute_ns = undefined
#endif
documentCreateAttributeNS ::
(IsDocument self, ToJSString namespaceURI,
ToJSString qualifiedName) =>
self -> namespaceURI -> qualifiedName -> IO (Maybe DOMAttr)
documentCreateAttributeNS self namespaceURI qualifiedName
= fmap DOMAttr . maybeJSNull <$>
(ghcjs_dom_document_create_attribute_ns
(unDocument (toDocument self))
(toJSString namespaceURI)
(toJSString qualifiedName))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"getElementsByTagNameNS\"]($2,\n$3)"
ghcjs_dom_document_get_elements_by_tag_name_ns ::
JSRef Document -> JSString -> JSString -> IO (JSRef NodeList)
#else
ghcjs_dom_document_get_elements_by_tag_name_ns ::
JSRef Document ->
JSString -> JSString -> IO (JSRef NodeList)
ghcjs_dom_document_get_elements_by_tag_name_ns = undefined
#endif
documentGetElementsByTagNameNS ::
(IsDocument self, ToJSString namespaceURI, ToJSString localName) =>
self -> namespaceURI -> localName -> IO (Maybe NodeList)
documentGetElementsByTagNameNS self namespaceURI localName
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_document_get_elements_by_tag_name_ns
(unDocument (toDocument self))
(toJSString namespaceURI)
(toJSString localName))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"getElementById\"]($2)"
ghcjs_dom_document_get_element_by_id ::
JSRef Document -> JSString -> IO (JSRef Element)
#else
ghcjs_dom_document_get_element_by_id ::
JSRef Document -> JSString -> IO (JSRef Element)
ghcjs_dom_document_get_element_by_id = undefined
#endif
documentGetElementById ::
(IsDocument self, ToJSString elementId) =>
self -> elementId -> IO (Maybe Element)
documentGetElementById self elementId
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_get_element_by_id
(unDocument (toDocument self))
(toJSString elementId))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"adoptNode\"]($2)"
ghcjs_dom_document_adopt_node ::
JSRef Document -> JSRef Node -> IO (JSRef Node)
#else
ghcjs_dom_document_adopt_node ::
JSRef Document -> JSRef Node -> IO (JSRef Node)
ghcjs_dom_document_adopt_node = undefined
#endif
documentAdoptNode ::
(IsDocument self, IsNode source) =>
self -> Maybe source -> IO (Maybe Node)
documentAdoptNode self source
= fmap Node . maybeJSNull <$>
(ghcjs_dom_document_adopt_node (unDocument (toDocument self))
(maybe jsNull (unNode . toNode) source))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createEvent\"]($2)"
ghcjs_dom_document_create_event ::
JSRef Document -> JSString -> IO (JSRef Event)
#else
ghcjs_dom_document_create_event ::
JSRef Document -> JSString -> IO (JSRef Event)
ghcjs_dom_document_create_event = undefined
#endif
documentCreateEvent ::
(IsDocument self, ToJSString eventType) =>
self -> eventType -> IO (Maybe Event)
documentCreateEvent self eventType
= fmap Event . maybeJSNull <$>
(ghcjs_dom_document_create_event (unDocument (toDocument self))
(toJSString eventType))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createRange\"]()"
ghcjs_dom_document_create_range ::
JSRef Document -> IO (JSRef DOMRange)
#else
ghcjs_dom_document_create_range ::
JSRef Document -> IO (JSRef DOMRange)
ghcjs_dom_document_create_range = undefined
#endif
documentCreateRange ::
(IsDocument self) => self -> IO (Maybe DOMRange)
documentCreateRange self
= fmap DOMRange . maybeJSNull <$>
(ghcjs_dom_document_create_range (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"
ghcjs_dom_document_create_node_iterator ::
JSRef Document ->
JSRef Node ->
Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)
#else
ghcjs_dom_document_create_node_iterator ::
JSRef Document ->
JSRef Node ->
Word ->
JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)
ghcjs_dom_document_create_node_iterator = undefined
#endif
documentCreateNodeIterator ::
(IsDocument self, IsNode root, IsNodeFilter filter) =>
self ->
Maybe root ->
Word -> Maybe filter -> Bool -> IO (Maybe NodeIterator)
documentCreateNodeIterator self root whatToShow filter
expandEntityReferences
= fmap NodeIterator . maybeJSNull <$>
(ghcjs_dom_document_create_node_iterator
(unDocument (toDocument self))
(maybe jsNull (unNode . toNode) root)
whatToShow
(maybe jsNull (unNodeFilter . toNodeFilter) filter)
expandEntityReferences)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"
ghcjs_dom_document_create_tree_walker ::
JSRef Document ->
JSRef Node ->
Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)
#else
ghcjs_dom_document_create_tree_walker ::
JSRef Document ->
JSRef Node ->
Word ->
JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)
ghcjs_dom_document_create_tree_walker = undefined
#endif
documentCreateTreeWalker ::
(IsDocument self, IsNode root, IsNodeFilter filter) =>
self ->
Maybe root -> Word -> Maybe filter -> Bool -> IO (Maybe TreeWalker)
documentCreateTreeWalker self root whatToShow filter
expandEntityReferences
= fmap TreeWalker . maybeJSNull <$>
(ghcjs_dom_document_create_tree_walker
(unDocument (toDocument self))
(maybe jsNull (unNode . toNode) root)
whatToShow
(maybe jsNull (unNodeFilter . toNodeFilter) filter)
expandEntityReferences)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"
ghcjs_dom_document_get_override_style ::
JSRef Document ->
JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)
#else
ghcjs_dom_document_get_override_style ::
JSRef Document ->
JSRef Element ->
JSString -> IO (JSRef CSSStyleDeclaration)
ghcjs_dom_document_get_override_style = undefined
#endif
documentGetOverrideStyle ::
(IsDocument self, IsElement element, ToJSString pseudoElement) =>
self ->
Maybe element -> pseudoElement -> IO (Maybe CSSStyleDeclaration)
documentGetOverrideStyle self element pseudoElement
= fmap CSSStyleDeclaration . maybeJSNull <$>
(ghcjs_dom_document_get_override_style
(unDocument (toDocument self))
(maybe jsNull (unElement . toElement) element)
(toJSString pseudoElement))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"
ghcjs_dom_document_create_expression ::
JSRef Document ->
JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)
#else
ghcjs_dom_document_create_expression ::
JSRef Document ->
JSString ->
JSRef XPathNSResolver -> IO (JSRef XPathExpression)
ghcjs_dom_document_create_expression = undefined
#endif
documentCreateExpression ::
(IsDocument self, ToJSString expression,
IsXPathNSResolver resolver) =>
self -> expression -> Maybe resolver -> IO (Maybe XPathExpression)
documentCreateExpression self expression resolver
= fmap XPathExpression . maybeJSNull <$>
(ghcjs_dom_document_create_expression
(unDocument (toDocument self))
(toJSString expression)
(maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"
ghcjs_dom_document_create_ns_resolver ::
JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)
#else
ghcjs_dom_document_create_ns_resolver ::
JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)
ghcjs_dom_document_create_ns_resolver = undefined
#endif
documentCreateNSResolver ::
(IsDocument self, IsNode nodeResolver) =>
self -> Maybe nodeResolver -> IO (Maybe XPathNSResolver)
documentCreateNSResolver self nodeResolver
= fmap XPathNSResolver . maybeJSNull <$>
(ghcjs_dom_document_create_ns_resolver
(unDocument (toDocument self))
(maybe jsNull (unNode . toNode) nodeResolver))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate
::
JSRef Document ->
JSString ->
JSRef Node ->
JSRef XPathNSResolver ->
Word -> JSRef XPathResult -> IO (JSRef XPathResult)
#else
ghcjs_dom_document_evaluate ::
JSRef Document ->
JSString ->
JSRef Node ->
JSRef XPathNSResolver ->
Word -> JSRef XPathResult -> IO (JSRef XPathResult)
ghcjs_dom_document_evaluate = undefined
#endif
documentEvaluate ::
(IsDocument self, ToJSString expression, IsNode contextNode,
IsXPathNSResolver resolver, IsXPathResult inResult) =>
self ->
expression ->
Maybe contextNode ->
Maybe resolver -> Word -> Maybe inResult -> IO (Maybe XPathResult)
documentEvaluate self expression contextNode resolver type'
inResult
= fmap XPathResult . maybeJSNull <$>
(ghcjs_dom_document_evaluate (unDocument (toDocument self))
(toJSString expression)
(maybe jsNull (unNode . toNode) contextNode)
(maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver)
type'
(maybe jsNull (unXPathResult . toXPathResult) inResult))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"
ghcjs_dom_document_exec_command ::
JSRef Document -> JSString -> Bool -> JSString -> IO Bool
#else
ghcjs_dom_document_exec_command ::
JSRef Document -> JSString -> Bool -> JSString -> IO Bool
ghcjs_dom_document_exec_command = undefined
#endif
documentExecCommand ::
(IsDocument self, ToJSString command, ToJSString value) =>
self -> command -> Bool -> value -> IO Bool
documentExecCommand self command userInterface value
= ghcjs_dom_document_exec_command (unDocument (toDocument self))
(toJSString command)
userInterface
(toJSString value)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"
ghcjs_dom_document_query_command_enabled ::
JSRef Document -> JSString -> IO Bool
#else
ghcjs_dom_document_query_command_enabled ::
JSRef Document -> JSString -> IO Bool
ghcjs_dom_document_query_command_enabled = undefined
#endif
documentQueryCommandEnabled ::
(IsDocument self, ToJSString command) => self -> command -> IO Bool
documentQueryCommandEnabled self command
= ghcjs_dom_document_query_command_enabled
(unDocument (toDocument self))
(toJSString command)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"
ghcjs_dom_document_query_command_indeterm ::
JSRef Document -> JSString -> IO Bool
#else
ghcjs_dom_document_query_command_indeterm ::
JSRef Document -> JSString -> IO Bool
ghcjs_dom_document_query_command_indeterm = undefined
#endif
documentQueryCommandIndeterm ::
(IsDocument self, ToJSString command) => self -> command -> IO Bool
documentQueryCommandIndeterm self command
= ghcjs_dom_document_query_command_indeterm
(unDocument (toDocument self))
(toJSString command)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"($1[\"queryCommandState\"]($2) ? 1 : 0)"
ghcjs_dom_document_query_command_state ::
JSRef Document -> JSString -> IO Bool
#else
ghcjs_dom_document_query_command_state ::
JSRef Document -> JSString -> IO Bool
ghcjs_dom_document_query_command_state = undefined
#endif
documentQueryCommandState ::
(IsDocument self, ToJSString command) => self -> command -> IO Bool
documentQueryCommandState self command
= ghcjs_dom_document_query_command_state
(unDocument (toDocument self))
(toJSString command)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"($1[\"queryCommandSupported\"]($2) ? 1 : 0)"
ghcjs_dom_document_query_command_supported ::
JSRef Document -> JSString -> IO Bool
#else
ghcjs_dom_document_query_command_supported ::
JSRef Document -> JSString -> IO Bool
ghcjs_dom_document_query_command_supported = undefined
#endif
documentQueryCommandSupported ::
(IsDocument self, ToJSString command) => self -> command -> IO Bool
documentQueryCommandSupported self command
= ghcjs_dom_document_query_command_supported
(unDocument (toDocument self))
(toJSString command)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"
ghcjs_dom_document_query_command_value ::
JSRef Document -> JSString -> IO JSString
#else
ghcjs_dom_document_query_command_value ::
JSRef Document -> JSString -> IO JSString
ghcjs_dom_document_query_command_value = undefined
#endif
documentQueryCommandValue ::
(IsDocument self, ToJSString command, FromJSString result) =>
self -> command -> IO result
documentQueryCommandValue self command
= fromJSString <$>
(ghcjs_dom_document_query_command_value
(unDocument (toDocument self))
(toJSString command))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"
ghcjs_dom_document_get_elements_by_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
#else
ghcjs_dom_document_get_elements_by_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
ghcjs_dom_document_get_elements_by_name = undefined
#endif
documentGetElementsByName ::
(IsDocument self, ToJSString elementName) =>
self -> elementName -> IO (Maybe NodeList)
documentGetElementsByName self elementName
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_document_get_elements_by_name
(unDocument (toDocument self))
(toJSString elementName))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"
ghcjs_dom_document_element_from_point ::
JSRef Document -> Int -> Int -> IO (JSRef Element)
#else
ghcjs_dom_document_element_from_point ::
JSRef Document -> Int -> Int -> IO (JSRef Element)
ghcjs_dom_document_element_from_point = undefined
#endif
documentElementFromPoint ::
(IsDocument self) => self -> Int -> Int -> IO (Maybe Element)
documentElementFromPoint self x y
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_element_from_point
(unDocument (toDocument self))
x
y)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"caretRangeFromPoint\"]($2,\n$3)"
ghcjs_dom_document_caret_range_from_point ::
JSRef Document -> Int -> Int -> IO (JSRef DOMRange)
#else
ghcjs_dom_document_caret_range_from_point ::
JSRef Document -> Int -> Int -> IO (JSRef DOMRange)
ghcjs_dom_document_caret_range_from_point = undefined
#endif
documentCaretRangeFromPoint ::
(IsDocument self) => self -> Int -> Int -> IO (Maybe DOMRange)
documentCaretRangeFromPoint self x y
= fmap DOMRange . maybeJSNull <$>
(ghcjs_dom_document_caret_range_from_point
(unDocument (toDocument self))
x
y)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"createCSSStyleDeclaration\"]()"
ghcjs_dom_document_create_css_style_declaration ::
JSRef Document -> IO (JSRef CSSStyleDeclaration)
#else
ghcjs_dom_document_create_css_style_declaration ::
JSRef Document -> IO (JSRef CSSStyleDeclaration)
ghcjs_dom_document_create_css_style_declaration = undefined
#endif
documentCreateCSSStyleDeclaration ::
(IsDocument self) => self -> IO (Maybe CSSStyleDeclaration)
documentCreateCSSStyleDeclaration self
= fmap CSSStyleDeclaration . maybeJSNull <$>
(ghcjs_dom_document_create_css_style_declaration
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"getElementsByClassName\"]($2)"
ghcjs_dom_document_get_elements_by_class_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
#else
ghcjs_dom_document_get_elements_by_class_name ::
JSRef Document -> JSString -> IO (JSRef NodeList)
ghcjs_dom_document_get_elements_by_class_name = undefined
#endif
documentGetElementsByClassName ::
(IsDocument self, ToJSString tagname) =>
self -> tagname -> IO (Maybe NodeList)
documentGetElementsByClassName self tagname
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_document_get_elements_by_class_name
(unDocument (toDocument self))
(toJSString tagname))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"querySelector\"]($2)"
ghcjs_dom_document_query_selector ::
JSRef Document -> JSString -> IO (JSRef Element)
#else
ghcjs_dom_document_query_selector ::
JSRef Document -> JSString -> IO (JSRef Element)
ghcjs_dom_document_query_selector = undefined
#endif
documentQuerySelector ::
(IsDocument self, ToJSString selectors) =>
self -> selectors -> IO (Maybe Element)
documentQuerySelector self selectors
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_query_selector (unDocument (toDocument self))
(toJSString selectors))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"
ghcjs_dom_document_query_selector_all ::
JSRef Document -> JSString -> IO (JSRef NodeList)
#else
ghcjs_dom_document_query_selector_all ::
JSRef Document -> JSString -> IO (JSRef NodeList)
ghcjs_dom_document_query_selector_all = undefined
#endif
documentQuerySelectorAll ::
(IsDocument self, ToJSString selectors) =>
self -> selectors -> IO (Maybe NodeList)
documentQuerySelectorAll self selectors
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_document_query_selector_all
(unDocument (toDocument self))
(toJSString selectors))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"webkitExitPointerLock\"]()"
ghcjs_dom_document_webkit_exit_pointer_lock ::
JSRef Document -> IO ()
#else
ghcjs_dom_document_webkit_exit_pointer_lock ::
JSRef Document -> IO ()
ghcjs_dom_document_webkit_exit_pointer_lock = undefined
#endif
documentWebkitExitPointerLock :: (IsDocument self) => self -> IO ()
documentWebkitExitPointerLock self
= ghcjs_dom_document_webkit_exit_pointer_lock
(unDocument (toDocument self))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"
ghcjs_dom_document_webkit_get_named_flows ::
JSRef Document -> IO (JSRef DOMNamedFlowCollection)
#else
ghcjs_dom_document_webkit_get_named_flows ::
JSRef Document -> IO (JSRef DOMNamedFlowCollection)
ghcjs_dom_document_webkit_get_named_flows = undefined
#endif
documentWebkitGetNamedFlows ::
(IsDocument self) => self -> IO (Maybe DOMNamedFlowCollection)
documentWebkitGetNamedFlows self
= fmap DOMNamedFlowCollection . maybeJSNull <$>
(ghcjs_dom_document_webkit_get_named_flows
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"doctype\"]"
ghcjs_dom_document_get_doctype ::
JSRef Document -> IO (JSRef DocumentType)
#else
ghcjs_dom_document_get_doctype ::
JSRef Document -> IO (JSRef DocumentType)
ghcjs_dom_document_get_doctype = undefined
#endif
documentGetDoctype ::
(IsDocument self) => self -> IO (Maybe DocumentType)
documentGetDoctype self
= fmap DocumentType . maybeJSNull <$>
(ghcjs_dom_document_get_doctype (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"implementation\"]"
ghcjs_dom_document_get_implementation ::
JSRef Document -> IO (JSRef DOMImplementation)
#else
ghcjs_dom_document_get_implementation ::
JSRef Document -> IO (JSRef DOMImplementation)
ghcjs_dom_document_get_implementation = undefined
#endif
documentGetImplementation ::
(IsDocument self) => self -> IO (Maybe DOMImplementation)
documentGetImplementation self
= fmap DOMImplementation . maybeJSNull <$>
(ghcjs_dom_document_get_implementation
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"documentElement\"]"
ghcjs_dom_document_get_document_element ::
JSRef Document -> IO (JSRef Element)
#else
ghcjs_dom_document_get_document_element ::
JSRef Document -> IO (JSRef Element)
ghcjs_dom_document_get_document_element = undefined
#endif
documentGetDocumentElement ::
(IsDocument self) => self -> IO (Maybe Element)
documentGetDocumentElement self
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_get_document_element
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"inputEncoding\"]"
ghcjs_dom_document_get_input_encoding ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_input_encoding ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_input_encoding = undefined
#endif
documentGetInputEncoding ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetInputEncoding self
= fromJSString <$>
(ghcjs_dom_document_get_input_encoding
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"xmlEncoding\"]"
ghcjs_dom_document_get_xml_encoding ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_xml_encoding ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_xml_encoding = undefined
#endif
documentGetXmlEncoding ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetXmlEncoding self
= fromJSString <$>
(ghcjs_dom_document_get_xml_encoding
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"
ghcjs_dom_document_set_xml_version ::
JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_xml_version ::
JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_xml_version = undefined
#endif
documentSetXmlVersion ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetXmlVersion self val
= ghcjs_dom_document_set_xml_version (unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"xmlVersion\"]"
ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString
ghcjs_dom_document_get_xml_version = undefined
#endif
documentGetXmlVersion ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetXmlVersion self
= fromJSString <$>
(ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"
ghcjs_dom_document_set_xml_standalone ::
JSRef Document -> Bool -> IO ()
#else
ghcjs_dom_document_set_xml_standalone ::
JSRef Document -> Bool -> IO ()
ghcjs_dom_document_set_xml_standalone = undefined
#endif
documentSetXmlStandalone ::
(IsDocument self) => self -> Bool -> IO ()
documentSetXmlStandalone self val
= ghcjs_dom_document_set_xml_standalone
(unDocument (toDocument self))
val
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"
ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool
#else
ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool
ghcjs_dom_document_get_xml_standalone = undefined
#endif
documentGetXmlStandalone :: (IsDocument self) => self -> IO Bool
documentGetXmlStandalone self
= ghcjs_dom_document_get_xml_standalone
(unDocument (toDocument self))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"documentURI\"] = $2;"
ghcjs_dom_document_set_document_uri ::
JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_document_uri ::
JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_document_uri = undefined
#endif
documentSetDocumentURI ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetDocumentURI self val
= ghcjs_dom_document_set_document_uri
(unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"documentURI\"]"
ghcjs_dom_document_get_document_uri ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_document_uri ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_document_uri = undefined
#endif
documentGetDocumentURI ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetDocumentURI self
= fromJSString <$>
(ghcjs_dom_document_get_document_uri
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"defaultView\"]"
ghcjs_dom_document_get_default_view ::
JSRef Document -> IO (JSRef DOMWindow)
#else
ghcjs_dom_document_get_default_view ::
JSRef Document -> IO (JSRef DOMWindow)
ghcjs_dom_document_get_default_view = undefined
#endif
documentGetDefaultView ::
(IsDocument self) => self -> IO (Maybe DOMWindow)
documentGetDefaultView self
= fmap DOMWindow . maybeJSNull <$>
(ghcjs_dom_document_get_default_view
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"styleSheets\"]"
ghcjs_dom_document_get_style_sheets ::
JSRef Document -> IO (JSRef StyleSheetList)
#else
ghcjs_dom_document_get_style_sheets ::
JSRef Document -> IO (JSRef StyleSheetList)
ghcjs_dom_document_get_style_sheets = undefined
#endif
documentGetStyleSheets ::
(IsDocument self) => self -> IO (Maybe StyleSheetList)
documentGetStyleSheets self
= fmap StyleSheetList . maybeJSNull <$>
(ghcjs_dom_document_get_style_sheets
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"title\"] = $2;"
ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_title = undefined
#endif
documentSetTitle ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetTitle self val
= ghcjs_dom_document_set_title (unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"title\"]"
ghcjs_dom_document_get_title :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_title :: JSRef Document -> IO JSString
ghcjs_dom_document_get_title = undefined
#endif
documentGetTitle ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetTitle self
= fromJSString <$>
(ghcjs_dom_document_get_title (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"referrer\"]"
ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString
ghcjs_dom_document_get_referrer = undefined
#endif
documentGetReferrer ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetReferrer self
= fromJSString <$>
(ghcjs_dom_document_get_referrer (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"domain\"]"
ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString
ghcjs_dom_document_get_domain = undefined
#endif
documentGetDomain ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetDomain self
= fromJSString <$>
(ghcjs_dom_document_get_domain (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"cookie\"] = $2;"
ghcjs_dom_document_set_cookie ::
JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_cookie ::
JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_cookie = undefined
#endif
documentSetCookie ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetCookie self val
= ghcjs_dom_document_set_cookie (unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"cookie\"]"
ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString
ghcjs_dom_document_get_cookie = undefined
#endif
documentGetCookie ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetCookie self
= fromJSString <$>
(ghcjs_dom_document_get_cookie (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"body\"] = $2;"
ghcjs_dom_document_set_body ::
JSRef Document -> JSRef HTMLElement -> IO ()
#else
ghcjs_dom_document_set_body ::
JSRef Document -> JSRef HTMLElement -> IO ()
ghcjs_dom_document_set_body = undefined
#endif
documentSetBody ::
(IsDocument self, IsHTMLElement val) => self -> Maybe val -> IO ()
documentSetBody self val
= ghcjs_dom_document_set_body (unDocument (toDocument self))
(maybe jsNull (unHTMLElement . toHTMLElement) val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"body\"]"
ghcjs_dom_document_get_body ::
JSRef Document -> IO (JSRef HTMLElement)
#else
ghcjs_dom_document_get_body ::
JSRef Document -> IO (JSRef HTMLElement)
ghcjs_dom_document_get_body = undefined
#endif
documentGetBody ::
(IsDocument self) => self -> IO (Maybe HTMLElement)
documentGetBody self
= fmap HTMLElement . maybeJSNull <$>
(ghcjs_dom_document_get_body (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"head\"]"
ghcjs_dom_document_get_head ::
JSRef Document -> IO (JSRef HTMLHeadElement)
#else
ghcjs_dom_document_get_head ::
JSRef Document -> IO (JSRef HTMLHeadElement)
ghcjs_dom_document_get_head = undefined
#endif
documentGetHead ::
(IsDocument self) => self -> IO (Maybe HTMLHeadElement)
documentGetHead self
= fmap HTMLHeadElement . maybeJSNull <$>
(ghcjs_dom_document_get_head (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"images\"]"
ghcjs_dom_document_get_images ::
JSRef Document -> IO (JSRef HTMLCollection)
#else
ghcjs_dom_document_get_images ::
JSRef Document -> IO (JSRef HTMLCollection)
ghcjs_dom_document_get_images = undefined
#endif
documentGetImages ::
(IsDocument self) => self -> IO (Maybe HTMLCollection)
documentGetImages self
= fmap HTMLCollection . maybeJSNull <$>
(ghcjs_dom_document_get_images (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"applets\"]"
ghcjs_dom_document_get_applets ::
JSRef Document -> IO (JSRef HTMLCollection)
#else
ghcjs_dom_document_get_applets ::
JSRef Document -> IO (JSRef HTMLCollection)
ghcjs_dom_document_get_applets = undefined
#endif
documentGetApplets ::
(IsDocument self) => self -> IO (Maybe HTMLCollection)
documentGetApplets self
= fmap HTMLCollection . maybeJSNull <$>
(ghcjs_dom_document_get_applets (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"links\"]"
ghcjs_dom_document_get_links ::
JSRef Document -> IO (JSRef HTMLCollection)
#else
ghcjs_dom_document_get_links ::
JSRef Document -> IO (JSRef HTMLCollection)
ghcjs_dom_document_get_links = undefined
#endif
documentGetLinks ::
(IsDocument self) => self -> IO (Maybe HTMLCollection)
documentGetLinks self
= fmap HTMLCollection . maybeJSNull <$>
(ghcjs_dom_document_get_links (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"forms\"]"
ghcjs_dom_document_get_forms ::
JSRef Document -> IO (JSRef HTMLCollection)
#else
ghcjs_dom_document_get_forms ::
JSRef Document -> IO (JSRef HTMLCollection)
ghcjs_dom_document_get_forms = undefined
#endif
documentGetForms ::
(IsDocument self) => self -> IO (Maybe HTMLCollection)
documentGetForms self
= fmap HTMLCollection . maybeJSNull <$>
(ghcjs_dom_document_get_forms (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"anchors\"]"
ghcjs_dom_document_get_anchors ::
JSRef Document -> IO (JSRef HTMLCollection)
#else
ghcjs_dom_document_get_anchors ::
JSRef Document -> IO (JSRef HTMLCollection)
ghcjs_dom_document_get_anchors = undefined
#endif
documentGetAnchors ::
(IsDocument self) => self -> IO (Maybe HTMLCollection)
documentGetAnchors self
= fmap HTMLCollection . maybeJSNull <$>
(ghcjs_dom_document_get_anchors (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"lastModified\"]"
ghcjs_dom_document_get_last_modified ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_last_modified ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_last_modified = undefined
#endif
documentGetLastModified ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetLastModified self
= fromJSString <$>
(ghcjs_dom_document_get_last_modified
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"charset\"] = $2;"
ghcjs_dom_document_set_charset ::
JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_charset ::
JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_charset = undefined
#endif
documentSetCharset ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetCharset self val
= ghcjs_dom_document_set_charset (unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"charset\"]"
ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString
ghcjs_dom_document_get_charset = undefined
#endif
documentGetCharset ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetCharset self
= fromJSString <$>
(ghcjs_dom_document_get_charset (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"defaultCharset\"]"
ghcjs_dom_document_get_default_charset ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_default_charset ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_default_charset = undefined
#endif
documentGetDefaultCharset ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetDefaultCharset self
= fromJSString <$>
(ghcjs_dom_document_get_default_charset
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"readyState\"]"
ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString
ghcjs_dom_document_get_ready_state = undefined
#endif
documentGetReadyState ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetReadyState self
= fromJSString <$>
(ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"characterSet\"]"
ghcjs_dom_document_get_character_set ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_character_set ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_character_set = undefined
#endif
documentGetCharacterSet ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetCharacterSet self
= fromJSString <$>
(ghcjs_dom_document_get_character_set
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"
ghcjs_dom_document_get_preferred_stylesheet_set ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_preferred_stylesheet_set ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_preferred_stylesheet_set = undefined
#endif
documentGetPreferredStylesheetSet ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetPreferredStylesheetSet self
= fromJSString <$>
(ghcjs_dom_document_get_preferred_stylesheet_set
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe
"$1[\"selectedStylesheetSet\"] = $2;"
ghcjs_dom_document_set_selected_stylesheet_set ::
JSRef Document -> JSString -> IO ()
#else
ghcjs_dom_document_set_selected_stylesheet_set ::
JSRef Document -> JSString -> IO ()
ghcjs_dom_document_set_selected_stylesheet_set = undefined
#endif
documentSetSelectedStylesheetSet ::
(IsDocument self, ToJSString val) => self -> val -> IO ()
documentSetSelectedStylesheetSet self val
= ghcjs_dom_document_set_selected_stylesheet_set
(unDocument (toDocument self))
(toJSString val)
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"
ghcjs_dom_document_get_selected_stylesheet_set ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_selected_stylesheet_set ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_selected_stylesheet_set = undefined
#endif
documentGetSelectedStylesheetSet ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetSelectedStylesheetSet self
= fromJSString <$>
(ghcjs_dom_document_get_selected_stylesheet_set
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"compatMode\"]"
ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString
ghcjs_dom_document_get_compat_mode = undefined
#endif
documentGetCompatMode ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetCompatMode self
= fromJSString <$>
(ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"webkitPointerLockElement\"]"
ghcjs_dom_document_get_webkit_pointer_lock_element ::
JSRef Document -> IO (JSRef Element)
#else
ghcjs_dom_document_get_webkit_pointer_lock_element ::
JSRef Document -> IO (JSRef Element)
ghcjs_dom_document_get_webkit_pointer_lock_element = undefined
#endif
documentGetWebkitPointerLockElement ::
(IsDocument self) => self -> IO (Maybe Element)
documentGetWebkitPointerLockElement self
= fmap Element . maybeJSNull <$>
(ghcjs_dom_document_get_webkit_pointer_lock_element
(unDocument (toDocument self)))
documentOnabort ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnabort = (connect "abort")
documentOnblur ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnblur = (connect "blur")
documentOnchange ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnchange = (connect "change")
documentOnclick ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnclick = (connect "click")
documentOncontextmenu ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOncontextmenu = (connect "contextmenu")
documentOndblclick ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndblclick = (connect "dblclick")
documentOndrag ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndrag = (connect "drag")
documentOndragend ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndragend = (connect "dragend")
documentOndragenter ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndragenter = (connect "dragenter")
documentOndragleave ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndragleave = (connect "dragleave")
documentOndragover ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndragover = (connect "dragover")
documentOndragstart ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndragstart = (connect "dragstart")
documentOndrop ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOndrop = (connect "drop")
documentOnerror ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnerror = (connect "error")
documentOnfocus ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnfocus = (connect "focus")
documentOninput ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOninput = (connect "input")
documentOninvalid ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOninvalid = (connect "invalid")
documentOnkeydown ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnkeydown = (connect "keydown")
documentOnkeypress ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnkeypress = (connect "keypress")
documentOnkeyup ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnkeyup = (connect "keyup")
documentOnload ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnload = (connect "load")
documentOnmousedown ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmousedown = (connect "mousedown")
documentOnmouseenter ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnmouseenter = (connect "mouseenter")
documentOnmouseleave ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnmouseleave = (connect "mouseleave")
documentOnmousemove ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmousemove = (connect "mousemove")
documentOnmouseout ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmouseout = (connect "mouseout")
documentOnmouseover ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmouseover = (connect "mouseover")
documentOnmouseup ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmouseup = (connect "mouseup")
documentOnmousewheel ::
(IsDocument self) => Signal self (EventM MouseEvent self ())
documentOnmousewheel = (connect "mousewheel")
documentOnreadystatechange ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnreadystatechange = (connect "readystatechange")
documentOnscroll ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnscroll = (connect "scroll")
documentOnselect ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnselect = (connect "select")
documentOnsubmit ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnsubmit = (connect "submit")
documentOnbeforecut ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnbeforecut = (connect "beforecut")
documentOncut ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOncut = (connect "cut")
documentOnbeforecopy ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnbeforecopy = (connect "beforecopy")
documentOncopy ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOncopy = (connect "copy")
documentOnbeforepaste ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnbeforepaste = (connect "beforepaste")
documentOnpaste ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnpaste = (connect "paste")
documentOnreset ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnreset = (connect "reset")
documentOnsearch ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnsearch = (connect "search")
documentOnselectstart ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnselectstart = (connect "selectstart")
documentOnselectionchange ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnselectionchange = (connect "selectionchange")
documentOntouchstart ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOntouchstart = (connect "touchstart")
documentOntouchmove ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOntouchmove = (connect "touchmove")
documentOntouchend ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOntouchend = (connect "touchend")
documentOntouchcancel ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOntouchcancel = (connect "touchcancel")
documentOnwebkitfullscreenchange ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnwebkitfullscreenchange
= (connect "webkitfullscreenchange")
documentOnwebkitfullscreenerror ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnwebkitfullscreenerror = (connect "webkitfullscreenerror")
documentOnwebkitpointerlockchange ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnwebkitpointerlockchange
= (connect "webkitpointerlockchange")
documentOnwebkitpointerlockerror ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnwebkitpointerlockerror
= (connect "webkitpointerlockerror")
documentOnsecuritypolicyviolation ::
(IsDocument self) => Signal self (EventM UIEvent self ())
documentOnsecuritypolicyviolation
= (connect "securitypolicyviolation")
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"visibilityState\"]"
ghcjs_dom_document_get_visibility_state ::
JSRef Document -> IO JSString
#else
ghcjs_dom_document_get_visibility_state ::
JSRef Document -> IO JSString
ghcjs_dom_document_get_visibility_state = undefined
#endif
documentGetVisibilityState ::
(IsDocument self, FromJSString result) => self -> IO result
documentGetVisibilityState self
= fromJSString <$>
(ghcjs_dom_document_get_visibility_state
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"
ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool
#else
ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool
ghcjs_dom_document_get_hidden = undefined
#endif
documentGetHidden :: (IsDocument self) => self -> IO Bool
documentGetHidden self
= ghcjs_dom_document_get_hidden (unDocument (toDocument self))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"securityPolicy\"]"
ghcjs_dom_document_get_security_policy ::
JSRef Document -> IO (JSRef DOMSecurityPolicy)
#else
ghcjs_dom_document_get_security_policy ::
JSRef Document -> IO (JSRef DOMSecurityPolicy)
ghcjs_dom_document_get_security_policy = undefined
#endif
documentGetSecurityPolicy ::
(IsDocument self) => self -> IO (Maybe DOMSecurityPolicy)
documentGetSecurityPolicy self
= fmap DOMSecurityPolicy . maybeJSNull <$>
(ghcjs_dom_document_get_security_policy
(unDocument (toDocument self)))
#ifdef ghcjs_HOST_OS
foreign import javascript unsafe "$1[\"currentScript\"]"
ghcjs_dom_document_get_current_script ::
JSRef Document -> IO (JSRef HTMLScriptElement)
#else
ghcjs_dom_document_get_current_script ::
JSRef Document -> IO (JSRef HTMLScriptElement)
ghcjs_dom_document_get_current_script = undefined
#endif
documentGetCurrentScript ::
(IsDocument self) => self -> IO (Maybe HTMLScriptElement)
documentGetCurrentScript self
= fmap HTMLScriptElement . maybeJSNull <$>
(ghcjs_dom_document_get_current_script
(unDocument (toDocument self)))
#else
module GHCJS.DOM.Document (
module Graphics.UI.Gtk.WebKit.DOM.Document
) where
import Graphics.UI.Gtk.WebKit.DOM.Document
#endif