module JSDOM.Generated.NamedNodeMap
(getNamedItem, getNamedItem_, getNamedItemUnsafe,
getNamedItemUnchecked, setNamedItem, setNamedItem_,
setNamedItemUnsafe, setNamedItemUnchecked, removeNamedItem,
removeNamedItem_, removeNamedItemUnsafe, removeNamedItemUnchecked,
item, item_, itemUnsafe, itemUnchecked, getNamedItemNS,
getNamedItemNS_, getNamedItemNSUnsafe, getNamedItemNSUnchecked,
setNamedItemNS, setNamedItemNS_, setNamedItemNSUnsafe,
setNamedItemNSUnchecked, removeNamedItemNS, removeNamedItemNS_,
removeNamedItemNSUnsafe, removeNamedItemNSUnchecked, getLength,
NamedNodeMap(..), gTypeNamedNodeMap)
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 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
getNamedItem ::
(MonadDOM m, ToJSString name) =>
NamedNodeMap -> name -> m (Maybe Node)
getNamedItem self name
= liftDOM
((self ^. jsf "getNamedItem" [toJSVal name]) >>= fromJSVal)
getNamedItem_ ::
(MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m ()
getNamedItem_ self name
= liftDOM (void (self ^. jsf "getNamedItem" [toJSVal name]))
getNamedItemUnsafe ::
(MonadDOM m, ToJSString name, HasCallStack) =>
NamedNodeMap -> name -> m Node
getNamedItemUnsafe self name
= liftDOM
(((self ^. jsf "getNamedItem" [toJSVal name]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getNamedItemUnchecked ::
(MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Node
getNamedItemUnchecked self name
= liftDOM
((self ^. jsf "getNamedItem" [toJSVal name]) >>=
fromJSValUnchecked)
setNamedItem ::
(MonadDOM m, IsNode node) =>
NamedNodeMap -> Maybe node -> m (Maybe Node)
setNamedItem self node
= liftDOM
((self ^. jsf "setNamedItem" [toJSVal node]) >>= fromJSVal)
setNamedItem_ ::
(MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m ()
setNamedItem_ self node
= liftDOM (void (self ^. jsf "setNamedItem" [toJSVal node]))
setNamedItemUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
NamedNodeMap -> Maybe node -> m Node
setNamedItemUnsafe self node
= liftDOM
(((self ^. jsf "setNamedItem" [toJSVal node]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
setNamedItemUnchecked ::
(MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m Node
setNamedItemUnchecked self node
= liftDOM
((self ^. jsf "setNamedItem" [toJSVal node]) >>=
fromJSValUnchecked)
removeNamedItem ::
(MonadDOM m, ToJSString name) =>
NamedNodeMap -> name -> m (Maybe Node)
removeNamedItem self name
= liftDOM
((self ^. jsf "removeNamedItem" [toJSVal name]) >>= fromJSVal)
removeNamedItem_ ::
(MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m ()
removeNamedItem_ self name
= liftDOM (void (self ^. jsf "removeNamedItem" [toJSVal name]))
removeNamedItemUnsafe ::
(MonadDOM m, ToJSString name, HasCallStack) =>
NamedNodeMap -> name -> m Node
removeNamedItemUnsafe self name
= liftDOM
(((self ^. jsf "removeNamedItem" [toJSVal name]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
removeNamedItemUnchecked ::
(MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Node
removeNamedItemUnchecked self name
= liftDOM
((self ^. jsf "removeNamedItem" [toJSVal name]) >>=
fromJSValUnchecked)
item :: (MonadDOM m) => NamedNodeMap -> Word -> m (Maybe Node)
item self index
= liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)
item_ :: (MonadDOM m) => NamedNodeMap -> Word -> m ()
item_ self index
= liftDOM (void (self ^. jsf "item" [toJSVal index]))
itemUnsafe ::
(MonadDOM m, HasCallStack) => NamedNodeMap -> Word -> m Node
itemUnsafe self index
= liftDOM
(((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
itemUnchecked :: (MonadDOM m) => NamedNodeMap -> Word -> m Node
itemUnchecked self index
= liftDOM
((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked)
getNamedItemNS ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)
getNamedItemNS self namespaceURI localName
= liftDOM
((self ^. jsf "getNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
getNamedItemNS_ ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m ()
getNamedItemNS_ self namespaceURI localName
= liftDOM
(void
(self ^. jsf "getNamedItemNS"
[toJSVal namespaceURI, toJSVal localName]))
getNamedItemNSUnsafe ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName,
HasCallStack) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m Node
getNamedItemNSUnsafe self namespaceURI localName
= liftDOM
(((self ^. jsf "getNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getNamedItemNSUnchecked ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m Node
getNamedItemNSUnchecked self namespaceURI localName
= liftDOM
((self ^. jsf "getNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSValUnchecked)
setNamedItemNS ::
(MonadDOM m, IsNode node) =>
NamedNodeMap -> Maybe node -> m (Maybe Node)
setNamedItemNS self node
= liftDOM
((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= fromJSVal)
setNamedItemNS_ ::
(MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m ()
setNamedItemNS_ self node
= liftDOM (void (self ^. jsf "setNamedItemNS" [toJSVal node]))
setNamedItemNSUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
NamedNodeMap -> Maybe node -> m Node
setNamedItemNSUnsafe self node
= liftDOM
(((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
setNamedItemNSUnchecked ::
(MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m Node
setNamedItemNSUnchecked self node
= liftDOM
((self ^. jsf "setNamedItemNS" [toJSVal node]) >>=
fromJSValUnchecked)
removeNamedItemNS ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)
removeNamedItemNS self namespaceURI localName
= liftDOM
((self ^. jsf "removeNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
removeNamedItemNS_ ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m ()
removeNamedItemNS_ self namespaceURI localName
= liftDOM
(void
(self ^. jsf "removeNamedItemNS"
[toJSVal namespaceURI, toJSVal localName]))
removeNamedItemNSUnsafe ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName,
HasCallStack) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m Node
removeNamedItemNSUnsafe self namespaceURI localName
= liftDOM
(((self ^. jsf "removeNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
removeNamedItemNSUnchecked ::
(MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>
NamedNodeMap -> Maybe namespaceURI -> localName -> m Node
removeNamedItemNSUnchecked self namespaceURI localName
= liftDOM
((self ^. jsf "removeNamedItemNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSValUnchecked)
getLength :: (MonadDOM m) => NamedNodeMap -> m Word
getLength self
= liftDOM (round <$> ((self ^. js "length") >>= valToNumber))