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")