{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule (js_insertRule, insertRule, js_appendRule, appendRule, js_deleteRule, deleteRule, js_findRule, findRule, findRule_, findRuleUnchecked, js__get, _get, _get_, _getUnchecked, js_setName, setName, js_getName, getName, getNameUnchecked, js_getCssRules, getCssRules, getCssRulesUnchecked, CSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) 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[\"insertRule\"]($2)" js_insertRule :: CSSKeyframesRule -> JSString -> IO () -- | insertRule :: (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () insertRule self rule = liftIO (js_insertRule (self) (toJSString rule)) foreign import javascript unsafe "$1[\"appendRule\"]($2)" js_appendRule :: CSSKeyframesRule -> JSString -> IO () -- | appendRule :: (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () appendRule self rule = liftIO (js_appendRule (self) (toJSString rule)) foreign import javascript unsafe "$1[\"deleteRule\"]($2)" js_deleteRule :: CSSKeyframesRule -> JSString -> IO () -- | deleteRule :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () deleteRule self key = liftIO (js_deleteRule (self) (toJSString key)) foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule) -- | findRule :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) findRule self key = liftIO (nullableToMaybe <$> (js_findRule (self) (toJSString key))) -- | findRule_ :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () findRule_ self key = liftIO (void (js_findRule (self) (toJSString key))) -- | findRuleUnchecked :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m CSSKeyframeRule findRuleUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_findRule (self) (toJSString key))) foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: CSSKeyframesRule -> Word -> IO (Nullable CSSKeyframeRule) -- | _get :: (MonadIO m) => CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule) _get self index = liftIO (nullableToMaybe <$> (js__get (self) index)) -- | _get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m () _get_ self index = liftIO (void (js__get (self) index)) -- | _getUnchecked :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule _getUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index)) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: CSSKeyframesRule -> Nullable JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => CSSKeyframesRule -> Maybe val -> m () setName self val = liftIO (js_setName (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: CSSKeyframesRule -> IO (Nullable JSString) -- | getName :: (MonadIO m, FromJSString result) => CSSKeyframesRule -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) -- | getNameUnchecked :: (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result getNameUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self))) foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules :: CSSKeyframesRule -> IO (Nullable CSSRuleList) -- | getCssRules :: (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self = liftIO (nullableToMaybe <$> (js_getCssRules (self))) -- | getCssRulesUnchecked :: (MonadIO m) => CSSKeyframesRule -> m CSSRuleList getCssRulesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))