TransitionEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-transitions-1 (webref). Do not edit.
module JSDOM.Generated.TransitionEventInit
       (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 Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://drafts.csswg.org/css-transitions-1/#dictdef-transitioneventinit TransitionEventInit specification>
newTransitionEventInit :: (MonadDOM m) => m TransitionEventInit
newTransitionEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <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 (self ^. jss "propertyName" (toJSVal val)))

-- | <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 (((self ^. js "propertyName") >>= fromMaybeJSString))

-- | <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 ((((self ^. js "propertyName") >>= fromMaybeJSString) >>= 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 (((self ^. js "propertyName") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
setElapsedTime :: (MonadDOM m) => TransitionEventInit -> Double -> m ()
setElapsedTime self val = liftDOM (void (self ^. jss "elapsedTime" (toJSVal val)))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
getElapsedTime :: (MonadDOM m) => TransitionEventInit -> m (Maybe Double)
getElapsedTime self = liftDOM (((self ^. js "elapsedTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-transitions-1/#dom-transitioneventinit-elapsedtime TransitionEventInit.elapsedTime specification>
getElapsedTimeUnsafe :: (MonadDOM m, HasCallStack) => TransitionEventInit -> m Double
getElapsedTimeUnsafe self = liftDOM ((((self ^. js "elapsedTime") >>= 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 (((self ^. js "elapsedTime") >>= valToNumber))

-- | <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 (self ^. jss "pseudoElement" (toJSVal val)))

-- | <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 (((self ^. js "pseudoElement") >>= fromMaybeJSString))

-- | <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 ((((self ^. js "pseudoElement") >>= fromMaybeJSString) >>= 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 (((self ^. js "pseudoElement") >>= fromJSValUnchecked))

-- | <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 (self ^. jss "animation" (toJSVal val)))

-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
getAnimation :: (MonadDOM m) => TransitionEventInit -> m (Maybe CSSTransition)
getAnimation self = liftDOM (((self ^. js "animation") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-transitions-2/#dom-transitioneventinit-animation TransitionEventInit.animation specification>
getAnimationUnsafe :: (MonadDOM m, HasCallStack) => TransitionEventInit -> m CSSTransition
getAnimationUnsafe self = liftDOM ((((self ^. js "animation") >>= 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 (((self ^. js "animation") >>= fromJSValUnchecked))