KeyframeAnimationOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.
module JSDOM.Generated.KeyframeAnimationOptions
       (newKeyframeAnimationOptions, setId, getId, getIdUnsafe, getIdUnchecked, setTimeline, getTimeline, getTimelineUnsafe, getTimelineUnchecked, setRangeStart, getRangeStart, getRangeStartUnsafe, getRangeStartUnchecked, setRangeEnd, getRangeEnd, getRangeEndUnsafe, getRangeEndUnchecked, setTrigger, getTrigger, getTriggerUnsafe, getTriggerUnchecked, KeyframeAnimationOptions(..), gTypeKeyframeAnimationOptions)
       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/web-animations-1/#dictdef-keyframeanimationoptions KeyframeAnimationOptions specification>
newKeyframeAnimationOptions :: (MonadDOM m) => m KeyframeAnimationOptions
newKeyframeAnimationOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-id KeyframeAnimationOptions.id specification>
setId :: (MonadDOM m, ToJSString val) => KeyframeAnimationOptions -> val -> m ()
setId self val = liftDOM (void (self ^. jss "id" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-id KeyframeAnimationOptions.id specification>
getId :: (MonadDOM m, FromJSString result) => KeyframeAnimationOptions -> m (Maybe result)
getId self = liftDOM (((self ^. js "id") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-id KeyframeAnimationOptions.id specification>
getIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => KeyframeAnimationOptions -> m result
getIdUnsafe self = liftDOM ((((self ^. js "id") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-id KeyframeAnimationOptions.id specification>
getIdUnchecked :: (MonadDOM m, FromJSString result) => KeyframeAnimationOptions -> m result
getIdUnchecked self = liftDOM (((self ^. js "id") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-timeline KeyframeAnimationOptions.timeline specification>
setTimeline :: (MonadDOM m, IsAnimationTimeline val) => KeyframeAnimationOptions -> Maybe val -> m ()
setTimeline self val = liftDOM (void (self ^. jss "timeline" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-timeline KeyframeAnimationOptions.timeline specification>
getTimeline :: (MonadDOM m) => KeyframeAnimationOptions -> m (Maybe AnimationTimeline)
getTimeline self = liftDOM (((self ^. js "timeline") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-timeline KeyframeAnimationOptions.timeline specification>
getTimelineUnsafe :: (MonadDOM m, HasCallStack) => KeyframeAnimationOptions -> m AnimationTimeline
getTimelineUnsafe self = liftDOM ((((self ^. js "timeline") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeanimationoptions-timeline KeyframeAnimationOptions.timeline specification>
getTimelineUnchecked :: (MonadDOM m) => KeyframeAnimationOptions -> m AnimationTimeline
getTimelineUnchecked self = liftDOM (((self ^. js "timeline") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangestart KeyframeAnimationOptions.rangeStart specification>
setRangeStart :: (MonadDOM m, IsTimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString val) => KeyframeAnimationOptions -> val -> m ()
setRangeStart self val = liftDOM (void (self ^. jss "rangeStart" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangestart KeyframeAnimationOptions.rangeStart specification>
getRangeStart :: (MonadDOM m) => KeyframeAnimationOptions -> m (Maybe TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString)
getRangeStart self = liftDOM (((self ^. js "rangeStart") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangestart KeyframeAnimationOptions.rangeStart specification>
getRangeStartUnsafe :: (MonadDOM m, HasCallStack) => KeyframeAnimationOptions -> m TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString
getRangeStartUnsafe self = liftDOM ((((self ^. js "rangeStart") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangestart KeyframeAnimationOptions.rangeStart specification>
getRangeStartUnchecked :: (MonadDOM m) => KeyframeAnimationOptions -> m TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString
getRangeStartUnchecked self = liftDOM (((self ^. js "rangeStart") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangeend KeyframeAnimationOptions.rangeEnd specification>
setRangeEnd :: (MonadDOM m, IsTimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString val) => KeyframeAnimationOptions -> val -> m ()
setRangeEnd self val = liftDOM (void (self ^. jss "rangeEnd" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangeend KeyframeAnimationOptions.rangeEnd specification>
getRangeEnd :: (MonadDOM m) => KeyframeAnimationOptions -> m (Maybe TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString)
getRangeEnd self = liftDOM (((self ^. js "rangeEnd") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangeend KeyframeAnimationOptions.rangeEnd specification>
getRangeEndUnsafe :: (MonadDOM m, HasCallStack) => KeyframeAnimationOptions -> m TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString
getRangeEndUnsafe self = liftDOM ((((self ^. js "rangeEnd") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-rangeend KeyframeAnimationOptions.rangeEnd specification>
getRangeEndUnchecked :: (MonadDOM m) => KeyframeAnimationOptions -> m TimelineRangeOffsetOrCSSNumericValueOrCSSKeywordValueOrString
getRangeEndUnchecked self = liftDOM (((self ^. js "rangeEnd") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-trigger KeyframeAnimationOptions.trigger specification>
setTrigger :: (MonadDOM m) => KeyframeAnimationOptions -> Maybe AnimationTrigger -> m ()
setTrigger self val = liftDOM (void (self ^. jss "trigger" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-trigger KeyframeAnimationOptions.trigger specification>
getTrigger :: (MonadDOM m) => KeyframeAnimationOptions -> m (Maybe AnimationTrigger)
getTrigger self = liftDOM (((self ^. js "trigger") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-trigger KeyframeAnimationOptions.trigger specification>
getTriggerUnsafe :: (MonadDOM m, HasCallStack) => KeyframeAnimationOptions -> m AnimationTrigger
getTriggerUnsafe self = liftDOM ((((self ^. js "trigger") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeanimationoptions-trigger KeyframeAnimationOptions.trigger specification>
getTriggerUnchecked :: (MonadDOM m) => KeyframeAnimationOptions -> m AnimationTrigger
getTriggerUnchecked self = liftDOM (((self ^. js "trigger") >>= fromJSValUnchecked))