module JSDOM.Generated.Node
(insertBefore, insertBefore_, replaceChild, replaceChild_,
removeChild, removeChild_, appendChild, appendChild_,
hasChildNodes, hasChildNodes_, cloneNode, cloneNode_, normalize,
isSameNode, isSameNode_, isEqualNode, isEqualNode_, lookupPrefix,
lookupPrefix_, lookupPrefixUnsafe, lookupPrefixUnchecked,
lookupNamespaceURI, lookupNamespaceURI_, lookupNamespaceURIUnsafe,
lookupNamespaceURIUnchecked, isDefaultNamespace,
isDefaultNamespace_, compareDocumentPosition,
compareDocumentPosition_, contains, contains_, getRootNode,
getRootNode_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,
pattern TEXT_NODE, pattern CDATA_SECTION_NODE,
pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE,
pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE,
pattern DOCUMENT_NODE, pattern DOCUMENT_TYPE_NODE,
pattern DOCUMENT_FRAGMENT_NODE, pattern NOTATION_NODE,
pattern DOCUMENT_POSITION_DISCONNECTED,
pattern DOCUMENT_POSITION_PRECEDING,
pattern DOCUMENT_POSITION_FOLLOWING,
pattern DOCUMENT_POSITION_CONTAINS,
pattern DOCUMENT_POSITION_CONTAINED_BY,
pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeName,
setNodeValue, getNodeValue, getNodeValueUnsafe,
getNodeValueUnchecked, getNodeType, getParentNode,
getParentNodeUnsafe, getParentNodeUnchecked, getChildNodes,
getFirstChild, getFirstChildUnsafe, getFirstChildUnchecked,
getLastChild, getLastChildUnsafe, getLastChildUnchecked,
getPreviousSibling, getPreviousSiblingUnsafe,
getPreviousSiblingUnchecked, getNextSibling, getNextSiblingUnsafe,
getNextSiblingUnchecked, getOwnerDocument, getOwnerDocumentUnsafe,
getOwnerDocumentUnchecked, getBaseURI, setTextContent,
getTextContent, getTextContentUnsafe, getTextContentUnchecked,
getIsConnected, getParentElement, getParentElementUnsafe,
getParentElementUnchecked, Node(..), gTypeNode, IsNode, toNode)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!))
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
insertBefore ::
(MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) =>
self -> newChild -> Maybe refChild -> m Node
insertBefore self newChild refChild
= liftDOM
(((toNode self) ^. jsf "insertBefore"
[toJSVal newChild, toJSVal refChild])
>>= fromJSValUnchecked)
insertBefore_ ::
(MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) =>
self -> newChild -> Maybe refChild -> m ()
insertBefore_ self newChild refChild
= liftDOM
(void
((toNode self) ^. jsf "insertBefore"
[toJSVal newChild, toJSVal refChild]))
replaceChild ::
(MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) =>
self -> newChild -> oldChild -> m Node
replaceChild self newChild oldChild
= liftDOM
(((toNode self) ^. jsf "replaceChild"
[toJSVal newChild, toJSVal oldChild])
>>= fromJSValUnchecked)
replaceChild_ ::
(MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) =>
self -> newChild -> oldChild -> m ()
replaceChild_ self newChild oldChild
= liftDOM
(void
((toNode self) ^. jsf "replaceChild"
[toJSVal newChild, toJSVal oldChild]))
removeChild ::
(MonadDOM m, IsNode self, IsNode oldChild) =>
self -> oldChild -> m Node
removeChild self oldChild
= liftDOM
(((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>=
fromJSValUnchecked)
removeChild_ ::
(MonadDOM m, IsNode self, IsNode oldChild) =>
self -> oldChild -> m ()
removeChild_ self oldChild
= liftDOM
(void ((toNode self) ^. jsf "removeChild" [toJSVal oldChild]))
appendChild ::
(MonadDOM m, IsNode self, IsNode newChild) =>
self -> newChild -> m Node
appendChild self newChild
= liftDOM
(((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>=
fromJSValUnchecked)
appendChild_ ::
(MonadDOM m, IsNode self, IsNode newChild) =>
self -> newChild -> m ()
appendChild_ self newChild
= liftDOM
(void ((toNode self) ^. jsf "appendChild" [toJSVal newChild]))
hasChildNodes :: (MonadDOM m, IsNode self) => self -> m Bool
hasChildNodes self
= liftDOM (((toNode self) ^. jsf "hasChildNodes" ()) >>= valToBool)
hasChildNodes_ :: (MonadDOM m, IsNode self) => self -> m ()
hasChildNodes_ self
= liftDOM (void ((toNode self) ^. jsf "hasChildNodes" ()))
cloneNode :: (MonadDOM m, IsNode self) => self -> Bool -> m Node
cloneNode self deep
= liftDOM
(((toNode self) ^. jsf "cloneNode" [toJSVal deep]) >>=
fromJSValUnchecked)
cloneNode_ :: (MonadDOM m, IsNode self) => self -> Bool -> m ()
cloneNode_ self deep
= liftDOM (void ((toNode self) ^. jsf "cloneNode" [toJSVal deep]))
normalize :: (MonadDOM m, IsNode self) => self -> m ()
normalize self
= liftDOM (void ((toNode self) ^. jsf "normalize" ()))
isSameNode ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
isSameNode self other
= liftDOM
(((toNode self) ^. jsf "isSameNode" [toJSVal other]) >>= valToBool)
isSameNode_ ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
isSameNode_ self other
= liftDOM
(void ((toNode self) ^. jsf "isSameNode" [toJSVal other]))
isEqualNode ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
isEqualNode self other
= liftDOM
(((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>=
valToBool)
isEqualNode_ ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
isEqualNode_ self other
= liftDOM
(void ((toNode self) ^. jsf "isEqualNode" [toJSVal other]))
lookupPrefix ::
(MonadDOM m, IsNode self, ToJSString namespaceURI,
FromJSString result) =>
self -> Maybe namespaceURI -> m (Maybe result)
lookupPrefix self namespaceURI
= liftDOM
(((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>=
fromJSVal)
lookupPrefix_ ::
(MonadDOM m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m ()
lookupPrefix_ self namespaceURI
= liftDOM
(void ((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]))
lookupPrefixUnsafe ::
(MonadDOM m, IsNode self, ToJSString namespaceURI, HasCallStack,
FromJSString result) =>
self -> Maybe namespaceURI -> m result
lookupPrefixUnsafe self namespaceURI
= liftDOM
((((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
lookupPrefixUnchecked ::
(MonadDOM m, IsNode self, ToJSString namespaceURI,
FromJSString result) =>
self -> Maybe namespaceURI -> m result
lookupPrefixUnchecked self namespaceURI
= liftDOM
(((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>=
fromJSValUnchecked)
lookupNamespaceURI ::
(MonadDOM m, IsNode self, ToJSString prefix,
FromJSString result) =>
self -> Maybe prefix -> m (Maybe result)
lookupNamespaceURI self prefix
= liftDOM
(((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=
fromJSVal)
lookupNamespaceURI_ ::
(MonadDOM m, IsNode self, ToJSString prefix) =>
self -> Maybe prefix -> m ()
lookupNamespaceURI_ self prefix
= liftDOM
(void ((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]))
lookupNamespaceURIUnsafe ::
(MonadDOM m, IsNode self, ToJSString prefix, HasCallStack,
FromJSString result) =>
self -> Maybe prefix -> m result
lookupNamespaceURIUnsafe self prefix
= liftDOM
((((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
lookupNamespaceURIUnchecked ::
(MonadDOM m, IsNode self, ToJSString prefix,
FromJSString result) =>
self -> Maybe prefix -> m result
lookupNamespaceURIUnchecked self prefix
= liftDOM
(((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=
fromJSValUnchecked)
isDefaultNamespace ::
(MonadDOM m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m Bool
isDefaultNamespace self namespaceURI
= liftDOM
(((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI])
>>= valToBool)
isDefaultNamespace_ ::
(MonadDOM m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m ()
isDefaultNamespace_ self namespaceURI
= liftDOM
(void
((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI]))
compareDocumentPosition ::
(MonadDOM m, IsNode self, IsNode other) => self -> other -> m Word
compareDocumentPosition self other
= liftDOM
(round <$>
(((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])
>>= valToNumber))
compareDocumentPosition_ ::
(MonadDOM m, IsNode self, IsNode other) => self -> other -> m ()
compareDocumentPosition_ self other
= liftDOM
(void
((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other]))
contains ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
contains self other
= liftDOM
(((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool)
contains_ ::
(MonadDOM m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
contains_ self other
= liftDOM (void ((toNode self) ^. jsf "contains" [toJSVal other]))
getRootNode ::
(MonadDOM m, IsNode self) =>
self -> Maybe GetRootNodeOptions -> m Node
getRootNode self options
= liftDOM
(((toNode self) ^. jsf "getRootNode" [toJSVal options]) >>=
fromJSValUnchecked)
getRootNode_ ::
(MonadDOM m, IsNode self) =>
self -> Maybe GetRootNodeOptions -> m ()
getRootNode_ self options
= liftDOM
(void ((toNode self) ^. jsf "getRootNode" [toJSVal options]))
pattern ELEMENT_NODE = 1
pattern ATTRIBUTE_NODE = 2
pattern TEXT_NODE = 3
pattern CDATA_SECTION_NODE = 4
pattern ENTITY_REFERENCE_NODE = 5
pattern ENTITY_NODE = 6
pattern PROCESSING_INSTRUCTION_NODE = 7
pattern COMMENT_NODE = 8
pattern DOCUMENT_NODE = 9
pattern DOCUMENT_TYPE_NODE = 10
pattern DOCUMENT_FRAGMENT_NODE = 11
pattern NOTATION_NODE = 12
pattern DOCUMENT_POSITION_DISCONNECTED = 1
pattern DOCUMENT_POSITION_PRECEDING = 2
pattern DOCUMENT_POSITION_FOLLOWING = 4
pattern DOCUMENT_POSITION_CONTAINS = 8
pattern DOCUMENT_POSITION_CONTAINED_BY = 16
pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32
getNodeName ::
(MonadDOM m, IsNode self, FromJSString result) => self -> m result
getNodeName self
= liftDOM (((toNode self) ^. js "nodeName") >>= fromJSValUnchecked)
setNodeValue ::
(MonadDOM m, IsNode self, ToJSString val) =>
self -> Maybe val -> m ()
setNodeValue self val
= liftDOM ((toNode self) ^. jss "nodeValue" (toJSVal val))
getNodeValue ::
(MonadDOM m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getNodeValue self
= liftDOM (((toNode self) ^. js "nodeValue") >>= fromJSVal)
getNodeValueUnsafe ::
(MonadDOM m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getNodeValueUnsafe self
= liftDOM
((((toNode self) ^. js "nodeValue") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getNodeValueUnchecked ::
(MonadDOM m, IsNode self, FromJSString result) => self -> m result
getNodeValueUnchecked self
= liftDOM
(((toNode self) ^. js "nodeValue") >>= fromJSValUnchecked)
getNodeType :: (MonadDOM m, IsNode self) => self -> m Word
getNodeType self
= liftDOM
(round <$> (((toNode self) ^. js "nodeType") >>= valToNumber))
getParentNode ::
(MonadDOM m, IsNode self) => self -> m (Maybe Node)
getParentNode self
= liftDOM (((toNode self) ^. js "parentNode") >>= fromJSVal)
getParentNodeUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Node
getParentNodeUnsafe self
= liftDOM
((((toNode self) ^. js "parentNode") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getParentNodeUnchecked ::
(MonadDOM m, IsNode self) => self -> m Node
getParentNodeUnchecked self
= liftDOM
(((toNode self) ^. js "parentNode") >>= fromJSValUnchecked)
getChildNodes :: (MonadDOM m, IsNode self) => self -> m NodeList
getChildNodes self
= liftDOM
(((toNode self) ^. js "childNodes") >>= fromJSValUnchecked)
getFirstChild ::
(MonadDOM m, IsNode self) => self -> m (Maybe Node)
getFirstChild self
= liftDOM (((toNode self) ^. js "firstChild") >>= fromJSVal)
getFirstChildUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Node
getFirstChildUnsafe self
= liftDOM
((((toNode self) ^. js "firstChild") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFirstChildUnchecked ::
(MonadDOM m, IsNode self) => self -> m Node
getFirstChildUnchecked self
= liftDOM
(((toNode self) ^. js "firstChild") >>= fromJSValUnchecked)
getLastChild :: (MonadDOM m, IsNode self) => self -> m (Maybe Node)
getLastChild self
= liftDOM (((toNode self) ^. js "lastChild") >>= fromJSVal)
getLastChildUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Node
getLastChildUnsafe self
= liftDOM
((((toNode self) ^. js "lastChild") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getLastChildUnchecked ::
(MonadDOM m, IsNode self) => self -> m Node
getLastChildUnchecked self
= liftDOM
(((toNode self) ^. js "lastChild") >>= fromJSValUnchecked)
getPreviousSibling ::
(MonadDOM m, IsNode self) => self -> m (Maybe Node)
getPreviousSibling self
= liftDOM (((toNode self) ^. js "previousSibling") >>= fromJSVal)
getPreviousSiblingUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Node
getPreviousSiblingUnsafe self
= liftDOM
((((toNode self) ^. js "previousSibling") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getPreviousSiblingUnchecked ::
(MonadDOM m, IsNode self) => self -> m Node
getPreviousSiblingUnchecked self
= liftDOM
(((toNode self) ^. js "previousSibling") >>= fromJSValUnchecked)
getNextSibling ::
(MonadDOM m, IsNode self) => self -> m (Maybe Node)
getNextSibling self
= liftDOM (((toNode self) ^. js "nextSibling") >>= fromJSVal)
getNextSiblingUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Node
getNextSiblingUnsafe self
= liftDOM
((((toNode self) ^. js "nextSibling") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getNextSiblingUnchecked ::
(MonadDOM m, IsNode self) => self -> m Node
getNextSiblingUnchecked self
= liftDOM
(((toNode self) ^. js "nextSibling") >>= fromJSValUnchecked)
getOwnerDocument ::
(MonadDOM m, IsNode self) => self -> m (Maybe Document)
getOwnerDocument self
= liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal)
getOwnerDocumentUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Document
getOwnerDocumentUnsafe self
= liftDOM
((((toNode self) ^. js "ownerDocument") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getOwnerDocumentUnchecked ::
(MonadDOM m, IsNode self) => self -> m Document
getOwnerDocumentUnchecked self
= liftDOM
(((toNode self) ^. js "ownerDocument") >>= fromJSValUnchecked)
getBaseURI ::
(MonadDOM m, IsNode self, FromJSString result) => self -> m result
getBaseURI self
= liftDOM (((toNode self) ^. js "baseURI") >>= fromJSValUnchecked)
setTextContent ::
(MonadDOM m, IsNode self, ToJSString val) =>
self -> Maybe val -> m ()
setTextContent self val
= liftDOM ((toNode self) ^. jss "textContent" (toJSVal val))
getTextContent ::
(MonadDOM m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getTextContent self
= liftDOM (((toNode self) ^. js "textContent") >>= fromJSVal)
getTextContentUnsafe ::
(MonadDOM m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getTextContentUnsafe self
= liftDOM
((((toNode self) ^. js "textContent") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTextContentUnchecked ::
(MonadDOM m, IsNode self, FromJSString result) => self -> m result
getTextContentUnchecked self
= liftDOM
(((toNode self) ^. js "textContent") >>= fromJSValUnchecked)
getIsConnected :: (MonadDOM m, IsNode self) => self -> m Bool
getIsConnected self
= liftDOM (((toNode self) ^. js "isConnected") >>= valToBool)
getParentElement ::
(MonadDOM m, IsNode self) => self -> m (Maybe Element)
getParentElement self
= liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal)
getParentElementUnsafe ::
(MonadDOM m, IsNode self, HasCallStack) => self -> m Element
getParentElementUnsafe self
= liftDOM
((((toNode self) ^. js "parentElement") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getParentElementUnchecked ::
(MonadDOM m, IsNode self) => self -> m Element
getParentElementUnchecked self
= liftDOM
(((toNode self) ^. js "parentElement") >>= fromJSValUnchecked)