{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Element (js_getAttribute, getAttribute, getAttribute_, getAttributeUnsafe, getAttributeUnchecked, js_setAttribute, setAttribute, js_removeAttribute, removeAttribute, js_getAttributeNode, getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, getAttributeNodeUnchecked, js_setAttributeNode, setAttributeNode, setAttributeNode_, setAttributeNodeUnsafe, setAttributeNodeUnchecked, js_removeAttributeNode, removeAttributeNode, removeAttributeNode_, removeAttributeNodeUnsafe, removeAttributeNodeUnchecked, js_getElementsByTagName, getElementsByTagName, getElementsByTagName_, getElementsByTagNameUnsafe, getElementsByTagNameUnchecked, js_hasAttributes, hasAttributes, hasAttributes_, js_getAttributeNS, getAttributeNS, getAttributeNS_, js_setAttributeNS, setAttributeNS, js_removeAttributeNS, removeAttributeNS, js_getElementsByTagNameNS, getElementsByTagNameNS, getElementsByTagNameNS_, getElementsByTagNameNSUnsafe, getElementsByTagNameNSUnchecked, js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked, js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_, setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked, js_hasAttribute, hasAttribute, hasAttribute_, js_hasAttributeNS, hasAttributeNS, hasAttributeNS_, js_focus, focus, js_blur, blur, js_scrollIntoView, scrollIntoView, js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded, js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages, js_getElementsByClassName, getElementsByClassName, getElementsByClassName_, getElementsByClassNameUnsafe, getElementsByClassNameUnchecked, js_querySelector, querySelector, querySelector_, querySelectorUnsafe, querySelectorUnchecked, js_querySelectorAll, querySelectorAll, querySelectorAll_, querySelectorAllUnsafe, querySelectorAllUnchecked, js_matches, matches, matches_, js_closest, closest, closest_, closestUnsafe, closestUnchecked, js_webkitMatchesSelector, webkitMatchesSelector, webkitMatchesSelector_, js_getClientRects, getClientRects, getClientRects_, getClientRectsUnsafe, getClientRectsUnchecked, js_getBoundingClientRect, getBoundingClientRect, getBoundingClientRect_, getBoundingClientRectUnsafe, getBoundingClientRectUnchecked, js_webkitRequestFullScreen, webkitRequestFullScreen, js_webkitRequestFullscreen, webkitRequestFullscreen, js_requestPointerLock, requestPointerLock, js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_, pattern ALLOW_KEYBOARD_INPUT, js_getTagName, getTagName, getTagNameUnsafe, getTagNameUnchecked, js_getAttributes, getAttributes, getAttributesUnsafe, getAttributesUnchecked, js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked, js_setId, setId, js_getId, getId, js_getOffsetLeft, getOffsetLeft, js_getOffsetTop, getOffsetTop, js_getOffsetWidth, getOffsetWidth, js_getOffsetHeight, getOffsetHeight, js_getClientLeft, getClientLeft, js_getClientTop, getClientTop, js_getClientWidth, getClientWidth, js_getClientHeight, getClientHeight, js_setScrollLeft, setScrollLeft, js_getScrollLeft, getScrollLeft, js_setScrollTop, setScrollTop, js_getScrollTop, getScrollTop, js_getScrollWidth, getScrollWidth, js_getScrollHeight, getScrollHeight, js_getOffsetParent, getOffsetParent, getOffsetParentUnsafe, getOffsetParentUnchecked, js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML, getInnerHTMLUnsafe, getInnerHTMLUnchecked, js_setOuterHTML, setOuterHTML, js_getOuterHTML, getOuterHTML, getOuterHTMLUnsafe, getOuterHTMLUnchecked, js_setClassName, setClassName, js_getClassName, getClassName, js_getClassList, getClassList, getClassListUnsafe, getClassListUnchecked, js_getDataset, getDataset, getDatasetUnsafe, getDatasetUnchecked, js_getFirstElementChild, getFirstElementChild, getFirstElementChildUnsafe, getFirstElementChildUnchecked, js_getLastElementChild, getLastElementChild, getLastElementChildUnsafe, getLastElementChildUnchecked, js_getPreviousElementSibling, getPreviousElementSibling, getPreviousElementSiblingUnsafe, getPreviousElementSiblingUnchecked, js_getNextElementSibling, getNextElementSibling, getNextElementSiblingUnsafe, getNextElementSiblingUnchecked, js_getChildElementCount, getChildElementCount, js_setUiactions, setUiactions, js_getUiactions, getUiactions, js_getWebkitRegionOverset, getWebkitRegionOverset, abort, blurEvent, change, click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent, input, invalid, keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll, select, submit, wheel, beforeCut, cut, beforeCopy, copy, beforePaste, paste, reset, search, selectStart, touchStart, touchMove, touchEnd, touchCancel, webKitFullscreenChange, webKitFullscreenError, webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, Element(..), gTypeElement, IsElement, toElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"getAttribute\"]($2)" js_getAttribute :: Element -> JSString -> IO (Nullable JSString) -- | getAttribute :: (MonadIO m, IsElement self, ToJSString name, FromJSString result) => self -> name -> m (Maybe result) getAttribute self name = liftIO (fromMaybeJSString <$> (js_getAttribute (toElement self) (toJSString name))) -- | getAttribute_ :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () getAttribute_ self name = liftIO (void (js_getAttribute (toElement self) (toJSString name))) -- | getAttributeUnsafe :: (MonadIO m, IsElement self, ToJSString name, HasCallStack, FromJSString result) => self -> name -> m result getAttributeUnsafe self name = liftIO ((fromMaybeJSString <$> (js_getAttribute (toElement self) (toJSString name))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeUnchecked :: (MonadIO m, IsElement self, ToJSString name, FromJSString result) => self -> name -> m result getAttributeUnchecked self name = liftIO (fromJust . fromMaybeJSString <$> (js_getAttribute (toElement self) (toJSString name))) foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)" js_setAttribute :: Element -> JSString -> JSString -> IO () -- | setAttribute :: (MonadIO m, IsElement self, ToJSString name, ToJSString value) => self -> name -> value -> m () setAttribute self name value = liftIO (js_setAttribute (toElement self) (toJSString name) (toJSString value)) foreign import javascript unsafe "$1[\"removeAttribute\"]($2)" js_removeAttribute :: Element -> JSString -> IO () -- | removeAttribute :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () removeAttribute self name = liftIO (js_removeAttribute (toElement self) (toJSString name)) foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)" js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr) -- | getAttributeNode :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m (Maybe Attr) getAttributeNode self name = liftIO (nullableToMaybe <$> (js_getAttributeNode (toElement self) (toJSString name))) -- | getAttributeNode_ :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () getAttributeNode_ self name = liftIO (void (js_getAttributeNode (toElement self) (toJSString name))) -- | getAttributeNodeUnsafe :: (MonadIO m, IsElement self, ToJSString name, HasCallStack) => self -> name -> m Attr getAttributeNodeUnsafe self name = liftIO ((nullableToMaybe <$> (js_getAttributeNode (toElement self) (toJSString name))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNodeUnchecked :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m Attr getAttributeNodeUnchecked self name = liftIO (fromJust . nullableToMaybe <$> (js_getAttributeNode (toElement self) (toJSString name))) foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)" js_setAttributeNode :: Element -> Nullable Attr -> IO (Nullable Attr) -- | setAttributeNode :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNode self newAttr = liftIO (nullableToMaybe <$> (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) -- | setAttributeNode_ :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m () setAttributeNode_ self newAttr = liftIO (void (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) -- | setAttributeNodeUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> Maybe Attr -> m Attr setAttributeNodeUnsafe self newAttr = liftIO ((nullableToMaybe <$> (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) >>= maybe (Prelude.error "Nothing to return") return) -- | setAttributeNodeUnchecked :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr setAttributeNodeUnchecked self newAttr = liftIO (fromJust . nullableToMaybe <$> (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)" js_removeAttributeNode :: Element -> Nullable Attr -> IO (Nullable Attr) -- | removeAttributeNode :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) removeAttributeNode self oldAttr = liftIO (nullableToMaybe <$> (js_removeAttributeNode (toElement self) (maybeToNullable oldAttr))) -- | removeAttributeNode_ :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m () removeAttributeNode_ self oldAttr = liftIO (void (js_removeAttributeNode (toElement self) (maybeToNullable oldAttr))) -- | removeAttributeNodeUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> Maybe Attr -> m Attr removeAttributeNodeUnsafe self oldAttr = liftIO ((nullableToMaybe <$> (js_removeAttributeNode (toElement self) (maybeToNullable oldAttr))) >>= maybe (Prelude.error "Nothing to return") return) -- | removeAttributeNodeUnchecked :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr removeAttributeNodeUnchecked self oldAttr = liftIO (fromJust . nullableToMaybe <$> (js_removeAttributeNode (toElement self) (maybeToNullable oldAttr))) foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)" js_getElementsByTagName :: Element -> JSString -> IO (Nullable NodeList) -- | getElementsByTagName :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByTagName self name = liftIO (nullableToMaybe <$> (js_getElementsByTagName (toElement self) (toJSString name))) -- | getElementsByTagName_ :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () getElementsByTagName_ self name = liftIO (void (js_getElementsByTagName (toElement self) (toJSString name))) -- | getElementsByTagNameUnsafe :: (MonadIO m, IsElement self, ToJSString name, HasCallStack) => self -> name -> m NodeList getElementsByTagNameUnsafe self name = liftIO ((nullableToMaybe <$> (js_getElementsByTagName (toElement self) (toJSString name))) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByTagNameUnchecked :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m NodeList getElementsByTagNameUnchecked self name = liftIO (fromJust . nullableToMaybe <$> (js_getElementsByTagName (toElement self) (toJSString name))) foreign import javascript unsafe "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes :: Element -> IO Bool -- | hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool hasAttributes self = liftIO (js_hasAttributes (toElement self)) -- | hasAttributes_ :: (MonadIO m, IsElement self) => self -> m () hasAttributes_ self = liftIO (void (js_hasAttributes (toElement self))) foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)" js_getAttributeNS :: Element -> Nullable JSString -> JSString -> IO JSString -- | getAttributeNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName, FromJSString result) => self -> Maybe namespaceURI -> localName -> m result getAttributeNS self namespaceURI localName = liftIO (fromJSString <$> (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) -- | getAttributeNS_ :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () getAttributeNS_ self namespaceURI localName = liftIO (void (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) foreign import javascript unsafe "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS :: Element -> Nullable JSString -> JSString -> JSString -> IO () -- | setAttributeNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString qualifiedName, ToJSString value) => self -> Maybe namespaceURI -> qualifiedName -> value -> m () setAttributeNS self namespaceURI qualifiedName value = liftIO (js_setAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString qualifiedName) (toJSString value)) foreign import javascript unsafe "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS :: Element -> Nullable JSString -> JSString -> IO () -- | removeAttributeNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () removeAttributeNS self namespaceURI localName = liftIO (js_removeAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName)) foreign import javascript unsafe "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS :: Element -> Nullable JSString -> JSString -> IO (Nullable NodeList) -- | getElementsByTagNameNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) getElementsByTagNameNS self namespaceURI localName = liftIO (nullableToMaybe <$> (js_getElementsByTagNameNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) -- | getElementsByTagNameNS_ :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () getElementsByTagNameNS_ self namespaceURI localName = liftIO (void (js_getElementsByTagNameNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) -- | getElementsByTagNameNSUnsafe :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName, HasCallStack) => self -> Maybe namespaceURI -> localName -> m NodeList getElementsByTagNameNSUnsafe self namespaceURI localName = liftIO ((nullableToMaybe <$> (js_getElementsByTagNameNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByTagNameNSUnchecked :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m NodeList getElementsByTagNameNSUnchecked self namespaceURI localName = liftIO (fromJust . nullableToMaybe <$> (js_getElementsByTagNameNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) foreign import javascript unsafe "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS :: Element -> Nullable JSString -> JSString -> IO (Nullable Attr) -- | getAttributeNodeNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m (Maybe Attr) getAttributeNodeNS self namespaceURI localName = liftIO (nullableToMaybe <$> (js_getAttributeNodeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) -- | getAttributeNodeNS_ :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () getAttributeNodeNS_ self namespaceURI localName = liftIO (void (js_getAttributeNodeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) -- | getAttributeNodeNSUnsafe :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName, HasCallStack) => self -> Maybe namespaceURI -> localName -> m Attr getAttributeNodeNSUnsafe self namespaceURI localName = liftIO ((nullableToMaybe <$> (js_getAttributeNodeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNodeNSUnchecked :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m Attr getAttributeNodeNSUnchecked self namespaceURI localName = liftIO (fromJust . nullableToMaybe <$> (js_getAttributeNodeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)" js_setAttributeNodeNS :: Element -> Nullable Attr -> IO (Nullable Attr) -- | setAttributeNodeNS :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNodeNS self newAttr = liftIO (nullableToMaybe <$> (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) -- | setAttributeNodeNS_ :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m () setAttributeNodeNS_ self newAttr = liftIO (void (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) -- | setAttributeNodeNSUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> Maybe Attr -> m Attr setAttributeNodeNSUnsafe self newAttr = liftIO ((nullableToMaybe <$> (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) >>= maybe (Prelude.error "Nothing to return") return) -- | setAttributeNodeNSUnchecked :: (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr setAttributeNodeNSUnchecked self newAttr = liftIO (fromJust . nullableToMaybe <$> (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) foreign import javascript unsafe "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute :: Element -> JSString -> IO Bool -- | hasAttribute :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m Bool hasAttribute self name = liftIO (js_hasAttribute (toElement self) (toJSString name)) -- | hasAttribute_ :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () hasAttribute_ self name = liftIO (void (js_hasAttribute (toElement self) (toJSString name))) foreign import javascript unsafe "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS :: Element -> Nullable JSString -> JSString -> IO Bool -- | hasAttributeNS :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m Bool hasAttributeNS self namespaceURI localName = liftIO (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName)) -- | hasAttributeNS_ :: (MonadIO m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m () hasAttributeNS_ self namespaceURI localName = liftIO (void (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI) (toJSString localName))) foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: Element -> IO () -- | focus :: (MonadIO m, IsElement self) => self -> m () focus self = liftIO (js_focus (toElement self)) foreign import javascript unsafe "$1[\"blur\"]()" js_blur :: Element -> IO () -- | blur :: (MonadIO m, IsElement self) => self -> m () blur self = liftIO (js_blur (toElement self)) foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)" js_scrollIntoView :: Element -> Bool -> IO () -- | scrollIntoView :: (MonadIO m, IsElement self) => self -> Bool -> m () scrollIntoView self alignWithTop = liftIO (js_scrollIntoView (toElement self) alignWithTop) foreign import javascript unsafe "$1[\"scrollIntoViewIfNeeded\"]($2)" js_scrollIntoViewIfNeeded :: Element -> Bool -> IO () -- | scrollIntoViewIfNeeded :: (MonadIO m, IsElement self) => self -> Bool -> m () scrollIntoViewIfNeeded self centerIfNeeded = liftIO (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded) foreign import javascript unsafe "$1[\"scrollByLines\"]($2)" js_scrollByLines :: Element -> Int -> IO () -- | scrollByLines :: (MonadIO m, IsElement self) => self -> Int -> m () scrollByLines self lines = liftIO (js_scrollByLines (toElement self) lines) foreign import javascript unsafe "$1[\"scrollByPages\"]($2)" js_scrollByPages :: Element -> Int -> IO () -- | scrollByPages :: (MonadIO m, IsElement self) => self -> Int -> m () scrollByPages self pages = liftIO (js_scrollByPages (toElement self) pages) foreign import javascript unsafe "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName :: Element -> JSString -> IO (Nullable NodeList) -- | getElementsByClassName :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByClassName self name = liftIO (nullableToMaybe <$> (js_getElementsByClassName (toElement self) (toJSString name))) -- | getElementsByClassName_ :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m () getElementsByClassName_ self name = liftIO (void (js_getElementsByClassName (toElement self) (toJSString name))) -- | getElementsByClassNameUnsafe :: (MonadIO m, IsElement self, ToJSString name, HasCallStack) => self -> name -> m NodeList getElementsByClassNameUnsafe self name = liftIO ((nullableToMaybe <$> (js_getElementsByClassName (toElement self) (toJSString name))) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByClassNameUnchecked :: (MonadIO m, IsElement self, ToJSString name) => self -> name -> m NodeList getElementsByClassNameUnchecked self name = liftIO (fromJust . nullableToMaybe <$> (js_getElementsByClassName (toElement self) (toJSString name))) foreign import javascript unsafe "$1[\"querySelector\"]($2)" js_querySelector :: Element -> JSString -> IO (Nullable Element) -- | querySelector :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element) querySelector self selectors = liftIO (nullableToMaybe <$> (js_querySelector (toElement self) (toJSString selectors))) -- | querySelector_ :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m () querySelector_ self selectors = liftIO (void (js_querySelector (toElement self) (toJSString selectors))) -- | querySelectorUnsafe :: (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m Element querySelectorUnsafe self selectors = liftIO ((nullableToMaybe <$> (js_querySelector (toElement self) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorUnchecked :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m Element querySelectorUnchecked self selectors = liftIO (fromJust . nullableToMaybe <$> (js_querySelector (toElement self) (toJSString selectors))) foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)" js_querySelectorAll :: Element -> JSString -> IO (Nullable NodeList) -- | querySelectorAll :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe NodeList) querySelectorAll self selectors = liftIO (nullableToMaybe <$> (js_querySelectorAll (toElement self) (toJSString selectors))) -- | querySelectorAll_ :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m () querySelectorAll_ self selectors = liftIO (void (js_querySelectorAll (toElement self) (toJSString selectors))) -- | querySelectorAllUnsafe :: (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m NodeList querySelectorAllUnsafe self selectors = liftIO ((nullableToMaybe <$> (js_querySelectorAll (toElement self) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorAllUnchecked :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m NodeList querySelectorAllUnchecked self selectors = liftIO (fromJust . nullableToMaybe <$> (js_querySelectorAll (toElement self) (toJSString selectors))) foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)" js_matches :: Element -> JSString -> IO Bool -- | matches :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool matches self selectors = liftIO (js_matches (toElement self) (toJSString selectors)) -- | matches_ :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m () matches_ self selectors = liftIO (void (js_matches (toElement self) (toJSString selectors))) foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest :: Element -> JSString -> IO (Nullable Element) -- | closest :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element) closest self selectors = liftIO (nullableToMaybe <$> (js_closest (toElement self) (toJSString selectors))) -- | closest_ :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m () closest_ self selectors = liftIO (void (js_closest (toElement self) (toJSString selectors))) -- | closestUnsafe :: (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m Element closestUnsafe self selectors = liftIO ((nullableToMaybe <$> (js_closest (toElement self) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | closestUnchecked :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m Element closestUnchecked self selectors = liftIO (fromJust . nullableToMaybe <$> (js_closest (toElement self) (toJSString selectors))) foreign import javascript unsafe "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)" js_webkitMatchesSelector :: Element -> JSString -> IO Bool -- | webkitMatchesSelector :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool webkitMatchesSelector self selectors = liftIO (js_webkitMatchesSelector (toElement self) (toJSString selectors)) -- | webkitMatchesSelector_ :: (MonadIO m, IsElement self, ToJSString selectors) => self -> selectors -> m () webkitMatchesSelector_ self selectors = liftIO (void (js_webkitMatchesSelector (toElement self) (toJSString selectors))) foreign import javascript unsafe "$1[\"getClientRects\"]()" js_getClientRects :: Element -> IO (Nullable ClientRectList) -- | getClientRects :: (MonadIO m, IsElement self) => self -> m (Maybe ClientRectList) getClientRects self = liftIO (nullableToMaybe <$> (js_getClientRects (toElement self))) -- | getClientRects_ :: (MonadIO m, IsElement self) => self -> m () getClientRects_ self = liftIO (void (js_getClientRects (toElement self))) -- | getClientRectsUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m ClientRectList getClientRectsUnsafe self = liftIO ((nullableToMaybe <$> (js_getClientRects (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getClientRectsUnchecked :: (MonadIO m, IsElement self) => self -> m ClientRectList getClientRectsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getClientRects (toElement self))) foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()" js_getBoundingClientRect :: Element -> IO (Nullable ClientRect) -- | getBoundingClientRect :: (MonadIO m, IsElement self) => self -> m (Maybe ClientRect) getBoundingClientRect self = liftIO (nullableToMaybe <$> (js_getBoundingClientRect (toElement self))) -- | getBoundingClientRect_ :: (MonadIO m, IsElement self) => self -> m () getBoundingClientRect_ self = liftIO (void (js_getBoundingClientRect (toElement self))) -- | getBoundingClientRectUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m ClientRect getBoundingClientRectUnsafe self = liftIO ((nullableToMaybe <$> (js_getBoundingClientRect (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getBoundingClientRectUnchecked :: (MonadIO m, IsElement self) => self -> m ClientRect getBoundingClientRectUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getBoundingClientRect (toElement self))) foreign import javascript unsafe "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen :: Element -> Word -> IO () -- | webkitRequestFullScreen :: (MonadIO m, IsElement self) => self -> Word -> m () webkitRequestFullScreen self flags = liftIO (js_webkitRequestFullScreen (toElement self) flags) foreign import javascript unsafe "$1[\"webkitRequestFullscreen\"]()" js_webkitRequestFullscreen :: Element -> IO () -- | webkitRequestFullscreen :: (MonadIO m, IsElement self) => self -> m () webkitRequestFullscreen self = liftIO (js_webkitRequestFullscreen (toElement self)) foreign import javascript unsafe "$1[\"requestPointerLock\"]()" js_requestPointerLock :: Element -> IO () -- | requestPointerLock :: (MonadIO m, IsElement self) => self -> m () requestPointerLock self = liftIO (js_requestPointerLock (toElement self)) foreign import javascript unsafe "$1[\"webkitGetRegionFlowRanges\"]()" js_webkitGetRegionFlowRanges :: Element -> IO JSVal -- | webkitGetRegionFlowRanges :: (MonadIO m, IsElement self) => self -> m [Maybe Range] webkitGetRegionFlowRanges self = liftIO ((js_webkitGetRegionFlowRanges (toElement self)) >>= fromJSValUnchecked) -- | webkitGetRegionFlowRanges_ :: (MonadIO m, IsElement self) => self -> m () webkitGetRegionFlowRanges_ self = liftIO (void (js_webkitGetRegionFlowRanges (toElement self))) pattern ALLOW_KEYBOARD_INPUT = 1 foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName :: Element -> IO (Nullable JSString) -- | getTagName :: (MonadIO m, IsElement self, FromJSString result) => self -> m (Maybe result) getTagName self = liftIO (fromMaybeJSString <$> (js_getTagName (toElement self))) -- | getTagNameUnsafe :: (MonadIO m, IsElement self, HasCallStack, FromJSString result) => self -> m result getTagNameUnsafe self = liftIO ((fromMaybeJSString <$> (js_getTagName (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTagNameUnchecked :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getTagNameUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getTagName (toElement self))) foreign import javascript unsafe "$1[\"attributes\"]" js_getAttributes :: Element -> IO (Nullable NamedNodeMap) -- | getAttributes :: (MonadIO m, IsElement self) => self -> m (Maybe NamedNodeMap) getAttributes self = liftIO (nullableToMaybe <$> (js_getAttributes (toElement self))) -- | getAttributesUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m NamedNodeMap getAttributesUnsafe self = liftIO ((nullableToMaybe <$> (js_getAttributes (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributesUnchecked :: (MonadIO m, IsElement self) => self -> m NamedNodeMap getAttributesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getAttributes (toElement self))) foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: Element -> IO (Nullable CSSStyleDeclaration) -- | getStyle :: (MonadIO m, IsElement self) => self -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (toElement self))) -- | getStyleUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m CSSStyleDeclaration getStyleUnsafe self = liftIO ((nullableToMaybe <$> (js_getStyle (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getStyleUnchecked :: (MonadIO m, IsElement self) => self -> m CSSStyleDeclaration getStyleUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (toElement self))) foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: Element -> JSString -> IO () -- | setId :: (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setId self val = liftIO (js_setId (toElement self) (toJSString val)) foreign import javascript unsafe "$1[\"id\"]" js_getId :: Element -> IO JSString -- | getId :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getId self = liftIO (fromJSString <$> (js_getId (toElement self))) foreign import javascript unsafe "$1[\"offsetLeft\"]" js_getOffsetLeft :: Element -> IO Double -- | getOffsetLeft :: (MonadIO m, IsElement self) => self -> m Double getOffsetLeft self = liftIO (js_getOffsetLeft (toElement self)) foreign import javascript unsafe "$1[\"offsetTop\"]" js_getOffsetTop :: Element -> IO Double -- | getOffsetTop :: (MonadIO m, IsElement self) => self -> m Double getOffsetTop self = liftIO (js_getOffsetTop (toElement self)) foreign import javascript unsafe "$1[\"offsetWidth\"]" js_getOffsetWidth :: Element -> IO Double -- | getOffsetWidth :: (MonadIO m, IsElement self) => self -> m Double getOffsetWidth self = liftIO (js_getOffsetWidth (toElement self)) foreign import javascript unsafe "$1[\"offsetHeight\"]" js_getOffsetHeight :: Element -> IO Double -- | getOffsetHeight :: (MonadIO m, IsElement self) => self -> m Double getOffsetHeight self = liftIO (js_getOffsetHeight (toElement self)) foreign import javascript unsafe "$1[\"clientLeft\"]" js_getClientLeft :: Element -> IO Double -- | getClientLeft :: (MonadIO m, IsElement self) => self -> m Double getClientLeft self = liftIO (js_getClientLeft (toElement self)) foreign import javascript unsafe "$1[\"clientTop\"]" js_getClientTop :: Element -> IO Double -- | getClientTop :: (MonadIO m, IsElement self) => self -> m Double getClientTop self = liftIO (js_getClientTop (toElement self)) foreign import javascript unsafe "$1[\"clientWidth\"]" js_getClientWidth :: Element -> IO Double -- | getClientWidth :: (MonadIO m, IsElement self) => self -> m Double getClientWidth self = liftIO (js_getClientWidth (toElement self)) foreign import javascript unsafe "$1[\"clientHeight\"]" js_getClientHeight :: Element -> IO Double -- | getClientHeight :: (MonadIO m, IsElement self) => self -> m Double getClientHeight self = liftIO (js_getClientHeight (toElement self)) foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;" js_setScrollLeft :: Element -> Int -> IO () -- | setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m () setScrollLeft self val = liftIO (js_setScrollLeft (toElement self) val) foreign import javascript unsafe "$1[\"scrollLeft\"]" js_getScrollLeft :: Element -> IO Int -- | getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int getScrollLeft self = liftIO (js_getScrollLeft (toElement self)) foreign import javascript unsafe "$1[\"scrollTop\"] = $2;" js_setScrollTop :: Element -> Int -> IO () -- | setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m () setScrollTop self val = liftIO (js_setScrollTop (toElement self) val) foreign import javascript unsafe "$1[\"scrollTop\"]" js_getScrollTop :: Element -> IO Int -- | getScrollTop :: (MonadIO m, IsElement self) => self -> m Int getScrollTop self = liftIO (js_getScrollTop (toElement self)) foreign import javascript unsafe "$1[\"scrollWidth\"]" js_getScrollWidth :: Element -> IO Int -- | getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int getScrollWidth self = liftIO (js_getScrollWidth (toElement self)) foreign import javascript unsafe "$1[\"scrollHeight\"]" js_getScrollHeight :: Element -> IO Int -- | getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int getScrollHeight self = liftIO (js_getScrollHeight (toElement self)) foreign import javascript unsafe "$1[\"offsetParent\"]" js_getOffsetParent :: Element -> IO (Nullable Element) -- | getOffsetParent :: (MonadIO m, IsElement self) => self -> m (Maybe Element) getOffsetParent self = liftIO (nullableToMaybe <$> (js_getOffsetParent (toElement self))) -- | getOffsetParentUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m Element getOffsetParentUnsafe self = liftIO ((nullableToMaybe <$> (js_getOffsetParent (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getOffsetParentUnchecked :: (MonadIO m, IsElement self) => self -> m Element getOffsetParentUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getOffsetParent (toElement self))) foreign import javascript unsafe "$1[\"innerHTML\"] = $2;" js_setInnerHTML :: Element -> Nullable JSString -> IO () -- | setInnerHTML :: (MonadIO m, IsElement self, ToJSString val) => self -> Maybe val -> m () setInnerHTML self val = liftIO (js_setInnerHTML (toElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"innerHTML\"]" js_getInnerHTML :: Element -> IO (Nullable JSString) -- | getInnerHTML :: (MonadIO m, IsElement self, FromJSString result) => self -> m (Maybe result) getInnerHTML self = liftIO (fromMaybeJSString <$> (js_getInnerHTML (toElement self))) -- | getInnerHTMLUnsafe :: (MonadIO m, IsElement self, HasCallStack, FromJSString result) => self -> m result getInnerHTMLUnsafe self = liftIO ((fromMaybeJSString <$> (js_getInnerHTML (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getInnerHTMLUnchecked :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getInnerHTMLUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getInnerHTML (toElement self))) foreign import javascript unsafe "$1[\"outerHTML\"] = $2;" js_setOuterHTML :: Element -> Nullable JSString -> IO () -- | setOuterHTML :: (MonadIO m, IsElement self, ToJSString val) => self -> Maybe val -> m () setOuterHTML self val = liftIO (js_setOuterHTML (toElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"outerHTML\"]" js_getOuterHTML :: Element -> IO (Nullable JSString) -- | getOuterHTML :: (MonadIO m, IsElement self, FromJSString result) => self -> m (Maybe result) getOuterHTML self = liftIO (fromMaybeJSString <$> (js_getOuterHTML (toElement self))) -- | getOuterHTMLUnsafe :: (MonadIO m, IsElement self, HasCallStack, FromJSString result) => self -> m result getOuterHTMLUnsafe self = liftIO ((fromMaybeJSString <$> (js_getOuterHTML (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getOuterHTMLUnchecked :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getOuterHTMLUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getOuterHTML (toElement self))) foreign import javascript unsafe "$1[\"className\"] = $2;" js_setClassName :: Element -> JSString -> IO () -- | setClassName :: (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setClassName self val = liftIO (js_setClassName (toElement self) (toJSString val)) foreign import javascript unsafe "$1[\"className\"]" js_getClassName :: Element -> IO JSString -- | getClassName :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getClassName self = liftIO (fromJSString <$> (js_getClassName (toElement self))) foreign import javascript unsafe "$1[\"classList\"]" js_getClassList :: Element -> IO (Nullable DOMTokenList) -- | getClassList :: (MonadIO m, IsElement self) => self -> m (Maybe DOMTokenList) getClassList self = liftIO (nullableToMaybe <$> (js_getClassList (toElement self))) -- | getClassListUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m DOMTokenList getClassListUnsafe self = liftIO ((nullableToMaybe <$> (js_getClassList (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getClassListUnchecked :: (MonadIO m, IsElement self) => self -> m DOMTokenList getClassListUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getClassList (toElement self))) foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset :: Element -> IO (Nullable DOMStringMap) -- | getDataset :: (MonadIO m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self = liftIO (nullableToMaybe <$> (js_getDataset (toElement self))) -- | getDatasetUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m DOMStringMap getDatasetUnsafe self = liftIO ((nullableToMaybe <$> (js_getDataset (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getDatasetUnchecked :: (MonadIO m, IsElement self) => self -> m DOMStringMap getDatasetUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getDataset (toElement self))) foreign import javascript unsafe "$1[\"firstElementChild\"]" js_getFirstElementChild :: Element -> IO (Nullable Element) -- | getFirstElementChild :: (MonadIO m, IsElement self) => self -> m (Maybe Element) getFirstElementChild self = liftIO (nullableToMaybe <$> (js_getFirstElementChild (toElement self))) -- | getFirstElementChildUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m Element getFirstElementChildUnsafe self = liftIO ((nullableToMaybe <$> (js_getFirstElementChild (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getFirstElementChildUnchecked :: (MonadIO m, IsElement self) => self -> m Element getFirstElementChildUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getFirstElementChild (toElement self))) foreign import javascript unsafe "$1[\"lastElementChild\"]" js_getLastElementChild :: Element -> IO (Nullable Element) -- | getLastElementChild :: (MonadIO m, IsElement self) => self -> m (Maybe Element) getLastElementChild self = liftIO (nullableToMaybe <$> (js_getLastElementChild (toElement self))) -- | getLastElementChildUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m Element getLastElementChildUnsafe self = liftIO ((nullableToMaybe <$> (js_getLastElementChild (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getLastElementChildUnchecked :: (MonadIO m, IsElement self) => self -> m Element getLastElementChildUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getLastElementChild (toElement self))) foreign import javascript unsafe "$1[\"previousElementSibling\"]" js_getPreviousElementSibling :: Element -> IO (Nullable Element) -- | getPreviousElementSibling :: (MonadIO m, IsElement self) => self -> m (Maybe Element) getPreviousElementSibling self = liftIO (nullableToMaybe <$> (js_getPreviousElementSibling (toElement self))) -- | getPreviousElementSiblingUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m Element getPreviousElementSiblingUnsafe self = liftIO ((nullableToMaybe <$> (js_getPreviousElementSibling (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getPreviousElementSiblingUnchecked :: (MonadIO m, IsElement self) => self -> m Element getPreviousElementSiblingUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getPreviousElementSibling (toElement self))) foreign import javascript unsafe "$1[\"nextElementSibling\"]" js_getNextElementSibling :: Element -> IO (Nullable Element) -- | getNextElementSibling :: (MonadIO m, IsElement self) => self -> m (Maybe Element) getNextElementSibling self = liftIO (nullableToMaybe <$> (js_getNextElementSibling (toElement self))) -- | getNextElementSiblingUnsafe :: (MonadIO m, IsElement self, HasCallStack) => self -> m Element getNextElementSiblingUnsafe self = liftIO ((nullableToMaybe <$> (js_getNextElementSibling (toElement self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getNextElementSiblingUnchecked :: (MonadIO m, IsElement self) => self -> m Element getNextElementSiblingUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getNextElementSibling (toElement self))) foreign import javascript unsafe "$1[\"childElementCount\"]" js_getChildElementCount :: Element -> IO Word -- | getChildElementCount :: (MonadIO m, IsElement self) => self -> m Word getChildElementCount self = liftIO (js_getChildElementCount (toElement self)) foreign import javascript unsafe "$1[\"uiactions\"] = $2;" js_setUiactions :: Element -> JSString -> IO () -- | setUiactions :: (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setUiactions self val = liftIO (js_setUiactions (toElement self) (toJSString val)) foreign import javascript unsafe "$1[\"uiactions\"]" js_getUiactions :: Element -> IO JSString -- | getUiactions :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getUiactions self = liftIO (fromJSString <$> (js_getUiactions (toElement self))) foreign import javascript unsafe "$1[\"webkitRegionOverset\"]" js_getWebkitRegionOverset :: Element -> IO JSString -- | getWebkitRegionOverset :: (MonadIO m, IsElement self, FromJSString result) => self -> m result getWebkitRegionOverset self = liftIO (fromJSString <$> (js_getWebkitRegionOverset (toElement self))) -- | abort :: (IsElement self, IsEventTarget self) => EventName self UIEvent abort = unsafeEventName (toJSString "abort") -- | blurEvent :: (IsElement self, IsEventTarget self) => EventName self FocusEvent blurEvent = unsafeEventName (toJSString "blur") -- | change :: (IsElement self, IsEventTarget self) => EventName self Event change = unsafeEventName (toJSString "change") -- | click :: (IsElement self, IsEventTarget self) => EventName self MouseEvent click = unsafeEventName (toJSString "click") -- | contextMenu :: (IsElement self, IsEventTarget self) => EventName self MouseEvent contextMenu = unsafeEventName (toJSString "contextmenu") -- | dblClick :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dblClick = unsafeEventName (toJSString "dblclick") -- | drag :: (IsElement self, IsEventTarget self) => EventName self MouseEvent drag = unsafeEventName (toJSString "drag") -- | dragEnd :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragEnd = unsafeEventName (toJSString "dragend") -- | dragEnter :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragEnter = unsafeEventName (toJSString "dragenter") -- | dragLeave :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragLeave = unsafeEventName (toJSString "dragleave") -- | dragOver :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragOver = unsafeEventName (toJSString "dragover") -- | dragStart :: (IsElement self, IsEventTarget self) => EventName self MouseEvent dragStart = unsafeEventName (toJSString "dragstart") -- | drop :: (IsElement self, IsEventTarget self) => EventName self MouseEvent drop = unsafeEventName (toJSString "drop") -- | error :: (IsElement self, IsEventTarget self) => EventName self UIEvent error = unsafeEventName (toJSString "error") -- | focusEvent :: (IsElement self, IsEventTarget self) => EventName self FocusEvent focusEvent = unsafeEventName (toJSString "focus") -- | input :: (IsElement self, IsEventTarget self) => EventName self Event input = unsafeEventName (toJSString "input") -- | invalid :: (IsElement self, IsEventTarget self) => EventName self Event invalid = unsafeEventName (toJSString "invalid") -- | keyDown :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyDown = unsafeEventName (toJSString "keydown") -- | keyPress :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyPress = unsafeEventName (toJSString "keypress") -- | keyUp :: (IsElement self, IsEventTarget self) => EventName self KeyboardEvent keyUp = unsafeEventName (toJSString "keyup") -- | load :: (IsElement self, IsEventTarget self) => EventName self UIEvent load = unsafeEventName (toJSString "load") -- | mouseDown :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseDown = unsafeEventName (toJSString "mousedown") -- | mouseEnter :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseEnter = unsafeEventName (toJSString "mouseenter") -- | mouseLeave :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseLeave = unsafeEventName (toJSString "mouseleave") -- | mouseMove :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseMove = unsafeEventName (toJSString "mousemove") -- | mouseOut :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseOut = unsafeEventName (toJSString "mouseout") -- | mouseOver :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseOver = unsafeEventName (toJSString "mouseover") -- | mouseUp :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseUp = unsafeEventName (toJSString "mouseup") -- | mouseWheel :: (IsElement self, IsEventTarget self) => EventName self MouseEvent mouseWheel = unsafeEventName (toJSString "mousewheel") -- | scroll :: (IsElement self, IsEventTarget self) => EventName self UIEvent scroll = unsafeEventName (toJSString "scroll") -- | select :: (IsElement self, IsEventTarget self) => EventName self UIEvent select = unsafeEventName (toJSString "select") -- | submit :: (IsElement self, IsEventTarget self) => EventName self Event submit = unsafeEventName (toJSString "submit") -- | wheel :: (IsElement self, IsEventTarget self) => EventName self WheelEvent wheel = unsafeEventName (toJSString "wheel") -- | beforeCut :: (IsElement self, IsEventTarget self) => EventName self Event beforeCut = unsafeEventName (toJSString "beforecut") -- | cut :: (IsElement self, IsEventTarget self) => EventName self Event cut = unsafeEventName (toJSString "cut") -- | beforeCopy :: (IsElement self, IsEventTarget self) => EventName self Event beforeCopy = unsafeEventName (toJSString "beforecopy") -- | copy :: (IsElement self, IsEventTarget self) => EventName self Event copy = unsafeEventName (toJSString "copy") -- | beforePaste :: (IsElement self, IsEventTarget self) => EventName self Event beforePaste = unsafeEventName (toJSString "beforepaste") -- | paste :: (IsElement self, IsEventTarget self) => EventName self Event paste = unsafeEventName (toJSString "paste") -- | reset :: (IsElement self, IsEventTarget self) => EventName self Event reset = unsafeEventName (toJSString "reset") -- | search :: (IsElement self, IsEventTarget self) => EventName self Event search = unsafeEventName (toJSString "search") -- | selectStart :: (IsElement self, IsEventTarget self) => EventName self Event selectStart = unsafeEventName (toJSString "selectstart") -- | touchStart :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchStart = unsafeEventName (toJSString "touchstart") -- | touchMove :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchMove = unsafeEventName (toJSString "touchmove") -- | touchEnd :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchEnd = unsafeEventName (toJSString "touchend") -- | touchCancel :: (IsElement self, IsEventTarget self) => EventName self TouchEvent touchCancel = unsafeEventName (toJSString "touchcancel") -- | webKitFullscreenChange :: (IsElement self, IsEventTarget self) => EventName self Event webKitFullscreenChange = unsafeEventName (toJSString "webkitfullscreenchange") -- | webKitFullscreenError :: (IsElement self, IsEventTarget self) => EventName self Event webKitFullscreenError = unsafeEventName (toJSString "webkitfullscreenerror") -- | webKitWillRevealBottom :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealBottom = unsafeEventName (toJSString "webkitwillrevealbottom") -- | webKitWillRevealLeft :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealLeft = unsafeEventName (toJSString "webkitwillrevealleft") -- | webKitWillRevealRight :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealRight = unsafeEventName (toJSString "webkitwillrevealright") -- | webKitWillRevealTop :: (IsElement self, IsEventTarget self) => EventName self Event webKitWillRevealTop = unsafeEventName (toJSString "webkitwillrevealtop")