{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLTableSectionElement
(insertRow, insertRow_, deleteRow, setAlign, getAlign, setCh,
getCh, setChOff, getChOff, setVAlign, getVAlign, getRows,
HTMLTableSectionElement(..), gTypeHTMLTableSectionElement)
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
insertRow ::
(MonadDOM m) =>
HTMLTableSectionElement -> Maybe Int -> m HTMLElement
insertRow :: HTMLTableSectionElement -> Maybe Int -> m HTMLElement
insertRow HTMLTableSectionElement
self Maybe Int
index
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"insertRow" [Maybe Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Int
index]) JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
insertRow_ ::
(MonadDOM m) => HTMLTableSectionElement -> Maybe Int -> m ()
insertRow_ :: HTMLTableSectionElement -> Maybe Int -> m ()
insertRow_ HTMLTableSectionElement
self Maybe Int
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"insertRow" [Maybe Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Int
index]))
deleteRow :: (MonadDOM m) => HTMLTableSectionElement -> Int -> m ()
deleteRow :: HTMLTableSectionElement -> Int -> m ()
deleteRow HTMLTableSectionElement
self Int
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteRow" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
index]))
setAlign ::
(MonadDOM m, ToJSString val) =>
HTMLTableSectionElement -> val -> m ()
setAlign :: HTMLTableSectionElement -> val -> m ()
setAlign HTMLTableSectionElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (DOM ()) HTMLTableSectionElement (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]
"align" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAlign ::
(MonadDOM m, FromJSString result) =>
HTMLTableSectionElement -> m result
getAlign :: HTMLTableSectionElement -> m result
getAlign HTMLTableSectionElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLTableSectionElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"align") 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)
setCh ::
(MonadDOM m, ToJSString val) =>
HTMLTableSectionElement -> val -> m ()
setCh :: HTMLTableSectionElement -> val -> m ()
setCh HTMLTableSectionElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (DOM ()) HTMLTableSectionElement (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]
"ch" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCh ::
(MonadDOM m, FromJSString result) =>
HTMLTableSectionElement -> m result
getCh :: HTMLTableSectionElement -> m result
getCh HTMLTableSectionElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLTableSectionElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"ch") 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)
setChOff ::
(MonadDOM m, ToJSString val) =>
HTMLTableSectionElement -> val -> m ()
setChOff :: HTMLTableSectionElement -> val -> m ()
setChOff HTMLTableSectionElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (DOM ()) HTMLTableSectionElement (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]
"chOff" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getChOff ::
(MonadDOM m, FromJSString result) =>
HTMLTableSectionElement -> m result
getChOff :: HTMLTableSectionElement -> m result
getChOff HTMLTableSectionElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLTableSectionElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"chOff") 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)
setVAlign ::
(MonadDOM m, ToJSString val) =>
HTMLTableSectionElement -> val -> m ()
setVAlign :: HTMLTableSectionElement -> val -> m ()
setVAlign HTMLTableSectionElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (DOM ()) HTMLTableSectionElement (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]
"vAlign" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getVAlign ::
(MonadDOM m, FromJSString result) =>
HTMLTableSectionElement -> m result
getVAlign :: HTMLTableSectionElement -> m result
getVAlign HTMLTableSectionElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLTableSectionElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"vAlign") 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)
getRows ::
(MonadDOM m) => HTMLTableSectionElement -> m HTMLCollection
getRows :: HTMLTableSectionElement -> m HTMLCollection
getRows HTMLTableSectionElement
self = DOM HTMLCollection -> m HTMLCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLTableSectionElement
self HTMLTableSectionElement
-> Getting (JSM JSVal) HTMLTableSectionElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter HTMLTableSectionElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"rows") JSM JSVal -> (JSVal -> DOM HTMLCollection) -> DOM HTMLCollection
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)