AnimationEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-animations-1 (webref). Do not edit.
module JSDOM.Generated.AnimationEventInit
       (newAnimationEventInit, setAnimationName, getAnimationName, getAnimationNameUnsafe, getAnimationNameUnchecked, setElapsedTime, getElapsedTime, getElapsedTimeUnsafe, getElapsedTimeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, setAnimation, getAnimation, getAnimationUnsafe, getAnimationUnchecked, AnimationEventInit(..), gTypeAnimationEventInit)
       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-animations-1/#dictdef-animationeventinit AnimationEventInit specification>
newAnimationEventInit :: (MonadDOM m) => m AnimationEventInit
newAnimationEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>
setAnimationName :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m ()
setAnimationName self val = liftDOM (void (self ^. jss "animationName" (toJSVal val)))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>
getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)
getAnimationName self = liftDOM (((self ^. js "animationName") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>
getAnimationNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result
getAnimationNameUnsafe self = liftDOM ((((self ^. js "animationName") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>
getAnimationNameUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result
getAnimationNameUnchecked self = liftDOM (((self ^. js "animationName") >>= fromJSValUnchecked))

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

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

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

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>
getElapsedTimeUnchecked :: (MonadDOM m) => AnimationEventInit -> m Double
getElapsedTimeUnchecked self = liftDOM (((self ^. js "elapsedTime") >>= valToNumber))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>
setPseudoElement :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m ()
setPseudoElement self val = liftDOM (void (self ^. jss "pseudoElement" (toJSVal val)))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>
getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)
getPseudoElement self = liftDOM (((self ^. js "pseudoElement") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>
getPseudoElementUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result
getPseudoElementUnsafe self = liftDOM ((((self ^. js "pseudoElement") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>
getPseudoElementUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result
getPseudoElementUnchecked self = liftDOM (((self ^. js "pseudoElement") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>
setAnimation :: (MonadDOM m) => AnimationEventInit -> Maybe CSSAnimation -> m ()
setAnimation self val = liftDOM (void (self ^. jss "animation" (toJSVal val)))

-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>
getAnimation :: (MonadDOM m) => AnimationEventInit -> m (Maybe CSSAnimation)
getAnimation self = liftDOM (((self ^. js "animation") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>
getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m CSSAnimation
getAnimationUnsafe self = liftDOM ((((self ^. js "animation") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>
getAnimationUnchecked :: (MonadDOM m) => AnimationEventInit -> m CSSAnimation
getAnimationUnchecked self = liftDOM (((self ^. js "animation") >>= fromJSValUnchecked))