{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Element (getAttribute, getAttribute_, getAttributeUnsafe, getAttributeUnchecked, setAttribute, removeAttribute, getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, getAttributeNodeUnchecked, setAttributeNode, setAttributeNode_, setAttributeNodeUnsafe, setAttributeNodeUnchecked, removeAttributeNode, removeAttributeNode_, removeAttributeNodeUnsafe, removeAttributeNodeUnchecked, getElementsByTagName, getElementsByTagName_, getElementsByTagNameUnsafe, getElementsByTagNameUnchecked, hasAttributes, hasAttributes_, getAttributeNS, getAttributeNS_, setAttributeNS, removeAttributeNS, getElementsByTagNameNS, getElementsByTagNameNS_, getElementsByTagNameNSUnsafe, getElementsByTagNameNSUnchecked, getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked, setAttributeNodeNS, setAttributeNodeNS_, setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked, hasAttribute, hasAttribute_, hasAttributeNS, hasAttributeNS_, focus, blur, scrollIntoView, scrollIntoViewIfNeeded, scrollByLines, scrollByPages, getElementsByClassName, getElementsByClassName_, getElementsByClassNameUnsafe, getElementsByClassNameUnchecked, querySelector, querySelector_, querySelectorUnsafe, querySelectorUnchecked, querySelectorAll, querySelectorAll_, querySelectorAllUnsafe, querySelectorAllUnchecked, matches, matches_, closest, closest_, closestUnsafe, closestUnchecked, webkitMatchesSelector, webkitMatchesSelector_, getClientRects, getClientRects_, getClientRectsUnsafe, getClientRectsUnchecked, getBoundingClientRect, getBoundingClientRect_, getBoundingClientRectUnsafe, getBoundingClientRectUnchecked, webkitRequestFullScreen, webkitRequestFullscreen, requestPointerLock, webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_, pattern ALLOW_KEYBOARD_INPUT, getTagName, getTagNameUnsafe, getTagNameUnchecked, getAttributes, getAttributesUnsafe, getAttributesUnchecked, getStyle, getStyleUnsafe, getStyleUnchecked, setId, getId, getOffsetLeft, getOffsetTop, getOffsetWidth, getOffsetHeight, getClientLeft, getClientTop, getClientWidth, getClientHeight, setScrollLeft, getScrollLeft, setScrollTop, getScrollTop, getScrollWidth, getScrollHeight, getOffsetParent, getOffsetParentUnsafe, getOffsetParentUnchecked, setInnerHTML, getInnerHTML, getInnerHTMLUnsafe, getInnerHTMLUnchecked, setOuterHTML, getOuterHTML, getOuterHTMLUnsafe, getOuterHTMLUnchecked, setClassName, getClassName, getClassList, getClassListUnsafe, getClassListUnchecked, getDataset, getDatasetUnsafe, getDatasetUnchecked, getFirstElementChild, getFirstElementChildUnsafe, getFirstElementChildUnchecked, getLastElementChild, getLastElementChildUnsafe, getLastElementChildUnchecked, getPreviousElementSibling, getPreviousElementSiblingUnsafe, getPreviousElementSiblingUnchecked, getNextElementSibling, getNextElementSiblingUnsafe, getNextElementSiblingUnchecked, getChildElementCount, setUiactions, getUiactions, 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, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) 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]) >>= fromMaybeJSString) -- | 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]) >>= fromMaybeJSString) >>= 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 -> Maybe Attr -> m (Maybe Attr) setAttributeNode self newAttr = liftDOM (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= fromJSVal) -- | setAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () setAttributeNode_ self newAttr = liftDOM (void ((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr])) -- | setAttributeNodeUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Maybe 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 -> Maybe Attr -> m Attr setAttributeNodeUnchecked self newAttr = liftDOM (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= fromJSValUnchecked) -- | removeAttributeNode :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) removeAttributeNode self oldAttr = liftDOM (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) >>= fromJSVal) -- | removeAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () removeAttributeNode_ self oldAttr = liftDOM (void ((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])) -- | removeAttributeNodeUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Maybe Attr -> m Attr removeAttributeNodeUnsafe self oldAttr = liftDOM ((((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | removeAttributeNodeUnchecked :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m Attr removeAttributeNodeUnchecked self oldAttr = liftDOM (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) >>= fromJSValUnchecked) -- | getElementsByTagName :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByTagName self name = liftDOM (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) >>= fromJSVal) -- | getElementsByTagName_ :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m () getElementsByTagName_ self name = liftDOM (void ((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])) -- | getElementsByTagNameUnsafe :: (MonadDOM m, IsElement self, ToJSString name, HasCallStack) => self -> name -> m NodeList getElementsByTagNameUnsafe self name = liftDOM ((((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByTagNameUnchecked :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m NodeList getElementsByTagNameUnchecked self name = liftDOM (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) >>= fromJSValUnchecked) -- | 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 result getAttributeNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getAttributeNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) -- | 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])) -- | 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 (Maybe NodeList) getElementsByTagNameNS self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getElementsByTagNameNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) -- | 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])) -- | getElementsByTagNameNSUnsafe :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName, HasCallStack) => self -> Maybe namespaceURI -> localName -> m NodeList getElementsByTagNameNSUnsafe self namespaceURI localName = liftDOM ((((toElement self) ^. jsf "getElementsByTagNameNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByTagNameNSUnchecked :: (MonadDOM m, IsElement self, ToJSString namespaceURI, ToJSString localName) => self -> Maybe namespaceURI -> localName -> m NodeList getElementsByTagNameNSUnchecked self namespaceURI localName = liftDOM (((toElement self) ^. jsf "getElementsByTagNameNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) -- | 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 -> Maybe Attr -> m (Maybe Attr) setAttributeNodeNS self newAttr = liftDOM (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) >>= fromJSVal) -- | setAttributeNodeNS_ :: (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () setAttributeNodeNS_ self newAttr = liftDOM (void ((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])) -- | setAttributeNodeNSUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Maybe 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 -> Maybe 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])) -- | focus :: (MonadDOM m, IsElement self) => self -> m () focus self = liftDOM (void ((toElement self) ^. jsf "focus" ())) -- | blur :: (MonadDOM m, IsElement self) => self -> m () blur self = liftDOM (void ((toElement self) ^. jsf "blur" ())) -- | 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])) -- | scrollByLines :: (MonadDOM m, IsElement self) => self -> Int -> m () scrollByLines self lines = liftDOM (void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines])) -- | scrollByPages :: (MonadDOM m, IsElement self) => self -> Int -> m () scrollByPages self pages = liftDOM (void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages])) -- | getElementsByClassName :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m (Maybe NodeList) getElementsByClassName self name = liftDOM (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) >>= fromJSVal) -- | getElementsByClassName_ :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m () getElementsByClassName_ self name = liftDOM (void ((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])) -- | getElementsByClassNameUnsafe :: (MonadDOM m, IsElement self, ToJSString name, HasCallStack) => self -> name -> m NodeList getElementsByClassNameUnsafe self name = liftDOM ((((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsByClassNameUnchecked :: (MonadDOM m, IsElement self, ToJSString name) => self -> name -> m NodeList getElementsByClassNameUnchecked self name = liftDOM (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) >>= fromJSValUnchecked) -- | querySelector :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element) querySelector self selectors = liftDOM (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal) -- | querySelector_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m () querySelector_ self selectors = liftDOM (void ((toElement self) ^. jsf "querySelector" [toJSVal selectors])) -- | querySelectorUnsafe :: (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m Element querySelectorUnsafe self selectors = liftDOM ((((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorUnchecked :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Element querySelectorUnchecked self selectors = liftDOM (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSValUnchecked) -- | querySelectorAll :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe NodeList) querySelectorAll self selectors = liftDOM (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSVal) -- | querySelectorAll_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m () querySelectorAll_ self selectors = liftDOM (void ((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors])) -- | querySelectorAllUnsafe :: (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m NodeList querySelectorAllUnsafe self selectors = liftDOM ((((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorAllUnchecked :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m NodeList querySelectorAllUnchecked self selectors = liftDOM (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSValUnchecked) -- | 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 (Maybe ClientRectList) getClientRects self = liftDOM (((toElement self) ^. jsf "getClientRects" ()) >>= fromJSVal) -- | getClientRects_ :: (MonadDOM m, IsElement self) => self -> m () getClientRects_ self = liftDOM (void ((toElement self) ^. jsf "getClientRects" ())) -- | getClientRectsUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m ClientRectList getClientRectsUnsafe self = liftDOM ((((toElement self) ^. jsf "getClientRects" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getClientRectsUnchecked :: (MonadDOM m, IsElement self) => self -> m ClientRectList getClientRectsUnchecked self = liftDOM (((toElement self) ^. jsf "getClientRects" ()) >>= fromJSValUnchecked) -- | getBoundingClientRect :: (MonadDOM m, IsElement self) => self -> m (Maybe ClientRect) getBoundingClientRect self = liftDOM (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= fromJSVal) -- | getBoundingClientRect_ :: (MonadDOM m, IsElement self) => self -> m () getBoundingClientRect_ self = liftDOM (void ((toElement self) ^. jsf "getBoundingClientRect" ())) -- | getBoundingClientRectUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m ClientRect getBoundingClientRectUnsafe self = liftDOM ((((toElement self) ^. jsf "getBoundingClientRect" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getBoundingClientRectUnchecked :: (MonadDOM m, IsElement self) => self -> m ClientRect getBoundingClientRectUnchecked self = liftDOM (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= fromJSValUnchecked) -- | webkitRequestFullScreen :: (MonadDOM m, IsElement self) => self -> Word -> m () webkitRequestFullScreen self flags = liftDOM (void ((toElement self) ^. jsf "webkitRequestFullScreen" [toJSVal flags])) -- | webkitRequestFullscreen :: (MonadDOM m, IsElement self) => self -> m () webkitRequestFullscreen self = liftDOM (void ((toElement self) ^. jsf "webkitRequestFullscreen" ())) -- | requestPointerLock :: (MonadDOM m, IsElement self) => self -> m () requestPointerLock self = liftDOM (void ((toElement self) ^. jsf "requestPointerLock" ())) -- | webkitGetRegionFlowRanges :: (MonadDOM m, IsElement self) => self -> m [Maybe Range] webkitGetRegionFlowRanges self = liftDOM (((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()) >>= fromJSArray) -- | webkitGetRegionFlowRanges_ :: (MonadDOM m, IsElement self) => self -> m () webkitGetRegionFlowRanges_ self = liftDOM (void ((toElement self) ^. jsf "webkitGetRegionFlowRanges" ())) pattern ALLOW_KEYBOARD_INPUT = 1 -- | getTagName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result) getTagName self = liftDOM (((toElement self) ^. js "tagName") >>= fromMaybeJSString) -- | getTagNameUnsafe :: (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => self -> m result getTagNameUnsafe self = liftDOM ((((toElement self) ^. js "tagName") >>= fromMaybeJSString) >>= 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 (Maybe NamedNodeMap) getAttributes self = liftDOM (((toElement self) ^. js "attributes") >>= fromJSVal) -- | getAttributesUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m NamedNodeMap getAttributesUnsafe self = liftDOM ((((toElement self) ^. js "attributes") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributesUnchecked :: (MonadDOM m, IsElement self) => self -> m NamedNodeMap getAttributesUnchecked self = liftDOM (((toElement self) ^. js "attributes") >>= fromJSValUnchecked) -- | getStyle :: (MonadDOM m, IsElement self) => self -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM (((toElement self) ^. js "style") >>= fromJSVal) -- | getStyleUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m CSSStyleDeclaration getStyleUnsafe self = liftDOM ((((toElement self) ^. js "style") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getStyleUnchecked :: (MonadDOM m, IsElement self) => self -> m CSSStyleDeclaration getStyleUnchecked 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) -- | 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 (Maybe Element) getOffsetParent self = liftDOM (((toElement self) ^. js "offsetParent") >>= fromJSVal) -- | getOffsetParentUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m Element getOffsetParentUnsafe self = liftDOM ((((toElement self) ^. js "offsetParent") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getOffsetParentUnchecked :: (MonadDOM m, IsElement self) => self -> m Element getOffsetParentUnchecked 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 (Maybe DOMTokenList) getClassList self = liftDOM (((toElement self) ^. js "classList") >>= fromJSVal) -- | getClassListUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m DOMTokenList getClassListUnsafe self = liftDOM ((((toElement self) ^. js "classList") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getClassListUnchecked :: (MonadDOM m, IsElement self) => self -> m DOMTokenList getClassListUnchecked self = liftDOM (((toElement self) ^. js "classList") >>= fromJSValUnchecked) -- | getDataset :: (MonadDOM m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self = liftDOM (((toElement self) ^. js "dataset") >>= fromJSVal) -- | getDatasetUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m DOMStringMap getDatasetUnsafe self = liftDOM ((((toElement self) ^. js "dataset") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getDatasetUnchecked :: (MonadDOM m, IsElement self) => self -> m DOMStringMap getDatasetUnchecked self = liftDOM (((toElement self) ^. js "dataset") >>= fromJSValUnchecked) -- | getFirstElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getFirstElementChild self = liftDOM (((toElement self) ^. js "firstElementChild") >>= fromJSVal) -- | getFirstElementChildUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m Element getFirstElementChildUnsafe self = liftDOM ((((toElement self) ^. js "firstElementChild") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getFirstElementChildUnchecked :: (MonadDOM m, IsElement self) => self -> m Element getFirstElementChildUnchecked self = liftDOM (((toElement self) ^. js "firstElementChild") >>= fromJSValUnchecked) -- | getLastElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getLastElementChild self = liftDOM (((toElement self) ^. js "lastElementChild") >>= fromJSVal) -- | getLastElementChildUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m Element getLastElementChildUnsafe self = liftDOM ((((toElement self) ^. js "lastElementChild") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getLastElementChildUnchecked :: (MonadDOM m, IsElement self) => self -> m Element getLastElementChildUnchecked self = liftDOM (((toElement self) ^. js "lastElementChild") >>= fromJSValUnchecked) -- | getPreviousElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getPreviousElementSibling self = liftDOM (((toElement self) ^. js "previousElementSibling") >>= fromJSVal) -- | getPreviousElementSiblingUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m Element getPreviousElementSiblingUnsafe self = liftDOM ((((toElement self) ^. js "previousElementSibling") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getPreviousElementSiblingUnchecked :: (MonadDOM m, IsElement self) => self -> m Element getPreviousElementSiblingUnchecked self = liftDOM (((toElement self) ^. js "previousElementSibling") >>= fromJSValUnchecked) -- | getNextElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getNextElementSibling self = liftDOM (((toElement self) ^. js "nextElementSibling") >>= fromJSVal) -- | getNextElementSiblingUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m Element getNextElementSiblingUnsafe self = liftDOM ((((toElement self) ^. js "nextElementSibling") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNextElementSiblingUnchecked :: (MonadDOM m, IsElement self) => self -> m Element getNextElementSiblingUnchecked self = liftDOM (((toElement self) ^. js "nextElementSibling") >>= fromJSValUnchecked) -- | getChildElementCount :: (MonadDOM m, IsElement self) => self -> m Word getChildElementCount self = liftDOM (round <$> (((toElement self) ^. js "childElementCount") >>= valToNumber)) -- | setUiactions :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () setUiactions self val = liftDOM ((toElement self) ^. jss "uiactions" (toJSVal val)) -- | getUiactions :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getUiactions self = liftDOM (((toElement self) ^. js "uiactions") >>= fromJSValUnchecked) -- | getWebkitRegionOverset :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result getWebkitRegionOverset self = liftDOM (((toElement self) ^. js "webkitRegionOverset") >>= fromJSValUnchecked) -- | 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")