InputEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from uievents (webref). Do not edit.
module JSDOM.Generated.InputEventInit
       (newInputEventInit, setData, getData, getDataUnsafe, getDataUnchecked, setIsComposing, getIsComposing, getIsComposingUnsafe, getIsComposingUnchecked, setInputType, getInputType, getInputTypeUnsafe, getInputTypeUnchecked, setDataTransfer, getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked, setTargetRanges, getTargetRanges, getTargetRangesUnsafe, getTargetRangesUnchecked, InputEventInit(..), gTypeInputEventInit)
       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://w3c.github.io/uievents/#dictdef-inputeventinit InputEventInit specification>
newInputEventInit :: (MonadDOM m) => m InputEventInit
newInputEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-data InputEventInit.data specification>
setData :: (MonadDOM m, ToJSString val) => InputEventInit -> Maybe val -> m ()
setData self val = liftDOM (void (self ^. jss "data" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-data InputEventInit.data specification>
getData :: (MonadDOM m, FromJSString result) => InputEventInit -> m (Maybe result)
getData self = liftDOM (((self ^. js "data") >>= fromMaybeJSString))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-data InputEventInit.data specification>
getDataUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => InputEventInit -> m result
getDataUnsafe self = liftDOM ((((self ^. js "data") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-data InputEventInit.data specification>
getDataUnchecked :: (MonadDOM m, FromJSString result) => InputEventInit -> m result
getDataUnchecked self = liftDOM (((self ^. js "data") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-iscomposing InputEventInit.isComposing specification>
setIsComposing :: (MonadDOM m) => InputEventInit -> Bool -> m ()
setIsComposing self val = liftDOM (void (self ^. jss "isComposing" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-iscomposing InputEventInit.isComposing specification>
getIsComposing :: (MonadDOM m) => InputEventInit -> m (Maybe Bool)
getIsComposing self = liftDOM (((self ^. js "isComposing") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-iscomposing InputEventInit.isComposing specification>
getIsComposingUnsafe :: (MonadDOM m, HasCallStack) => InputEventInit -> m Bool
getIsComposingUnsafe self = liftDOM ((((self ^. js "isComposing") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-iscomposing InputEventInit.isComposing specification>
getIsComposingUnchecked :: (MonadDOM m) => InputEventInit -> m Bool
getIsComposingUnchecked self = liftDOM (((self ^. js "isComposing") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-inputtype InputEventInit.inputType specification>
setInputType :: (MonadDOM m, ToJSString val) => InputEventInit -> val -> m ()
setInputType self val = liftDOM (void (self ^. jss "inputType" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-inputtype InputEventInit.inputType specification>
getInputType :: (MonadDOM m, FromJSString result) => InputEventInit -> m (Maybe result)
getInputType self = liftDOM (((self ^. js "inputType") >>= fromMaybeJSString))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-inputtype InputEventInit.inputType specification>
getInputTypeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => InputEventInit -> m result
getInputTypeUnsafe self = liftDOM ((((self ^. js "inputType") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-inputeventinit-inputtype InputEventInit.inputType specification>
getInputTypeUnchecked :: (MonadDOM m, FromJSString result) => InputEventInit -> m result
getInputTypeUnchecked self = liftDOM (((self ^. js "inputType") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-datatransfer InputEventInit.dataTransfer specification>
setDataTransfer :: (MonadDOM m) => InputEventInit -> Maybe DataTransfer -> m ()
setDataTransfer self val = liftDOM (void (self ^. jss "dataTransfer" (toJSVal val)))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-datatransfer InputEventInit.dataTransfer specification>
getDataTransfer :: (MonadDOM m) => InputEventInit -> m (Maybe DataTransfer)
getDataTransfer self = liftDOM (((self ^. js "dataTransfer") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-datatransfer InputEventInit.dataTransfer specification>
getDataTransferUnsafe :: (MonadDOM m, HasCallStack) => InputEventInit -> m DataTransfer
getDataTransferUnsafe self = liftDOM ((((self ^. js "dataTransfer") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-datatransfer InputEventInit.dataTransfer specification>
getDataTransferUnchecked :: (MonadDOM m) => InputEventInit -> m DataTransfer
getDataTransferUnchecked self = liftDOM (((self ^. js "dataTransfer") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-targetranges InputEventInit.targetRanges specification>
setTargetRanges :: (MonadDOM m) => InputEventInit -> [StaticRange] -> m ()
setTargetRanges self val = liftDOM (void (self ^. jss "targetRanges" (toJSVal val)))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-targetranges InputEventInit.targetRanges specification>
getTargetRanges :: (MonadDOM m) => InputEventInit -> m (Maybe [StaticRange])
getTargetRanges self = liftDOM (((self ^. js "targetRanges") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-targetranges InputEventInit.targetRanges specification>
getTargetRangesUnsafe :: (MonadDOM m, HasCallStack) => InputEventInit -> m [StaticRange]
getTargetRangesUnsafe self = liftDOM ((((self ^. js "targetRanges") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/input-events/#dom-inputeventinit-targetranges InputEventInit.targetRanges specification>
getTargetRangesUnchecked :: (MonadDOM m) => InputEventInit -> m [StaticRange]
getTargetRangesUnchecked self = liftDOM (((self ^. js "targetRanges") >>= fromJSValUnchecked))