{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.StyleSheet (js_getType, getType, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getOwnerNode, getOwnerNode, js_getParentStyleSheet, getParentStyleSheet, js_getHref, getHref, js_getTitle, getTitle, js_getMedia, getMedia, StyleSheet, castToStyleSheet, gTypeStyleSheet, IsStyleSheet, toStyleSheet) 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 (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"type\"]" js_getType :: StyleSheet -> IO (Nullable JSString) -- | getType :: (MonadIO m, IsStyleSheet self, FromJSString result) => self -> m (Maybe result) getType self = liftIO (fromMaybeJSString <$> (js_getType (toStyleSheet self))) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: StyleSheet -> Bool -> IO () -- | setDisabled :: (MonadIO m, IsStyleSheet self) => self -> Bool -> m () setDisabled self val = liftIO (js_setDisabled (toStyleSheet self) val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: StyleSheet -> IO Bool -- | getDisabled :: (MonadIO m, IsStyleSheet self) => self -> m Bool getDisabled self = liftIO (js_getDisabled (toStyleSheet self)) foreign import javascript unsafe "$1[\"ownerNode\"]" js_getOwnerNode :: StyleSheet -> IO (Nullable Node) -- | getOwnerNode :: (MonadIO m, IsStyleSheet self) => self -> m (Maybe Node) getOwnerNode self = liftIO (nullableToMaybe <$> (js_getOwnerNode (toStyleSheet self))) foreign import javascript unsafe "$1[\"parentStyleSheet\"]" js_getParentStyleSheet :: StyleSheet -> IO (Nullable StyleSheet) -- | getParentStyleSheet :: (MonadIO m, IsStyleSheet self) => self -> m (Maybe StyleSheet) getParentStyleSheet self = liftIO (nullableToMaybe <$> (js_getParentStyleSheet (toStyleSheet self))) foreign import javascript unsafe "$1[\"href\"]" js_getHref :: StyleSheet -> IO (Nullable JSString) -- | getHref :: (MonadIO m, IsStyleSheet self, FromJSString result) => self -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (toStyleSheet self))) foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: StyleSheet -> IO (Nullable JSString) -- | getTitle :: (MonadIO m, IsStyleSheet self, FromJSString result) => self -> m (Maybe result) getTitle self = liftIO (fromMaybeJSString <$> (js_getTitle (toStyleSheet self))) foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: StyleSheet -> IO (Nullable MediaList) -- | getMedia :: (MonadIO m, IsStyleSheet self) => self -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (toStyleSheet self)))