DOMTokenList.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from dom (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.DOMTokenList
       (js_add, js_contains, js_item, js_remove, js_replace, js_supports, js_toggle, js_getLength, js_setValue, js_getValue, add, contains, contains_, item, item_, itemUnsafe, itemUnchecked, remove, replace, replace_, supports, supports_, toggle, toggle_, getLength, setValue, getValue, DOMTokenList(..), gTypeDOMTokenList)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return $1[\"add\"](...$2); })"
        js_add :: DOMTokenList -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/add MDN DOMTokenList.add documentation>
add :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()
add self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_add (self) a2')))

foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })"
        js_contains :: DOMTokenList -> JSString -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>
contains :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool
contains self token = liftDOM ((js_contains (self) (toJSString token)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>
contains_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()
contains_ self token = liftDOM (void ((js_contains (self) (toJSString token))))

foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"
        js_item :: DOMTokenList -> Word -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>
item :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m (Maybe result)
item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index))))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>
item_ :: (MonadDOM m) => DOMTokenList -> Word -> m ()
item_ self index = liftDOM (void ((js_item (self) (index))))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>
itemUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => DOMTokenList -> Word -> m result
itemUnsafe self index = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_item (self) (index))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>
itemUnchecked :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m result
itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index))))

foreign import javascript safe "(($1, $2) => { return $1[\"remove\"](...$2); })"
        js_remove :: DOMTokenList -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/remove MDN DOMTokenList.remove documentation>
remove :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()
remove self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_remove (self) a2')))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"replace\"]($2, $3); })"
        js_replace :: DOMTokenList -> JSString -> JSString -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>
replace :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m Bool
replace self token newToken = liftDOM ((js_replace (self) (toJSString token) (toJSString newToken)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>
replace_ :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m ()
replace_ self token newToken = liftDOM (void ((js_replace (self) (toJSString token) (toJSString newToken))))

foreign import javascript safe "(($1, $2) => { return $1[\"supports\"]($2); })"
        js_supports :: DOMTokenList -> JSString -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>
supports :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool
supports self token = liftDOM ((js_supports (self) (toJSString token)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>
supports_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()
supports_ self token = liftDOM (void ((js_supports (self) (toJSString token))))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"toggle\"]($2, $3); })"
        js_toggle :: DOMTokenList -> JSString -> JSVal -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>
toggle :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m Bool
toggle self token force = liftDOM (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3'))

-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>
toggle_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m ()
toggle_ self token force = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3')))

foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"
        js_getLength :: DOMTokenList -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/length MDN DOMTokenList.length documentation>
getLength :: (MonadDOM m) => DOMTokenList -> m Word
getLength self = liftDOM ((js_getLength (self)))

foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"
        js_setValue :: DOMTokenList -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>
setValue :: (MonadDOM m, ToJSString val) => DOMTokenList -> val -> m ()
setValue self val = liftDOM (void ((js_setValue (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"
        js_getValue :: DOMTokenList -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>
getValue :: (MonadDOM m, FromJSString result) => DOMTokenList -> m result
getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))