{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Element (js_getAttribute, getAttribute, js_setAttribute, setAttribute, js_removeAttribute, removeAttribute, js_getAttributeNode, getAttributeNode, js_setAttributeNode, setAttributeNode, js_removeAttributeNode, removeAttributeNode, js_getElementsByTagName, getElementsByTagName, js_hasAttributes, hasAttributes, js_getAttributeNS, getAttributeNS, js_setAttributeNS, setAttributeNS, js_removeAttributeNS, removeAttributeNS, js_getElementsByTagNameNS, getElementsByTagNameNS, js_getAttributeNodeNS, getAttributeNodeNS, js_setAttributeNodeNS, setAttributeNodeNS, js_hasAttribute, hasAttribute, js_hasAttributeNS, hasAttributeNS, js_focus, focus, js_blur, blur, js_scrollIntoView, scrollIntoView, js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded, js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages, js_getElementsByClassName, getElementsByClassName, js_querySelector, querySelector, js_querySelectorAll, querySelectorAll, js_matches, matches, js_closest, closest, js_webkitMatchesSelector, webkitMatchesSelector, js_getClientRects, getClientRects, js_getBoundingClientRect, getBoundingClientRect, js_webkitRequestFullScreen, webkitRequestFullScreen, js_webkitRequestFullscreen, webkitRequestFullscreen, js_requestPointerLock, requestPointerLock, js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges, pattern ALLOW_KEYBOARD_INPUT, js_getTagName, getTagName, js_getAttributes, getAttributes, js_getStyle, getStyle, 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, js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML, js_setOuterHTML, setOuterHTML, js_getOuterHTML, getOuterHTML, js_setClassName, setClassName, js_getClassName, getClassName, js_getClassList, getClassList, js_getDataset, getDataset, js_getFirstElementChild, getFirstElementChild, js_getLastElementChild, getLastElementChild, js_getPreviousElementSibling, getPreviousElementSibling, js_getNextElementSibling, getNextElementSibling, 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, castToElement, gTypeElement, IsElement, toElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.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))) 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))) 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))) 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))) 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))) 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)) 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))) 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))) 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))) 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))) 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)) 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)) 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))) 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))) 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))) 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)) 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))) 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)) 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))) 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))) 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 JSRef -- | webkitGetRegionFlowRanges :: (MonadIO m, IsElement self) => self -> m [Maybe Range] webkitGetRegionFlowRanges self = liftIO ((js_webkitGetRegionFlowRanges (toElement self)) >>= fromJSRefUnchecked) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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))) 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")