{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration (js_getPropertyValue, getPropertyValue, js_getPropertyCSSValue, getPropertyCSSValue, js_removeProperty, removeProperty, js_getPropertyPriority, getPropertyPriority, js_setProperty, setProperty, js_item, item, js_getPropertyShorthand, getPropertyShorthand, js_isPropertyImplicit, isPropertyImplicit, js_setCssText, setCssText, js_getCssText, getCssText, js_getLength, getLength, js_getParentRule, getParentRule, CSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration) 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, castRef) 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[\"getPropertyValue\"]($2)" js_getPropertyValue :: JSRef CSSStyleDeclaration -> JSString -> IO (JSRef (Maybe JSString)) -- | getPropertyValue :: (MonadIO m, ToJSString propertyName, FromJSString result) => CSSStyleDeclaration -> propertyName -> m (Maybe result) getPropertyValue self propertyName = liftIO (fromMaybeJSString <$> (js_getPropertyValue (unCSSStyleDeclaration self) (toJSString propertyName))) foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)" js_getPropertyCSSValue :: JSRef CSSStyleDeclaration -> JSString -> IO (JSRef CSSValue) -- | getPropertyCSSValue :: (MonadIO m, ToJSString propertyName) => CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue) getPropertyCSSValue self propertyName = liftIO ((js_getPropertyCSSValue (unCSSStyleDeclaration self) (toJSString propertyName)) >>= fromJSRef) foreign import javascript unsafe "$1[\"removeProperty\"]($2)" js_removeProperty :: JSRef CSSStyleDeclaration -> JSString -> IO (JSRef (Maybe JSString)) -- | removeProperty :: (MonadIO m, ToJSString propertyName, FromJSString result) => CSSStyleDeclaration -> propertyName -> m (Maybe result) removeProperty self propertyName = liftIO (fromMaybeJSString <$> (js_removeProperty (unCSSStyleDeclaration self) (toJSString propertyName))) foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)" js_getPropertyPriority :: JSRef CSSStyleDeclaration -> JSString -> IO (JSRef (Maybe JSString)) -- | getPropertyPriority :: (MonadIO m, ToJSString propertyName, FromJSString result) => CSSStyleDeclaration -> propertyName -> m (Maybe result) getPropertyPriority self propertyName = liftIO (fromMaybeJSString <$> (js_getPropertyPriority (unCSSStyleDeclaration self) (toJSString propertyName))) foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)" js_setProperty :: JSRef CSSStyleDeclaration -> JSString -> JSRef (Maybe JSString) -> JSString -> IO () -- | setProperty :: (MonadIO m, ToJSString propertyName, ToJSString value, ToJSString priority) => CSSStyleDeclaration -> propertyName -> Maybe value -> priority -> m () setProperty self propertyName value priority = liftIO (js_setProperty (unCSSStyleDeclaration self) (toJSString propertyName) (toMaybeJSString value) (toJSString priority)) foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: JSRef CSSStyleDeclaration -> Word -> IO JSString -- | item :: (MonadIO m, FromJSString result) => CSSStyleDeclaration -> Word -> m result item self index = liftIO (fromJSString <$> (js_item (unCSSStyleDeclaration self) index)) foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)" js_getPropertyShorthand :: JSRef CSSStyleDeclaration -> JSString -> IO (JSRef (Maybe JSString)) -- | getPropertyShorthand :: (MonadIO m, ToJSString propertyName, FromJSString result) => CSSStyleDeclaration -> propertyName -> m (Maybe result) getPropertyShorthand self propertyName = liftIO (fromMaybeJSString <$> (js_getPropertyShorthand (unCSSStyleDeclaration self) (toJSString propertyName))) foreign import javascript unsafe "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit :: JSRef CSSStyleDeclaration -> JSString -> IO Bool -- | isPropertyImplicit :: (MonadIO m, ToJSString propertyName) => CSSStyleDeclaration -> propertyName -> m Bool isPropertyImplicit self propertyName = liftIO (js_isPropertyImplicit (unCSSStyleDeclaration self) (toJSString propertyName)) foreign import javascript unsafe "$1[\"cssText\"] = $2;" js_setCssText :: JSRef CSSStyleDeclaration -> JSRef (Maybe JSString) -> IO () -- | setCssText :: (MonadIO m, ToJSString val) => CSSStyleDeclaration -> Maybe val -> m () setCssText self val = liftIO (js_setCssText (unCSSStyleDeclaration self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText :: JSRef CSSStyleDeclaration -> IO (JSRef (Maybe JSString)) -- | getCssText :: (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m (Maybe result) getCssText self = liftIO (fromMaybeJSString <$> (js_getCssText (unCSSStyleDeclaration self))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: JSRef CSSStyleDeclaration -> IO Word -- | getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word getLength self = liftIO (js_getLength (unCSSStyleDeclaration self)) foreign import javascript unsafe "$1[\"parentRule\"]" js_getParentRule :: JSRef CSSStyleDeclaration -> IO (JSRef CSSRule) -- | getParentRule :: (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self = liftIO ((js_getParentRule (unCSSStyleDeclaration self)) >>= fromJSRef)