module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration
(js_getPropertyValue, getPropertyValue, getPropertyValue_,
getPropertyValueUnsafe, getPropertyValueUnchecked,
js_getPropertyCSSValue, getPropertyCSSValue, getPropertyCSSValue_,
getPropertyCSSValueUnsafe, getPropertyCSSValueUnchecked,
js_removeProperty, removeProperty, removeProperty_,
removePropertyUnsafe, removePropertyUnchecked,
js_getPropertyPriority, getPropertyPriority, getPropertyPriority_,
getPropertyPriorityUnsafe, getPropertyPriorityUnchecked,
js_setProperty, setProperty, js_item, item, item_,
js_getPropertyShorthand, getPropertyShorthand,
getPropertyShorthand_, getPropertyShorthandUnsafe,
getPropertyShorthandUnchecked, js_isPropertyImplicit,
isPropertyImplicit, isPropertyImplicit_, js_setCssText, setCssText,
js_getCssText, getCssText, getCssTextUnsafe, getCssTextUnchecked,
js_getLength, getLength, js_getParentRule, getParentRule,
getParentRuleUnsafe, getParentRuleUnchecked,
CSSStyleDeclaration(..), gTypeCSSStyleDeclaration)
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[\"getPropertyValue\"]($2)"
js_getPropertyValue ::
CSSStyleDeclaration -> JSString -> IO (Nullable JSString)
getPropertyValue ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m (Maybe result)
getPropertyValue self propertyName
= liftIO
(fromMaybeJSString <$>
(js_getPropertyValue (self) (toJSString propertyName)))
getPropertyValue_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
getPropertyValue_ self propertyName
= liftIO
(void (js_getPropertyValue (self) (toJSString propertyName)))
getPropertyValueUnsafe ::
(MonadIO m, ToJSString propertyName, HasCallStack,
FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyValueUnsafe self propertyName
= liftIO
((fromMaybeJSString <$>
(js_getPropertyValue (self) (toJSString propertyName)))
>>= maybe (Prelude.error "Nothing to return") return)
getPropertyValueUnchecked ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyValueUnchecked self propertyName
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getPropertyValue (self) (toJSString propertyName)))
foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"
js_getPropertyCSSValue ::
CSSStyleDeclaration -> JSString -> IO (Nullable CSSValue)
getPropertyCSSValue ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)
getPropertyCSSValue self propertyName
= liftIO
(nullableToMaybe <$>
(js_getPropertyCSSValue (self) (toJSString propertyName)))
getPropertyCSSValue_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
getPropertyCSSValue_ self propertyName
= liftIO
(void (js_getPropertyCSSValue (self) (toJSString propertyName)))
getPropertyCSSValueUnsafe ::
(MonadIO m, ToJSString propertyName, HasCallStack) =>
CSSStyleDeclaration -> propertyName -> m CSSValue
getPropertyCSSValueUnsafe self propertyName
= liftIO
((nullableToMaybe <$>
(js_getPropertyCSSValue (self) (toJSString propertyName)))
>>= maybe (Prelude.error "Nothing to return") return)
getPropertyCSSValueUnchecked ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m CSSValue
getPropertyCSSValueUnchecked self propertyName
= liftIO
(fromJust . nullableToMaybe <$>
(js_getPropertyCSSValue (self) (toJSString propertyName)))
foreign import javascript unsafe "$1[\"removeProperty\"]($2)"
js_removeProperty ::
CSSStyleDeclaration -> JSString -> IO (Nullable JSString)
removeProperty ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m (Maybe result)
removeProperty self propertyName
= liftIO
(fromMaybeJSString <$>
(js_removeProperty (self) (toJSString propertyName)))
removeProperty_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
removeProperty_ self propertyName
= liftIO
(void (js_removeProperty (self) (toJSString propertyName)))
removePropertyUnsafe ::
(MonadIO m, ToJSString propertyName, HasCallStack,
FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
removePropertyUnsafe self propertyName
= liftIO
((fromMaybeJSString <$>
(js_removeProperty (self) (toJSString propertyName)))
>>= maybe (Prelude.error "Nothing to return") return)
removePropertyUnchecked ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
removePropertyUnchecked self propertyName
= liftIO
(fromJust . fromMaybeJSString <$>
(js_removeProperty (self) (toJSString propertyName)))
foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"
js_getPropertyPriority ::
CSSStyleDeclaration -> JSString -> IO (Nullable JSString)
getPropertyPriority ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m (Maybe result)
getPropertyPriority self propertyName
= liftIO
(fromMaybeJSString <$>
(js_getPropertyPriority (self) (toJSString propertyName)))
getPropertyPriority_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
getPropertyPriority_ self propertyName
= liftIO
(void (js_getPropertyPriority (self) (toJSString propertyName)))
getPropertyPriorityUnsafe ::
(MonadIO m, ToJSString propertyName, HasCallStack,
FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyPriorityUnsafe self propertyName
= liftIO
((fromMaybeJSString <$>
(js_getPropertyPriority (self) (toJSString propertyName)))
>>= maybe (Prelude.error "Nothing to return") return)
getPropertyPriorityUnchecked ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyPriorityUnchecked self propertyName
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getPropertyPriority (self) (toJSString propertyName)))
foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"
js_setProperty ::
CSSStyleDeclaration ->
JSString -> Nullable 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 (self) (toJSString propertyName)
(toMaybeJSString value)
(toJSString priority))
foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::
CSSStyleDeclaration -> Word -> IO JSString
item ::
(MonadIO m, FromJSString result) =>
CSSStyleDeclaration -> Word -> m result
item self index = liftIO (fromJSString <$> (js_item (self) index))
item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m ()
item_ self index = liftIO (void (js_item (self) index))
foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"
js_getPropertyShorthand ::
CSSStyleDeclaration -> JSString -> IO (Nullable JSString)
getPropertyShorthand ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m (Maybe result)
getPropertyShorthand self propertyName
= liftIO
(fromMaybeJSString <$>
(js_getPropertyShorthand (self) (toJSString propertyName)))
getPropertyShorthand_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
getPropertyShorthand_ self propertyName
= liftIO
(void (js_getPropertyShorthand (self) (toJSString propertyName)))
getPropertyShorthandUnsafe ::
(MonadIO m, ToJSString propertyName, HasCallStack,
FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyShorthandUnsafe self propertyName
= liftIO
((fromMaybeJSString <$>
(js_getPropertyShorthand (self) (toJSString propertyName)))
>>= maybe (Prelude.error "Nothing to return") return)
getPropertyShorthandUnchecked ::
(MonadIO m, ToJSString propertyName, FromJSString result) =>
CSSStyleDeclaration -> propertyName -> m result
getPropertyShorthandUnchecked self propertyName
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getPropertyShorthand (self) (toJSString propertyName)))
foreign import javascript unsafe
"($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::
CSSStyleDeclaration -> JSString -> IO Bool
isPropertyImplicit ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m Bool
isPropertyImplicit self propertyName
= liftIO (js_isPropertyImplicit (self) (toJSString propertyName))
isPropertyImplicit_ ::
(MonadIO m, ToJSString propertyName) =>
CSSStyleDeclaration -> propertyName -> m ()
isPropertyImplicit_ self propertyName
= liftIO
(void (js_isPropertyImplicit (self) (toJSString propertyName)))
foreign import javascript unsafe "$1[\"cssText\"] = $2;"
js_setCssText :: CSSStyleDeclaration -> Nullable JSString -> IO ()
setCssText ::
(MonadIO m, ToJSString val) =>
CSSStyleDeclaration -> Maybe val -> m ()
setCssText self val
= liftIO (js_setCssText (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::
CSSStyleDeclaration -> IO (Nullable JSString)
getCssText ::
(MonadIO m, FromJSString result) =>
CSSStyleDeclaration -> m (Maybe result)
getCssText self
= liftIO (fromMaybeJSString <$> (js_getCssText (self)))
getCssTextUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
CSSStyleDeclaration -> m result
getCssTextUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getCssText (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCssTextUnchecked ::
(MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result
getCssTextUnchecked self
= liftIO (fromJust . fromMaybeJSString <$> (js_getCssText (self)))
foreign import javascript unsafe "$1[\"length\"]" js_getLength ::
CSSStyleDeclaration -> IO Word
getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word
getLength self = liftIO (js_getLength (self))
foreign import javascript unsafe "$1[\"parentRule\"]"
js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)
getParentRule ::
(MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule)
getParentRule self
= liftIO (nullableToMaybe <$> (js_getParentRule (self)))
getParentRuleUnsafe ::
(MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule
getParentRuleUnsafe self
= liftIO
((nullableToMaybe <$> (js_getParentRule (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getParentRuleUnchecked ::
(MonadIO m) => CSSStyleDeclaration -> m CSSRule
getParentRuleUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getParentRule (self)))