module JSDOM.Generated.NamedNodeMap
(getNamedItem, getNamedItem_, getNamedItemUnchecked, setNamedItem,
setNamedItem_, setNamedItemUnchecked, removeNamedItem,
removeNamedItem_, removeNamedItemUnchecked, item, item_,
itemUnchecked, getNamedItemNS, getNamedItemNS_,
getNamedItemNSUnchecked, setNamedItemNS, setNamedItemNS_,
setNamedItemNSUnchecked, removeNamedItemNS, removeNamedItemNS_,
removeNamedItemNSUnchecked, getLength, NamedNodeMap,
castToNamedNodeMap, gTypeNamedNodeMap)
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
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]))
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]))
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]))
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]))
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]))
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]))
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]))
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))