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