module GHCJS.DOM.JSFFI.Generated.StyleSheet
(js_getType, getType, getTypeUnsafe, getTypeUnchecked,
js_setDisabled, setDisabled, js_getDisabled, getDisabled,
js_getOwnerNode, getOwnerNode, getOwnerNodeUnsafe,
getOwnerNodeUnchecked, js_getParentStyleSheet, getParentStyleSheet,
getParentStyleSheetUnsafe, getParentStyleSheetUnchecked,
js_getHref, getHref, getHrefUnsafe, getHrefUnchecked, js_getTitle,
getTitle, getTitleUnsafe, getTitleUnchecked, js_getMedia, getMedia,
getMediaUnsafe, getMediaUnchecked, StyleSheet(..), gTypeStyleSheet,
IsStyleSheet, toStyleSheet)
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[\"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)))
getTypeUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack,
FromJSString result) =>
self -> m result
getTypeUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getType (toStyleSheet self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTypeUnchecked ::
(MonadIO m, IsStyleSheet self, FromJSString result) =>
self -> m result
getTypeUnchecked self
= liftIO
(fromJust . 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)))
getOwnerNodeUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack) => self -> m Node
getOwnerNodeUnsafe self
= liftIO
((nullableToMaybe <$> (js_getOwnerNode (toStyleSheet self))) >>=
maybe (Prelude.error "Nothing to return") return)
getOwnerNodeUnchecked ::
(MonadIO m, IsStyleSheet self) => self -> m Node
getOwnerNodeUnchecked self
= liftIO
(fromJust . 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)))
getParentStyleSheetUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack) =>
self -> m StyleSheet
getParentStyleSheetUnsafe self
= liftIO
((nullableToMaybe <$> (js_getParentStyleSheet (toStyleSheet self)))
>>= maybe (Prelude.error "Nothing to return") return)
getParentStyleSheetUnchecked ::
(MonadIO m, IsStyleSheet self) => self -> m StyleSheet
getParentStyleSheetUnchecked self
= liftIO
(fromJust . 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)))
getHrefUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack,
FromJSString result) =>
self -> m result
getHrefUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getHref (toStyleSheet self))) >>=
maybe (Prelude.error "Nothing to return") return)
getHrefUnchecked ::
(MonadIO m, IsStyleSheet self, FromJSString result) =>
self -> m result
getHrefUnchecked self
= liftIO
(fromJust . 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)))
getTitleUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack,
FromJSString result) =>
self -> m result
getTitleUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getTitle (toStyleSheet self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTitleUnchecked ::
(MonadIO m, IsStyleSheet self, FromJSString result) =>
self -> m result
getTitleUnchecked self
= liftIO
(fromJust . 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)))
getMediaUnsafe ::
(MonadIO m, IsStyleSheet self, HasCallStack) => self -> m MediaList
getMediaUnsafe self
= liftIO
((nullableToMaybe <$> (js_getMedia (toStyleSheet self))) >>=
maybe (Prelude.error "Nothing to return") return)
getMediaUnchecked ::
(MonadIO m, IsStyleSheet self) => self -> m MediaList
getMediaUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getMedia (toStyleSheet self)))