{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLElement
(newHTMLElement, click, focus, blur, setTitle, getTitle, setLang,
getLang, setTranslate, getTranslate, setDir, getDir, getDataset,
setHidden, getHidden, setTabIndex, getTabIndex, setAccessKey,
getAccessKey, setDraggable, getDraggable, setSpellcheck,
getSpellcheck, setInnerText, getInnerText, setContentEditable,
getContentEditable, getIsContentEditable, getOffsetParent,
getOffsetParentUnsafe, getOffsetParentUnchecked, getOffsetTop,
getOffsetLeft, getOffsetWidth, getOffsetHeight, setOuterText,
getOuterText, setAutocorrect, getAutocorrect, setAutocapitalize,
getAutocapitalize, setWebkitdropzone, getWebkitdropzone,
HTMLElement(..), gTypeHTMLElement, IsHTMLElement, toHTMLElement)
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, asyncFunction, 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, unsafeEventNameAsync)
import JSDOM.Enums
newHTMLElement :: (MonadDOM m) => m HTMLElement
newHTMLElement :: m HTMLElement
newHTMLElement
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> HTMLElement
HTMLElement (JSVal -> HTMLElement) -> JSM JSVal -> DOM HTMLElement
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> JSM JSVal -> () -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new ([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"HTMLElement") ())
click :: (MonadDOM m, IsHTMLElement self) => self -> m ()
click :: self -> m ()
click self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"click" ()))
focus :: (MonadDOM m, IsHTMLElement self) => self -> m ()
focus :: self -> m ()
focus self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"focus" ()))
blur :: (MonadDOM m, IsHTMLElement self) => self -> m ()
blur :: self -> m ()
blur self
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"blur" ()))
setTitle ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setTitle :: self -> val -> m ()
setTitle self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"title" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getTitle ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getTitle :: self -> m result
getTitle self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"title") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setLang ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setLang :: self -> val -> m ()
setLang self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"lang" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getLang ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getLang :: self -> m result
getLang self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"lang") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setTranslate ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setTranslate :: self -> Bool -> m ()
setTranslate self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"translate" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getTranslate :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getTranslate :: self -> m Bool
getTranslate self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"translate") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setDir ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setDir :: self -> val -> m ()
setDir self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"dir" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDir ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getDir :: self -> m result
getDir self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"dir") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDataset ::
(MonadDOM m, IsHTMLElement self) => self -> m DOMStringMap
getDataset :: self -> m DOMStringMap
getDataset self
self
= DOM DOMStringMap -> m DOMStringMap
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"dataset") JSM JSVal -> (JSVal -> DOM DOMStringMap) -> DOM DOMStringMap
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMStringMap
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHidden ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setHidden :: self -> Bool -> m ()
setHidden self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"hidden" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getHidden :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getHidden :: self -> m Bool
getHidden self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"hidden") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setTabIndex ::
(MonadDOM m, IsHTMLElement self) => self -> Int -> m ()
setTabIndex :: self -> Int -> m ()
setTabIndex self
self Int
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"tabIndex" (Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
val))
getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int
getTabIndex :: self -> m Int
getTabIndex self
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Int
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"tabIndex") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setAccessKey ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAccessKey :: self -> val -> m ()
setAccessKey self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"accessKey" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAccessKey ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAccessKey :: self -> m result
getAccessKey self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"accessKey") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setDraggable ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setDraggable :: self -> Bool -> m ()
setDraggable self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"draggable" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getDraggable :: self -> m Bool
getDraggable self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"draggable") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setSpellcheck ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setSpellcheck :: self -> Bool -> m ()
setSpellcheck self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"spellcheck" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getSpellcheck :: self -> m Bool
getSpellcheck self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"spellcheck") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setInnerText ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setInnerText :: self -> val -> m ()
setInnerText self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"innerText" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getInnerText ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getInnerText :: self -> m result
getInnerText self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"innerText") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setContentEditable ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setContentEditable :: self -> val -> m ()
setContentEditable self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"contentEditable" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getContentEditable ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getContentEditable :: self -> m result
getContentEditable self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"contentEditable") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getIsContentEditable ::
(MonadDOM m, IsHTMLElement self) => self -> m Bool
getIsContentEditable :: self -> m Bool
getIsContentEditable self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"isContentEditable") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getOffsetParent ::
(MonadDOM m, IsHTMLElement self) => self -> m (Maybe Element)
getOffsetParent :: self -> m (Maybe Element)
getOffsetParent self
self
= DOM (Maybe Element) -> m (Maybe Element)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetParent") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getOffsetParentUnsafe ::
(MonadDOM m, IsHTMLElement self, HasCallStack) => self -> m Element
getOffsetParentUnsafe :: self -> m Element
getOffsetParentUnsafe self
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetParent") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Element)
-> (Maybe Element -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Element
-> (Element -> DOM Element) -> Maybe Element -> DOM Element
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Element
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Element -> DOM Element
forall (m :: * -> *) a. Monad m => a -> m a
return)
getOffsetParentUnchecked ::
(MonadDOM m, IsHTMLElement self) => self -> m Element
getOffsetParentUnchecked :: self -> m Element
getOffsetParentUnchecked self
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetParent") JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOffsetTop ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetTop :: self -> m Double
getOffsetTop self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetTop") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetLeft ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetLeft :: self -> m Double
getOffsetLeft self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetLeft") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetWidth ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetWidth :: self -> m Double
getOffsetWidth self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetWidth") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetHeight ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetHeight :: self -> m Double
getOffsetHeight self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"offsetHeight") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
setOuterText ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setOuterText :: self -> val -> m ()
setOuterText self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"outerText" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getOuterText ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getOuterText :: self -> m result
getOuterText self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"outerText") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAutocorrect ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setAutocorrect :: self -> Bool -> m ()
setAutocorrect self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"autocorrect" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getAutocorrect ::
(MonadDOM m, IsHTMLElement self) => self -> m Bool
getAutocorrect :: self -> m Bool
getAutocorrect self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"autocorrect") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setAutocapitalize ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAutocapitalize :: self -> val -> m ()
setAutocapitalize self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"autocapitalize" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAutocapitalize ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAutocapitalize :: self -> m result
getAutocapitalize self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"autocapitalize") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setWebkitdropzone ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setWebkitdropzone :: self -> val -> m ()
setWebkitdropzone self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"webkitdropzone" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getWebkitdropzone ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getWebkitdropzone :: self -> m result
getWebkitdropzone self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"webkitdropzone") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)