StartViewTransitionOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-view-transitions-2 (webref). Do not edit.
module JSDOM.Generated.StartViewTransitionOptions
       (newStartViewTransitionOptions, setUpdate, setTypes, getTypes, getTypesUnsafe, getTypesUnchecked, StartViewTransitionOptions(..), gTypeStartViewTransitionOptions)
       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-view-transitions-2/#dictdef-startviewtransitionoptions StartViewTransitionOptions specification>
newStartViewTransitionOptions :: (MonadDOM m) => m StartViewTransitionOptions
newStartViewTransitionOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-view-transitions-2/#dom-startviewtransitionoptions-update StartViewTransitionOptions.update specification>
setUpdate :: (MonadDOM m) => StartViewTransitionOptions -> Maybe ViewTransitionUpdateCallback -> m ()
setUpdate self val = liftDOM (void (self ^. jss "update" (toJSVal val)))

-- | <https://drafts.csswg.org/css-view-transitions-2/#dom-startviewtransitionoptions-types StartViewTransitionOptions.types specification>
setTypes :: (MonadDOM m, ToJSString val) => StartViewTransitionOptions -> Maybe [val] -> m ()
setTypes self val = liftDOM (void (self ^. jss "types" (toJSVal val)))

-- | <https://drafts.csswg.org/css-view-transitions-2/#dom-startviewtransitionoptions-types StartViewTransitionOptions.types specification>
getTypes :: (MonadDOM m, FromJSString result) => StartViewTransitionOptions -> m (Maybe [result])
getTypes self = liftDOM (((self ^. js "types") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-view-transitions-2/#dom-startviewtransitionoptions-types StartViewTransitionOptions.types specification>
getTypesUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StartViewTransitionOptions -> m [result]
getTypesUnsafe self = liftDOM ((((self ^. js "types") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-view-transitions-2/#dom-startviewtransitionoptions-types StartViewTransitionOptions.types specification>
getTypesUnchecked :: (MonadDOM m, FromJSString result) => StartViewTransitionOptions -> m [result]
getTypesUnchecked self = liftDOM (((self ^. js "types") >>= fromJSValUnchecked))