KeyframeEffectOptions.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.KeyframeEffectOptions
       (newKeyframeEffectOptions, setComposite, getComposite, getCompositeUnsafe, getCompositeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, setIterationComposite, getIterationComposite, getIterationCompositeUnsafe, getIterationCompositeUnchecked, KeyframeEffectOptions(..), gTypeKeyframeEffectOptions, IsKeyframeEffectOptions, toKeyframeEffectOptions)
       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-keyframeeffectoptions KeyframeEffectOptions specification>
newKeyframeEffectOptions :: (MonadDOM m) => m KeyframeEffectOptions
newKeyframeEffectOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-composite KeyframeEffectOptions.composite specification>
setComposite :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> CompositeOperation -> m ()
setComposite self val = liftDOM (void ((Types.toKeyframeEffectOptions self) ^. jss "composite" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-composite KeyframeEffectOptions.composite specification>
getComposite :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> m (Maybe CompositeOperation)
getComposite self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "composite") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-composite KeyframeEffectOptions.composite specification>
getCompositeUnsafe :: (MonadDOM m, IsKeyframeEffectOptions self, HasCallStack) => self -> m CompositeOperation
getCompositeUnsafe self = liftDOM (((((Types.toKeyframeEffectOptions self) ^. js "composite") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-composite KeyframeEffectOptions.composite specification>
getCompositeUnchecked :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> m CompositeOperation
getCompositeUnchecked self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "composite") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-pseudoelement KeyframeEffectOptions.pseudoElement specification>
setPseudoElement :: (MonadDOM m, IsKeyframeEffectOptions self, ToJSString val) => self -> Maybe val -> m ()
setPseudoElement self val = liftDOM (void ((Types.toKeyframeEffectOptions self) ^. jss "pseudoElement" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-pseudoelement KeyframeEffectOptions.pseudoElement specification>
getPseudoElement :: (MonadDOM m, IsKeyframeEffectOptions self, FromJSString result) => self -> m (Maybe result)
getPseudoElement self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "pseudoElement") >>= fromMaybeJSString))

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

-- | <https://drafts.csswg.org/web-animations-1/#dom-keyframeeffectoptions-pseudoelement KeyframeEffectOptions.pseudoElement specification>
getPseudoElementUnchecked :: (MonadDOM m, IsKeyframeEffectOptions self, FromJSString result) => self -> m result
getPseudoElementUnchecked self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "pseudoElement") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeeffectoptions-iterationcomposite KeyframeEffectOptions.iterationComposite specification>
setIterationComposite :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> IterationCompositeOperation -> m ()
setIterationComposite self val = liftDOM (void ((Types.toKeyframeEffectOptions self) ^. jss "iterationComposite" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeeffectoptions-iterationcomposite KeyframeEffectOptions.iterationComposite specification>
getIterationComposite :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> m (Maybe IterationCompositeOperation)
getIterationComposite self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "iterationComposite") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeeffectoptions-iterationcomposite KeyframeEffectOptions.iterationComposite specification>
getIterationCompositeUnsafe :: (MonadDOM m, IsKeyframeEffectOptions self, HasCallStack) => self -> m IterationCompositeOperation
getIterationCompositeUnsafe self = liftDOM (((((Types.toKeyframeEffectOptions self) ^. js "iterationComposite") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-keyframeeffectoptions-iterationcomposite KeyframeEffectOptions.iterationComposite specification>
getIterationCompositeUnchecked :: (MonadDOM m, IsKeyframeEffectOptions self) => self -> m IterationCompositeOperation
getIterationCompositeUnchecked self = liftDOM ((((Types.toKeyframeEffectOptions self) ^. js "iterationComposite") >>= fromJSValUnchecked))