KeyboardEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from uievents (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.KeyboardEvent
       (js_newKeyboardEvent, js_getModifierState, js_initKeyboardEvent, js_getKey, js_getCode, js_getLocation, js_getCtrlKey, js_getShiftKey, js_getAltKey, js_getMetaKey, js_getRepeat, js_getIsComposing, js_getCharCode, js_getKeyCode, newKeyboardEvent, getModifierState, getModifierState_, initKeyboardEvent, getKey, getCode, getLocation, getCtrlKey, getShiftKey, getAltKey, getMetaKey, getRepeat, getIsComposing, getCharCode, getKeyCode, pattern DOM_KEY_LOCATION_STANDARD, pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT, pattern DOM_KEY_LOCATION_NUMPAD, KeyboardEvent(..), gTypeKeyboardEvent)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return new globalThis[\"KeyboardEvent\"]($1, $2); })"
        js_newKeyboardEvent :: JSString -> JSVal -> IO KeyboardEvent
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/KeyboardEvent MDN KeyboardEvent. documentation>
newKeyboardEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe KeyboardEventInit -> m KeyboardEvent
newKeyboardEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newKeyboardEvent (toJSString type') a2'))

foreign import javascript safe "(($1, $2) => { return $1[\"getModifierState\"]($2); })"
        js_getModifierState :: KeyboardEvent -> JSString -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/getModifierState MDN KeyboardEvent.getModifierState documentation>
getModifierState :: (MonadDOM m, ToJSString keyArg) => KeyboardEvent -> keyArg -> m Bool
getModifierState self keyArg = liftDOM ((js_getModifierState (self) (toJSString keyArg)))

-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/getModifierState MDN KeyboardEvent.getModifierState documentation>
getModifierState_ :: (MonadDOM m, ToJSString keyArg) => KeyboardEvent -> keyArg -> m ()
getModifierState_ self keyArg = liftDOM (void ((js_getModifierState (self) (toJSString keyArg))))

foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11) => { return $1[\"initKeyboardEvent\"]($2, $3, $4, $5, $6, $7, $8, $9, $10, $11); })"
        js_initKeyboardEvent :: KeyboardEvent -> JSString -> JSVal -> JSVal -> JSVal -> (Optional JSString) -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/initKeyboardEvent MDN KeyboardEvent.initKeyboardEvent documentation>
initKeyboardEvent :: (MonadDOM m, ToJSString typeArg, ToJSString keyArg) => KeyboardEvent -> typeArg -> Maybe Bool -> Maybe Bool -> Maybe Window -> Maybe keyArg -> Maybe Word -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> m ()
initKeyboardEvent self typeArg bubblesArg cancelableArg viewArg keyArg locationArg ctrlKey altKey shiftKey metaKey = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubblesArg) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelableArg) >>= \a4' -> (toJSVal viewArg) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal locationArg) >>= \a7' -> (P.maybe (P.return jsUndefined) toJSVal ctrlKey) >>= \a8' -> (P.maybe (P.return jsUndefined) toJSVal altKey) >>= \a9' -> (P.maybe (P.return jsUndefined) toJSVal shiftKey) >>= \a10' -> (P.maybe (P.return jsUndefined) toJSVal metaKey) >>= \a11' -> js_initKeyboardEvent (self) (toJSString typeArg) a3' a4' a5' (toOptionalJSString keyArg) a7' a8' a9' a10' a11')))

foreign import javascript unsafe "(($1) => { return $1[\"key\"]; })"
        js_getKey :: KeyboardEvent -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/key MDN KeyboardEvent.key documentation>
getKey :: (MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getKey self = liftDOM ((fromJSString <$> (js_getKey (self))))

foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })"
        js_getCode :: KeyboardEvent -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/code MDN KeyboardEvent.code documentation>
getCode :: (MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getCode self = liftDOM ((fromJSString <$> (js_getCode (self))))

foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })"
        js_getLocation :: KeyboardEvent -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/location MDN KeyboardEvent.location documentation>
getLocation :: (MonadDOM m) => KeyboardEvent -> m Word
getLocation self = liftDOM ((js_getLocation (self)))

foreign import javascript unsafe "(($1) => { return $1[\"ctrlKey\"]; })"
        js_getCtrlKey :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/ctrlKey MDN KeyboardEvent.ctrlKey documentation>
getCtrlKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getCtrlKey self = liftDOM ((js_getCtrlKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"shiftKey\"]; })"
        js_getShiftKey :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/shiftKey MDN KeyboardEvent.shiftKey documentation>
getShiftKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getShiftKey self = liftDOM ((js_getShiftKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"altKey\"]; })"
        js_getAltKey :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/altKey MDN KeyboardEvent.altKey documentation>
getAltKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getAltKey self = liftDOM ((js_getAltKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"metaKey\"]; })"
        js_getMetaKey :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/metaKey MDN KeyboardEvent.metaKey documentation>
getMetaKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getMetaKey self = liftDOM ((js_getMetaKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"repeat\"]; })"
        js_getRepeat :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/repeat MDN KeyboardEvent.repeat documentation>
getRepeat :: (MonadDOM m) => KeyboardEvent -> m Bool
getRepeat self = liftDOM ((js_getRepeat (self)))

foreign import javascript unsafe "(($1) => { return $1[\"isComposing\"]; })"
        js_getIsComposing :: KeyboardEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/isComposing MDN KeyboardEvent.isComposing documentation>
getIsComposing :: (MonadDOM m) => KeyboardEvent -> m Bool
getIsComposing self = liftDOM ((js_getIsComposing (self)))

foreign import javascript unsafe "(($1) => { return $1[\"charCode\"]; })"
        js_getCharCode :: KeyboardEvent -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/charCode MDN KeyboardEvent.charCode documentation>
getCharCode :: (MonadDOM m) => KeyboardEvent -> m Word
getCharCode self = liftDOM ((js_getCharCode (self)))

foreign import javascript unsafe "(($1) => { return $1[\"keyCode\"]; })"
        js_getKeyCode :: KeyboardEvent -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/KeyboardEvent/keyCode MDN KeyboardEvent.keyCode documentation>
getKeyCode :: (MonadDOM m) => KeyboardEvent -> m Word
getKeyCode self = liftDOM ((js_getKeyCode (self)))

pattern DOM_KEY_LOCATION_STANDARD = 0x00

pattern DOM_KEY_LOCATION_LEFT = 0x01

pattern DOM_KEY_LOCATION_RIGHT = 0x02

pattern DOM_KEY_LOCATION_NUMPAD = 0x03