module GHCJS.DOM.JSFFI.Generated.DOMTokenList
(js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,
contains, contains_, js_add, add, js_remove, remove, js_toggle,
toggle, toggle_, js_toString, toString, toString_, js_getLength,
getLength, DOMTokenList(..), gTypeDOMTokenList, IsDOMTokenList,
toDOMTokenList)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::
DOMTokenList -> Word -> IO (Nullable JSString)
item ::
(MonadIO m, IsDOMTokenList self, FromJSString result) =>
self -> Word -> m (Maybe result)
item self index
= liftIO
(fromMaybeJSString <$> (js_item (toDOMTokenList self) index))
item_ :: (MonadIO m, IsDOMTokenList self) => self -> Word -> m ()
item_ self index
= liftIO (void (js_item (toDOMTokenList self) index))
itemUnsafe ::
(MonadIO m, IsDOMTokenList self, HasCallStack,
FromJSString result) =>
self -> Word -> m result
itemUnsafe self index
= liftIO
((fromMaybeJSString <$> (js_item (toDOMTokenList self) index)) >>=
maybe (Prelude.error "Nothing to return") return)
itemUnchecked ::
(MonadIO m, IsDOMTokenList self, FromJSString result) =>
self -> Word -> m result
itemUnchecked self index
= liftIO
(fromJust . fromMaybeJSString <$>
(js_item (toDOMTokenList self) index))
foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"
js_contains :: DOMTokenList -> JSString -> IO Bool
contains ::
(MonadIO m, IsDOMTokenList self, ToJSString token) =>
self -> token -> m Bool
contains self token
= liftIO (js_contains (toDOMTokenList self) (toJSString token))
contains_ ::
(MonadIO m, IsDOMTokenList self, ToJSString token) =>
self -> token -> m ()
contains_ self token
= liftIO
(void (js_contains (toDOMTokenList self) (toJSString token)))
foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add
:: DOMTokenList -> JSVal -> IO ()
add ::
(MonadIO m, IsDOMTokenList self, ToJSString tokens,
ToJSVal tokens) =>
self -> [tokens] -> m ()
add self tokens
= liftIO
(toJSVal tokens >>=
\ tokens' -> js_add (toDOMTokenList self) tokens')
foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"
js_remove :: DOMTokenList -> JSVal -> IO ()
remove ::
(MonadIO m, IsDOMTokenList self, ToJSString tokens,
ToJSVal tokens) =>
self -> [tokens] -> m ()
remove self tokens
= liftIO
(toJSVal tokens >>=
\ tokens' -> js_remove (toDOMTokenList self) tokens')
foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"
js_toggle :: DOMTokenList -> JSString -> Bool -> IO Bool
toggle ::
(MonadIO m, IsDOMTokenList self, ToJSString token) =>
self -> token -> Bool -> m Bool
toggle self token force
= liftIO (js_toggle (toDOMTokenList self) (toJSString token) force)
toggle_ ::
(MonadIO m, IsDOMTokenList self, ToJSString token) =>
self -> token -> Bool -> m ()
toggle_ self token force
= liftIO
(void (js_toggle (toDOMTokenList self) (toJSString token) force))
foreign import javascript unsafe "$1[\"toString\"]()" js_toString
:: DOMTokenList -> IO JSString
toString ::
(MonadIO m, IsDOMTokenList self, FromJSString result) =>
self -> m result
toString self
= liftIO (fromJSString <$> (js_toString (toDOMTokenList self)))
toString_ :: (MonadIO m, IsDOMTokenList self) => self -> m ()
toString_ self = liftIO (void (js_toString (toDOMTokenList self)))
foreign import javascript unsafe "$1[\"length\"]" js_getLength ::
DOMTokenList -> IO Word
getLength :: (MonadIO m, IsDOMTokenList self) => self -> m Word
getLength self = liftIO (js_getLength (toDOMTokenList self))