ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/TransitionEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-transitions-1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.TransitionEventInit
       (js_newTransitionEventInit, js_setPropertyName, js_getPropertyName, js_setElapsedTime, js_getElapsedTime, js_setPseudoElement, js_getPseudoElement, js_setAnimation, js_getAnimation, newTransitionEventInit, setPropertyName, getPropertyName, getPropertyNameUnsafe, getPropertyNameUnchecked, setElapsedTime, getElapsedTime, getElapsedTimeUnsafe, getElapsedTimeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, setAnimation, getAnimation, getAnimationUnsafe, getAnimationUnchecked, TransitionEventInit(..), gTypeTransitionEventInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newTransitionEventInit :: IO TransitionEventInit
-- | <https://drafts.csswg.org/css-transitions-1/#dictdef-transitioneventinit TransitionEventInit specification>
newTransitionEventInit :: (MonadDOM m) => m TransitionEventInit
newTransitionEventInit = liftDOM ((js_newTransitionEventInit))

foreign import javascript safe "(($1, $2) => { $1[\"propertyName\"] = $2; })"
        js_setPropertyName :: TransitionEventInit -> JSString -> IO ()
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-propertyname TransitionEventInit.propertyName specification>
setPropertyName :: (MonadDOM m, ToJSString val) => TransitionEventInit -> val -> m ()
setPropertyName self val = liftDOM (void ((js_setPropertyName (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"propertyName\"]; })"
        js_getPropertyName :: TransitionEventInit -> IO JSVal
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-propertyname TransitionEventInit.propertyName specification>
getPropertyName :: (MonadDOM m, FromJSString result) => TransitionEventInit -> m (Maybe result)
getPropertyName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPropertyName (self))))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-propertyname TransitionEventInit.propertyName specification>
getPropertyNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => TransitionEventInit -> m result
getPropertyNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPropertyName (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-propertyname TransitionEventInit.propertyName specification>
getPropertyNameUnchecked :: (MonadDOM m, FromJSString result) => TransitionEventInit -> m result
getPropertyNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getPropertyName (self))))

foreign import javascript safe "(($1, $2) => { $1[\"elapsedTime\"] = $2; })"
        js_setElapsedTime :: TransitionEventInit -> Double -> IO ()
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
setElapsedTime :: (MonadDOM m) => TransitionEventInit -> Double -> m ()
setElapsedTime self val = liftDOM (void ((js_setElapsedTime (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })"
        js_getElapsedTime :: TransitionEventInit -> IO JSVal
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
getElapsedTime :: (MonadDOM m) => TransitionEventInit -> m (Maybe Double)
getElapsedTime self = liftDOM (((js_getElapsedTime (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
getElapsedTimeUnsafe :: (MonadDOM m, HasCallStack) => TransitionEventInit -> m Double
getElapsedTimeUnsafe self = liftDOM ((((js_getElapsedTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
getElapsedTimeUnchecked :: (MonadDOM m) => TransitionEventInit -> m Double
getElapsedTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getElapsedTime (self))))

foreign import javascript safe "(($1, $2) => { $1[\"pseudoElement\"] = $2; })"
        js_setPseudoElement :: TransitionEventInit -> JSString -> IO ()
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-pseudoelement TransitionEventInit.pseudoElement specification>
setPseudoElement :: (MonadDOM m, ToJSString val) => TransitionEventInit -> val -> m ()
setPseudoElement self val = liftDOM (void ((js_setPseudoElement (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })"
        js_getPseudoElement :: TransitionEventInit -> IO JSVal
-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-pseudoelement TransitionEventInit.pseudoElement specification>
getPseudoElement :: (MonadDOM m, FromJSString result) => TransitionEventInit -> m (Maybe result)
getPseudoElement self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-pseudoelement TransitionEventInit.pseudoElement specification>
getPseudoElementUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => TransitionEventInit -> m result
getPseudoElementUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-pseudoelement TransitionEventInit.pseudoElement specification>
getPseudoElementUnchecked :: (MonadDOM m, FromJSString result) => TransitionEventInit -> m result
getPseudoElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPseudoElement (self))))

foreign import javascript safe "(($1, $2) => { $1[\"animation\"] = $2; })"
        js_setAnimation :: TransitionEventInit -> JSVal -> IO ()
-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
setAnimation :: (MonadDOM m) => TransitionEventInit -> Maybe CSSTransition -> m ()
setAnimation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAnimation (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"animation\"]; })"
        js_getAnimation :: TransitionEventInit -> IO JSVal
-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
getAnimation :: (MonadDOM m) => TransitionEventInit -> m (Maybe CSSTransition)
getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
getAnimationUnsafe :: (MonadDOM m, HasCallStack) => TransitionEventInit -> m CSSTransition
getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
getAnimationUnchecked :: (MonadDOM m) => TransitionEventInit -> m CSSTransition
getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self))))