EventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from dom (webref). Do not edit.
module JSDOM.Generated.EventInit
       (newEventInit, setBubbles, getBubbles, getBubblesUnsafe, getBubblesUnchecked, setCancelable, getCancelable, getCancelableUnsafe, getCancelableUnchecked, setComposed, getComposed, getComposedUnsafe, getComposedUnchecked, EventInit(..), gTypeEventInit, IsEventInit, toEventInit)
       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://dom.spec.whatwg.org/#dictdef-eventinit EventInit specification>
newEventInit :: (MonadDOM m) => m EventInit
newEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>
setBubbles :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()
setBubbles self val = liftDOM (void ((Types.toEventInit self) ^. jss "bubbles" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>
getBubbles :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)
getBubbles self = liftDOM ((((Types.toEventInit self) ^. js "bubbles") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>
getBubblesUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool
getBubblesUnsafe self = liftDOM (((((Types.toEventInit self) ^. js "bubbles") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>
getBubblesUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool
getBubblesUnchecked self = liftDOM ((((Types.toEventInit self) ^. js "bubbles") >>= valToBool))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>
setCancelable :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()
setCancelable self val = liftDOM (void ((Types.toEventInit self) ^. jss "cancelable" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>
getCancelable :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)
getCancelable self = liftDOM ((((Types.toEventInit self) ^. js "cancelable") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>
getCancelableUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool
getCancelableUnsafe self = liftDOM (((((Types.toEventInit self) ^. js "cancelable") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>
getCancelableUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool
getCancelableUnchecked self = liftDOM ((((Types.toEventInit self) ^. js "cancelable") >>= valToBool))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>
setComposed :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()
setComposed self val = liftDOM (void ((Types.toEventInit self) ^. jss "composed" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>
getComposed :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)
getComposed self = liftDOM ((((Types.toEventInit self) ^. js "composed") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>
getComposedUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool
getComposedUnsafe self = liftDOM (((((Types.toEventInit self) ^. js "composed") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>
getComposedUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool
getComposedUnchecked self = liftDOM ((((Types.toEventInit self) ^. js "composed") >>= valToBool))