module JSDOM.Generated.DOMTokenList
(item, item_, itemUnsafe, itemUnchecked, contains, contains_, add,
remove, toggle, toggle_, toString, toString_, getLength,
DOMTokenList(..), gTypeDOMTokenList, IsDOMTokenList,
toDOMTokenList)
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
item ::
(MonadDOM m, IsDOMTokenList self, FromJSString result) =>
self -> Word -> m (Maybe result)
item self index
= liftDOM
(((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>=
fromMaybeJSString)
item_ :: (MonadDOM m, IsDOMTokenList self) => self -> Word -> m ()
item_ self index
= liftDOM
(void ((toDOMTokenList self) ^. jsf "item" [toJSVal index]))
itemUnsafe ::
(MonadDOM m, IsDOMTokenList self, HasCallStack,
FromJSString result) =>
self -> Word -> m result
itemUnsafe self index
= liftDOM
((((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>=
fromMaybeJSString)
>>= maybe (Prelude.error "Nothing to return") return)
itemUnchecked ::
(MonadDOM m, IsDOMTokenList self, FromJSString result) =>
self -> Word -> m result
itemUnchecked self index
= liftDOM
(((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>=
fromJSValUnchecked)
contains ::
(MonadDOM m, IsDOMTokenList self, ToJSString token) =>
self -> token -> m Bool
contains self token
= liftDOM
(((toDOMTokenList self) ^. jsf "contains" [toJSVal token]) >>=
valToBool)
contains_ ::
(MonadDOM m, IsDOMTokenList self, ToJSString token) =>
self -> token -> m ()
contains_ self token
= liftDOM
(void ((toDOMTokenList self) ^. jsf "contains" [toJSVal token]))
add ::
(MonadDOM m, IsDOMTokenList self, ToJSString tokens,
ToJSVal tokens) =>
self -> [tokens] -> m ()
add self tokens
= liftDOM
(void
((toDOMTokenList self) ^. jsf "add" [toJSVal (array tokens)]))
remove ::
(MonadDOM m, IsDOMTokenList self, ToJSString tokens,
ToJSVal tokens) =>
self -> [tokens] -> m ()
remove self tokens
= liftDOM
(void
((toDOMTokenList self) ^. jsf "remove" [toJSVal (array tokens)]))
toggle ::
(MonadDOM m, IsDOMTokenList self, ToJSString token) =>
self -> token -> Bool -> m Bool
toggle self token force
= liftDOM
(((toDOMTokenList self) ^. jsf "toggle"
[toJSVal token, toJSVal force])
>>= valToBool)
toggle_ ::
(MonadDOM m, IsDOMTokenList self, ToJSString token) =>
self -> token -> Bool -> m ()
toggle_ self token force
= liftDOM
(void
((toDOMTokenList self) ^. jsf "toggle"
[toJSVal token, toJSVal force]))
toString ::
(MonadDOM m, IsDOMTokenList self, FromJSString result) =>
self -> m result
toString self
= liftDOM
(((toDOMTokenList self) ^. jsf "toString" ()) >>=
fromJSValUnchecked)
toString_ :: (MonadDOM m, IsDOMTokenList self) => self -> m ()
toString_ self
= liftDOM (void ((toDOMTokenList self) ^. jsf "toString" ()))
getLength :: (MonadDOM m, IsDOMTokenList self) => self -> m Word
getLength self
= liftDOM
(round <$>
(((toDOMTokenList self) ^. js "length") >>= valToNumber))