module JSDOM.Generated.Element
(getAttribute, getAttribute_, getAttributeUnsafe,
getAttributeUnchecked, setAttribute, removeAttribute,
getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe,
getAttributeNodeUnchecked, setAttributeNode, setAttributeNode_,
setAttributeNodeUnsafe, setAttributeNodeUnchecked,
removeAttributeNode, removeAttributeNode_, getElementsByTagName,
getElementsByTagName_, hasAttributes, hasAttributes_,
getAttributeNS, getAttributeNS_, getAttributeNSUnsafe,
getAttributeNSUnchecked, setAttributeNS, removeAttributeNS,
getElementsByTagNameNS, getElementsByTagNameNS_,
getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe,
getAttributeNodeNSUnchecked, setAttributeNodeNS,
setAttributeNodeNS_, setAttributeNodeNSUnsafe,
setAttributeNodeNSUnchecked, hasAttribute, hasAttribute_,
hasAttributeNS, hasAttributeNS_, scrollIntoView,
scrollIntoViewIfNeeded, scrollOpt, scroll, scrollToOpt, scrollTo,
scrollByOpt, scrollBy, scrollByLines, scrollByPages,
getAttributeNames, getAttributeNames_, getElementsByClassName,
getElementsByClassName_, matches, matches_, closest, closest_,
closestUnsafe, closestUnchecked, webkitMatchesSelector,
webkitMatchesSelector_, getClientRects, getClientRects_,
getBoundingClientRect, getBoundingClientRect_,
webkitRequestFullScreen, webkitRequestFullscreen,
insertAdjacentElement, insertAdjacentElement_,
insertAdjacentElementUnsafe, insertAdjacentElementUnchecked,
insertAdjacentHTML, insertAdjacentText, requestPointerLock,
webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_,
attachShadow, attachShadow_, getTagName, getTagNameUnsafe,
getTagNameUnchecked, getAttributes, getStyle, setId, getId,
getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked,
getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName,
getOffsetLeft, getOffsetTop, getOffsetWidth, getOffsetHeight,
getClientLeft, getClientTop, getClientWidth, getClientHeight,
setScrollLeft, getScrollLeft, setScrollTop, getScrollTop,
getScrollWidth, getScrollHeight, getOffsetParent, setInnerHTML,
getInnerHTML, getInnerHTMLUnsafe, getInnerHTMLUnchecked,
setOuterHTML, getOuterHTML, getOuterHTMLUnsafe,
getOuterHTMLUnchecked, setClassName, getClassName, getClassList,
getWebkitRegionOverset, getShadowRoot, setSlot, getSlot,
beforeCopy, beforeCut, beforeinput, beforePaste, copy, cut, paste,
selectStart, webKitFullscreenChange, webKitFullscreenError,
animationEnd, animationIteration, animationStart, transitionEnd,
webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart,
webKitTransitionEnd, gestureChange, gestureEnd, gestureStart,
focusin, focusout, beforeload, webKitNeedKey,
webKitPresentationModeChanged,
webKitCurrentPlaybackTargetIsWirelessChanged,
webKitPlaybackTargetAvailabilityChanged, Element(..), gTypeElement,
IsElement, toElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getAttribute ::
(MonadDOM m, IsElement self, ToJSString name,
FromJSString result) =>
self -> name -> m (Maybe result)
getAttribute self name
= liftDOM
(((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>=
fromJSVal)
getAttribute_ ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
getAttribute_ self name
= liftDOM
(void ((toElement self) ^. jsf "getAttribute" [toJSVal name]))
getAttributeUnsafe ::
(MonadDOM m, IsElement self, ToJSString name, HasCallStack,
FromJSString result) =>
self -> name -> m result
getAttributeUnsafe self name
= liftDOM
((((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getAttributeUnchecked ::
(MonadDOM m, IsElement self, ToJSString name,
FromJSString result) =>
self -> name -> m result
getAttributeUnchecked self name
= liftDOM
(((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>=
fromJSValUnchecked)
setAttribute ::
(MonadDOM m, IsElement self, ToJSString name, ToJSString value) =>
self -> name -> value -> m ()
setAttribute self name value
= liftDOM
(void
((toElement self) ^. jsf "setAttribute"
[toJSVal name, toJSVal value]))
removeAttribute ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
removeAttribute self name
= liftDOM
(void ((toElement self) ^. jsf "removeAttribute" [toJSVal name]))
getAttributeNode ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m (Maybe Attr)
getAttributeNode self name
= liftDOM
(((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>=
fromJSVal)
getAttributeNode_ ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
getAttributeNode_ self name
= liftDOM
(void ((toElement self) ^. jsf "getAttributeNode" [toJSVal name]))
getAttributeNodeUnsafe ::
(MonadDOM m, IsElement self, ToJSString name, HasCallStack) =>
self -> name -> m Attr
getAttributeNodeUnsafe self name
= liftDOM
((((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getAttributeNodeUnchecked ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m Attr
getAttributeNodeUnchecked self name
= liftDOM
(((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>=
fromJSValUnchecked)
setAttributeNode ::
(MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)
setAttributeNode self newAttr
= liftDOM
(((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>=
fromJSVal)
setAttributeNode_ ::
(MonadDOM m, IsElement self) => self -> Attr -> m ()
setAttributeNode_ self newAttr
= liftDOM
(void
((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]))
setAttributeNodeUnsafe ::
(MonadDOM m, IsElement self, HasCallStack) =>
self -> Attr -> m Attr
setAttributeNodeUnsafe self newAttr
= liftDOM
((((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
setAttributeNodeUnchecked ::
(MonadDOM m, IsElement self) => self -> Attr -> m Attr
setAttributeNodeUnchecked self newAttr
= liftDOM
(((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>=
fromJSValUnchecked)
removeAttributeNode ::
(MonadDOM m, IsElement self) => self -> Attr -> m Attr
removeAttributeNode self oldAttr
= liftDOM
(((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])
>>= fromJSValUnchecked)
removeAttributeNode_ ::
(MonadDOM m, IsElement self) => self -> Attr -> m ()
removeAttributeNode_ self oldAttr
= liftDOM
(void
((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]))
getElementsByTagName ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m HTMLCollection
getElementsByTagName self name
= liftDOM
(((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])
>>= fromJSValUnchecked)
getElementsByTagName_ ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
getElementsByTagName_ self name
= liftDOM
(void
((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]))
hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool
hasAttributes self
= liftDOM
(((toElement self) ^. jsf "hasAttributes" ()) >>= valToBool)
hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m ()
hasAttributes_ self
= liftDOM (void ((toElement self) ^. jsf "hasAttributes" ()))
getAttributeNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName, FromJSString result) =>
self -> Maybe namespaceURI -> localName -> m (Maybe result)
getAttributeNS self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "getAttributeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
getAttributeNS_ ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
getAttributeNS_ self namespaceURI localName
= liftDOM
(void
((toElement self) ^. jsf "getAttributeNS"
[toJSVal namespaceURI, toJSVal localName]))
getAttributeNSUnsafe ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName, HasCallStack, FromJSString result) =>
self -> Maybe namespaceURI -> localName -> m result
getAttributeNSUnsafe self namespaceURI localName
= liftDOM
((((toElement self) ^. jsf "getAttributeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getAttributeNSUnchecked ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName, FromJSString result) =>
self -> Maybe namespaceURI -> localName -> m result
getAttributeNSUnchecked self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "getAttributeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSValUnchecked)
setAttributeNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString qualifiedName, ToJSString value) =>
self -> Maybe namespaceURI -> qualifiedName -> value -> m ()
setAttributeNS self namespaceURI qualifiedName value
= liftDOM
(void
((toElement self) ^. jsf "setAttributeNS"
[toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value]))
removeAttributeNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
removeAttributeNS self namespaceURI localName
= liftDOM
(void
((toElement self) ^. jsf "removeAttributeNS"
[toJSVal namespaceURI, toJSVal localName]))
getElementsByTagNameNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m HTMLCollection
getElementsByTagNameNS self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "getElementsByTagNameNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSValUnchecked)
getElementsByTagNameNS_ ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
getElementsByTagNameNS_ self namespaceURI localName
= liftDOM
(void
((toElement self) ^. jsf "getElementsByTagNameNS"
[toJSVal namespaceURI, toJSVal localName]))
getAttributeNodeNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m (Maybe Attr)
getAttributeNodeNS self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "getAttributeNodeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
getAttributeNodeNS_ ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
getAttributeNodeNS_ self namespaceURI localName
= liftDOM
(void
((toElement self) ^. jsf "getAttributeNodeNS"
[toJSVal namespaceURI, toJSVal localName]))
getAttributeNodeNSUnsafe ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName, HasCallStack) =>
self -> Maybe namespaceURI -> localName -> m Attr
getAttributeNodeNSUnsafe self namespaceURI localName
= liftDOM
((((toElement self) ^. jsf "getAttributeNodeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getAttributeNodeNSUnchecked ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m Attr
getAttributeNodeNSUnchecked self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "getAttributeNodeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= fromJSValUnchecked)
setAttributeNodeNS ::
(MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)
setAttributeNodeNS self newAttr
= liftDOM
(((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])
>>= fromJSVal)
setAttributeNodeNS_ ::
(MonadDOM m, IsElement self) => self -> Attr -> m ()
setAttributeNodeNS_ self newAttr
= liftDOM
(void
((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]))
setAttributeNodeNSUnsafe ::
(MonadDOM m, IsElement self, HasCallStack) =>
self -> Attr -> m Attr
setAttributeNodeNSUnsafe self newAttr
= liftDOM
((((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
setAttributeNodeNSUnchecked ::
(MonadDOM m, IsElement self) => self -> Attr -> m Attr
setAttributeNodeNSUnchecked self newAttr
= liftDOM
(((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])
>>= fromJSValUnchecked)
hasAttribute ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m Bool
hasAttribute self name
= liftDOM
(((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>=
valToBool)
hasAttribute_ ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
hasAttribute_ self name
= liftDOM
(void ((toElement self) ^. jsf "hasAttribute" [toJSVal name]))
hasAttributeNS ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m Bool
hasAttributeNS self namespaceURI localName
= liftDOM
(((toElement self) ^. jsf "hasAttributeNS"
[toJSVal namespaceURI, toJSVal localName])
>>= valToBool)
hasAttributeNS_ ::
(MonadDOM m, IsElement self, ToJSString namespaceURI,
ToJSString localName) =>
self -> Maybe namespaceURI -> localName -> m ()
hasAttributeNS_ self namespaceURI localName
= liftDOM
(void
((toElement self) ^. jsf "hasAttributeNS"
[toJSVal namespaceURI, toJSVal localName]))
scrollIntoView ::
(MonadDOM m, IsElement self) => self -> Bool -> m ()
scrollIntoView self alignWithTop
= liftDOM
(void
((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop]))
scrollIntoViewIfNeeded ::
(MonadDOM m, IsElement self) => self -> Bool -> m ()
scrollIntoViewIfNeeded self centerIfNeeded
= liftDOM
(void
((toElement self) ^. jsf "scrollIntoViewIfNeeded"
[toJSVal centerIfNeeded]))
scrollOpt ::
(MonadDOM m, IsElement self) =>
self -> Maybe ScrollToOptions -> m ()
scrollOpt self options
= liftDOM
(void ((toElement self) ^. jsf "scroll" [toJSVal options]))
scroll ::
(MonadDOM m, IsElement self) => self -> Double -> Double -> m ()
scroll self x y
= liftDOM
(void ((toElement self) ^. jsf "scroll" [toJSVal x, toJSVal y]))
scrollToOpt ::
(MonadDOM m, IsElement self) =>
self -> Maybe ScrollToOptions -> m ()
scrollToOpt self options
= liftDOM
(void ((toElement self) ^. jsf "scrollTo" [toJSVal options]))
scrollTo ::
(MonadDOM m, IsElement self) => self -> Double -> Double -> m ()
scrollTo self x y
= liftDOM
(void ((toElement self) ^. jsf "scrollTo" [toJSVal x, toJSVal y]))
scrollByOpt ::
(MonadDOM m, IsElement self) =>
self -> Maybe ScrollToOptions -> m ()
scrollByOpt self option
= liftDOM
(void ((toElement self) ^. jsf "scrollBy" [toJSVal option]))
scrollBy ::
(MonadDOM m, IsElement self) => self -> Double -> Double -> m ()
scrollBy self x y
= liftDOM
(void ((toElement self) ^. jsf "scrollBy" [toJSVal x, toJSVal y]))
scrollByLines ::
(MonadDOM m, IsElement self) => self -> Maybe Int -> m ()
scrollByLines self lines
= liftDOM
(void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines]))
scrollByPages ::
(MonadDOM m, IsElement self) => self -> Maybe Int -> m ()
scrollByPages self pages
= liftDOM
(void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages]))
getAttributeNames ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m [result]
getAttributeNames self
= liftDOM
(((toElement self) ^. jsf "getAttributeNames" ()) >>=
fromJSArrayUnchecked)
getAttributeNames_ :: (MonadDOM m, IsElement self) => self -> m ()
getAttributeNames_ self
= liftDOM (void ((toElement self) ^. jsf "getAttributeNames" ()))
getElementsByClassName ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m HTMLCollection
getElementsByClassName self name
= liftDOM
(((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])
>>= fromJSValUnchecked)
getElementsByClassName_ ::
(MonadDOM m, IsElement self, ToJSString name) =>
self -> name -> m ()
getElementsByClassName_ self name
= liftDOM
(void
((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]))
matches ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m Bool
matches self selectors
= liftDOM
(((toElement self) ^. jsf "matches" [toJSVal selectors]) >>=
valToBool)
matches_ ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m ()
matches_ self selectors
= liftDOM
(void ((toElement self) ^. jsf "matches" [toJSVal selectors]))
closest ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m (Maybe Element)
closest self selectors
= liftDOM
(((toElement self) ^. jsf "closest" [toJSVal selectors]) >>=
fromJSVal)
closest_ ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m ()
closest_ self selectors
= liftDOM
(void ((toElement self) ^. jsf "closest" [toJSVal selectors]))
closestUnsafe ::
(MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) =>
self -> selectors -> m Element
closestUnsafe self selectors
= liftDOM
((((toElement self) ^. jsf "closest" [toJSVal selectors]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
closestUnchecked ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m Element
closestUnchecked self selectors
= liftDOM
(((toElement self) ^. jsf "closest" [toJSVal selectors]) >>=
fromJSValUnchecked)
webkitMatchesSelector ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m Bool
webkitMatchesSelector self selectors
= liftDOM
(((toElement self) ^. jsf "webkitMatchesSelector"
[toJSVal selectors])
>>= valToBool)
webkitMatchesSelector_ ::
(MonadDOM m, IsElement self, ToJSString selectors) =>
self -> selectors -> m ()
webkitMatchesSelector_ self selectors
= liftDOM
(void
((toElement self) ^. jsf "webkitMatchesSelector"
[toJSVal selectors]))
getClientRects ::
(MonadDOM m, IsElement self) => self -> m ClientRectList
getClientRects self
= liftDOM
(((toElement self) ^. jsf "getClientRects" ()) >>=
fromJSValUnchecked)
getClientRects_ :: (MonadDOM m, IsElement self) => self -> m ()
getClientRects_ self
= liftDOM (void ((toElement self) ^. jsf "getClientRects" ()))
getBoundingClientRect ::
(MonadDOM m, IsElement self) => self -> m ClientRect
getBoundingClientRect self
= liftDOM
(((toElement self) ^. jsf "getBoundingClientRect" ()) >>=
fromJSValUnchecked)
getBoundingClientRect_ ::
(MonadDOM m, IsElement self) => self -> m ()
getBoundingClientRect_ self
= liftDOM
(void ((toElement self) ^. jsf "getBoundingClientRect" ()))
webkitRequestFullScreen ::
(MonadDOM m, IsElement self) => self -> m ()
webkitRequestFullScreen self
= liftDOM
(void ((toElement self) ^. jsf "webkitRequestFullScreen" ()))
webkitRequestFullscreen ::
(MonadDOM m, IsElement self) => self -> m ()
webkitRequestFullscreen self
= liftDOM
(void ((toElement self) ^. jsf "webkitRequestFullscreen" ()))
insertAdjacentElement ::
(MonadDOM m, IsElement self, ToJSString where',
IsElement element) =>
self -> where' -> element -> m (Maybe Element)
insertAdjacentElement self where' element
= liftDOM
(((toElement self) ^. jsf "insertAdjacentElement"
[toJSVal where', toJSVal element])
>>= fromJSVal)
insertAdjacentElement_ ::
(MonadDOM m, IsElement self, ToJSString where',
IsElement element) =>
self -> where' -> element -> m ()
insertAdjacentElement_ self where' element
= liftDOM
(void
((toElement self) ^. jsf "insertAdjacentElement"
[toJSVal where', toJSVal element]))
insertAdjacentElementUnsafe ::
(MonadDOM m, IsElement self, ToJSString where', IsElement element,
HasCallStack) =>
self -> where' -> element -> m Element
insertAdjacentElementUnsafe self where' element
= liftDOM
((((toElement self) ^. jsf "insertAdjacentElement"
[toJSVal where', toJSVal element])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
insertAdjacentElementUnchecked ::
(MonadDOM m, IsElement self, ToJSString where',
IsElement element) =>
self -> where' -> element -> m Element
insertAdjacentElementUnchecked self where' element
= liftDOM
(((toElement self) ^. jsf "insertAdjacentElement"
[toJSVal where', toJSVal element])
>>= fromJSValUnchecked)
insertAdjacentHTML ::
(MonadDOM m, IsElement self, ToJSString where', ToJSString html) =>
self -> where' -> html -> m ()
insertAdjacentHTML self where' html
= liftDOM
(void
((toElement self) ^. jsf "insertAdjacentHTML"
[toJSVal where', toJSVal html]))
insertAdjacentText ::
(MonadDOM m, IsElement self, ToJSString where', ToJSString text) =>
self -> where' -> text -> m ()
insertAdjacentText self where' text
= liftDOM
(void
((toElement self) ^. jsf "insertAdjacentText"
[toJSVal where', toJSVal text]))
requestPointerLock :: (MonadDOM m, IsElement self) => self -> m ()
requestPointerLock self
= liftDOM (void ((toElement self) ^. jsf "requestPointerLock" ()))
webkitGetRegionFlowRanges ::
(MonadDOM m, IsElement self) => self -> m [Range]
webkitGetRegionFlowRanges self
= liftDOM
(((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()) >>=
fromJSArrayUnchecked)
webkitGetRegionFlowRanges_ ::
(MonadDOM m, IsElement self) => self -> m ()
webkitGetRegionFlowRanges_ self
= liftDOM
(void ((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()))
attachShadow ::
(MonadDOM m, IsElement self) =>
self -> ShadowRootInit -> m ShadowRoot
attachShadow self init
= liftDOM
(((toElement self) ^. jsf "attachShadow" [toJSVal init]) >>=
fromJSValUnchecked)
attachShadow_ ::
(MonadDOM m, IsElement self) => self -> ShadowRootInit -> m ()
attachShadow_ self init
= liftDOM
(void ((toElement self) ^. jsf "attachShadow" [toJSVal init]))
getTagName ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m (Maybe result)
getTagName self
= liftDOM (((toElement self) ^. js "tagName") >>= fromJSVal)
getTagNameUnsafe ::
(MonadDOM m, IsElement self, HasCallStack, FromJSString result) =>
self -> m result
getTagNameUnsafe self
= liftDOM
((((toElement self) ^. js "tagName") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTagNameUnchecked ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getTagNameUnchecked self
= liftDOM
(((toElement self) ^. js "tagName") >>= fromJSValUnchecked)
getAttributes ::
(MonadDOM m, IsElement self) => self -> m NamedNodeMap
getAttributes self
= liftDOM
(((toElement self) ^. js "attributes") >>= fromJSValUnchecked)
getStyle ::
(MonadDOM m, IsElement self) => self -> m CSSStyleDeclaration
getStyle self
= liftDOM (((toElement self) ^. js "style") >>= fromJSValUnchecked)
setId ::
(MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()
setId self val
= liftDOM ((toElement self) ^. jss "id" (toJSVal val))
getId ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getId self
= liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked)
getNamespaceURI ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m (Maybe result)
getNamespaceURI self
= liftDOM (((toElement self) ^. js "namespaceURI") >>= fromJSVal)
getNamespaceURIUnsafe ::
(MonadDOM m, IsElement self, HasCallStack, FromJSString result) =>
self -> m result
getNamespaceURIUnsafe self
= liftDOM
((((toElement self) ^. js "namespaceURI") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getNamespaceURIUnchecked ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getNamespaceURIUnchecked self
= liftDOM
(((toElement self) ^. js "namespaceURI") >>= fromJSValUnchecked)
getPrefix ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m (Maybe result)
getPrefix self
= liftDOM (((toElement self) ^. js "prefix") >>= fromJSVal)
getPrefixUnsafe ::
(MonadDOM m, IsElement self, HasCallStack, FromJSString result) =>
self -> m result
getPrefixUnsafe self
= liftDOM
((((toElement self) ^. js "prefix") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getPrefixUnchecked ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getPrefixUnchecked self
= liftDOM
(((toElement self) ^. js "prefix") >>= fromJSValUnchecked)
getLocalName ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getLocalName self
= liftDOM
(((toElement self) ^. js "localName") >>= fromJSValUnchecked)
getOffsetLeft :: (MonadDOM m, IsElement self) => self -> m Double
getOffsetLeft self
= liftDOM (((toElement self) ^. js "offsetLeft") >>= valToNumber)
getOffsetTop :: (MonadDOM m, IsElement self) => self -> m Double
getOffsetTop self
= liftDOM (((toElement self) ^. js "offsetTop") >>= valToNumber)
getOffsetWidth :: (MonadDOM m, IsElement self) => self -> m Double
getOffsetWidth self
= liftDOM (((toElement self) ^. js "offsetWidth") >>= valToNumber)
getOffsetHeight :: (MonadDOM m, IsElement self) => self -> m Double
getOffsetHeight self
= liftDOM (((toElement self) ^. js "offsetHeight") >>= valToNumber)
getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double
getClientLeft self
= liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber)
getClientTop :: (MonadDOM m, IsElement self) => self -> m Double
getClientTop self
= liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber)
getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double
getClientWidth self
= liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber)
getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double
getClientHeight self
= liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber)
setScrollLeft ::
(MonadDOM m, IsElement self) => self -> Int -> m ()
setScrollLeft self val
= liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val))
getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int
getScrollLeft self
= liftDOM
(round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber))
setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m ()
setScrollTop self val
= liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val))
getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int
getScrollTop self
= liftDOM
(round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber))
getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int
getScrollWidth self
= liftDOM
(round <$>
(((toElement self) ^. js "scrollWidth") >>= valToNumber))
getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int
getScrollHeight self
= liftDOM
(round <$>
(((toElement self) ^. js "scrollHeight") >>= valToNumber))
getOffsetParent ::
(MonadDOM m, IsElement self) => self -> m Element
getOffsetParent self
= liftDOM
(((toElement self) ^. js "offsetParent") >>= fromJSValUnchecked)
setInnerHTML ::
(MonadDOM m, IsElement self, ToJSString val) =>
self -> Maybe val -> m ()
setInnerHTML self val
= liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val))
getInnerHTML ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m (Maybe result)
getInnerHTML self
= liftDOM
(((toElement self) ^. js "innerHTML") >>= fromMaybeJSString)
getInnerHTMLUnsafe ::
(MonadDOM m, IsElement self, HasCallStack, FromJSString result) =>
self -> m result
getInnerHTMLUnsafe self
= liftDOM
((((toElement self) ^. js "innerHTML") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getInnerHTMLUnchecked ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getInnerHTMLUnchecked self
= liftDOM
(((toElement self) ^. js "innerHTML") >>= fromJSValUnchecked)
setOuterHTML ::
(MonadDOM m, IsElement self, ToJSString val) =>
self -> Maybe val -> m ()
setOuterHTML self val
= liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val))
getOuterHTML ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m (Maybe result)
getOuterHTML self
= liftDOM
(((toElement self) ^. js "outerHTML") >>= fromMaybeJSString)
getOuterHTMLUnsafe ::
(MonadDOM m, IsElement self, HasCallStack, FromJSString result) =>
self -> m result
getOuterHTMLUnsafe self
= liftDOM
((((toElement self) ^. js "outerHTML") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getOuterHTMLUnchecked ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getOuterHTMLUnchecked self
= liftDOM
(((toElement self) ^. js "outerHTML") >>= fromJSValUnchecked)
setClassName ::
(MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()
setClassName self val
= liftDOM ((toElement self) ^. jss "className" (toJSVal val))
getClassName ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getClassName self
= liftDOM
(((toElement self) ^. js "className") >>= fromJSValUnchecked)
getClassList ::
(MonadDOM m, IsElement self) => self -> m DOMTokenList
getClassList self
= liftDOM
(((toElement self) ^. js "classList") >>= fromJSValUnchecked)
getWebkitRegionOverset ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getWebkitRegionOverset self
= liftDOM
(((toElement self) ^. js "webkitRegionOverset") >>=
fromJSValUnchecked)
getShadowRoot ::
(MonadDOM m, IsElement self) => self -> m ShadowRoot
getShadowRoot self
= liftDOM
(((toElement self) ^. js "shadowRoot") >>= fromJSValUnchecked)
setSlot ::
(MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()
setSlot self val
= liftDOM ((toElement self) ^. jss "slot" (toJSVal val))
getSlot ::
(MonadDOM m, IsElement self, FromJSString result) =>
self -> m result
getSlot self
= liftDOM (((toElement self) ^. js "slot") >>= fromJSValUnchecked)
beforeCopy ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
beforeCopy = unsafeEventName (toJSString "beforecopy")
beforeCut ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
beforeCut = unsafeEventName (toJSString "beforecut")
beforeinput ::
(IsElement self, IsEventTarget self) =>
EventName self onbeforeinput
beforeinput = unsafeEventName (toJSString "beforeinput")
beforePaste ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
beforePaste = unsafeEventName (toJSString "beforepaste")
copy ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
copy = unsafeEventName (toJSString "copy")
cut ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
cut = unsafeEventName (toJSString "cut")
paste ::
(IsElement self, IsEventTarget self) =>
EventName self ClipboardEvent
paste = unsafeEventName (toJSString "paste")
selectStart ::
(IsElement self, IsEventTarget self) => EventName self Event
selectStart = unsafeEventName (toJSString "selectstart")
webKitFullscreenChange ::
(IsElement self, IsEventTarget self) => EventName self Event
webKitFullscreenChange
= unsafeEventName (toJSString "webkitfullscreenchange")
webKitFullscreenError ::
(IsElement self, IsEventTarget self) => EventName self Event
webKitFullscreenError
= unsafeEventName (toJSString "webkitfullscreenerror")
animationEnd ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
animationEnd = unsafeEventName (toJSString "animationend")
animationIteration ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
animationIteration
= unsafeEventName (toJSString "animationiteration")
animationStart ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
animationStart = unsafeEventName (toJSString "animationstart")
transitionEnd ::
(IsElement self, IsEventTarget self) =>
EventName self TransitionEvent
transitionEnd = unsafeEventName (toJSString "transitionend")
webKitAnimationEnd ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
webKitAnimationEnd
= unsafeEventName (toJSString "webkitanimationend")
webKitAnimationIteration ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
webKitAnimationIteration
= unsafeEventName (toJSString "webkitanimationiteration")
webKitAnimationStart ::
(IsElement self, IsEventTarget self) =>
EventName self AnimationEvent
webKitAnimationStart
= unsafeEventName (toJSString "webkitanimationstart")
webKitTransitionEnd ::
(IsElement self, IsEventTarget self) =>
EventName self TransitionEvent
webKitTransitionEnd
= unsafeEventName (toJSString "webkittransitionend")
gestureChange ::
(IsElement self, IsEventTarget self) => EventName self UIEvent
gestureChange = unsafeEventName (toJSString "gesturechange")
gestureEnd ::
(IsElement self, IsEventTarget self) => EventName self UIEvent
gestureEnd = unsafeEventName (toJSString "gestureend")
gestureStart ::
(IsElement self, IsEventTarget self) => EventName self UIEvent
gestureStart = unsafeEventName (toJSString "gesturestart")
focusin ::
(IsElement self, IsEventTarget self) => EventName self onfocusin
focusin = unsafeEventName (toJSString "focusin")
focusout ::
(IsElement self, IsEventTarget self) => EventName self onfocusout
focusout = unsafeEventName (toJSString "focusout")
beforeload ::
(IsElement self, IsEventTarget self) => EventName self onbeforeload
beforeload = unsafeEventName (toJSString "beforeload")
webKitNeedKey ::
(IsElement self, IsEventTarget self) => EventName self Event
webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")
webKitPresentationModeChanged ::
(IsElement self, IsEventTarget self) => EventName self Event
webKitPresentationModeChanged
= unsafeEventName (toJSString "webkitpresentationmodechanged")
webKitCurrentPlaybackTargetIsWirelessChanged ::
(IsElement self, IsEventTarget self) =>
EventName self Event
webKitCurrentPlaybackTargetIsWirelessChanged
= unsafeEventName
(toJSString "webkitcurrentplaybacktargetiswirelesschanged")
webKitPlaybackTargetAvailabilityChanged ::
(IsElement self, IsEventTarget self) => EventName self Event
webKitPlaybackTargetAvailabilityChanged
= unsafeEventName
(toJSString "webkitplaybacktargetavailabilitychanged")