module JSDOM.Generated.CSSMediaRule
(insertRule, insertRule_, deleteRule, getMedia, getMediaUnsafe,
getMediaUnchecked, getCssRules, getCssRulesUnsafe,
getCssRulesUnchecked, CSSMediaRule(..), gTypeCSSMediaRule)
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
insertRule ::
(MonadDOM m, ToJSString rule) =>
CSSMediaRule -> rule -> Word -> m Word
insertRule self rule index
= liftDOM
(round <$>
((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=
valToNumber))
insertRule_ ::
(MonadDOM m, ToJSString rule) =>
CSSMediaRule -> rule -> Word -> m ()
insertRule_ self rule index
= liftDOM
(void (self ^. jsf "insertRule" [toJSVal rule, toJSVal index]))
deleteRule :: (MonadDOM m) => CSSMediaRule -> Word -> m ()
deleteRule self index
= liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))
getMedia :: (MonadDOM m) => CSSMediaRule -> m (Maybe MediaList)
getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)
getMediaUnsafe ::
(MonadDOM m, HasCallStack) => CSSMediaRule -> m MediaList
getMediaUnsafe self
= liftDOM
(((self ^. js "media") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMediaUnchecked :: (MonadDOM m) => CSSMediaRule -> m MediaList
getMediaUnchecked self
= liftDOM ((self ^. js "media") >>= fromJSValUnchecked)
getCssRules ::
(MonadDOM m) => CSSMediaRule -> m (Maybe CSSRuleList)
getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
getCssRulesUnsafe ::
(MonadDOM m, HasCallStack) => CSSMediaRule -> m CSSRuleList
getCssRulesUnsafe self
= liftDOM
(((self ^. js "cssRules") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCssRulesUnchecked ::
(MonadDOM m) => CSSMediaRule -> m CSSRuleList
getCssRulesUnchecked self
= liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked)