{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTableElement (createTHead, createTHead_, createTHeadUnsafe, createTHeadUnchecked, deleteTHead, createTFoot, createTFoot_, createTFootUnsafe, createTFootUnchecked, deleteTFoot, createTBody, createTBody_, createTBodyUnsafe, createTBodyUnchecked, createCaption, createCaption_, createCaptionUnsafe, createCaptionUnchecked, deleteCaption, insertRow, insertRow_, insertRowUnsafe, insertRowUnchecked, deleteRow, setCaption, getCaption, getCaptionUnsafe, getCaptionUnchecked, setTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked, setTFoot, getTFoot, getTFootUnsafe, getTFootUnchecked, getRows, getRowsUnsafe, getRowsUnchecked, getTBodies, getTBodiesUnsafe, getTBodiesUnchecked, setAlign, getAlign, setBgColor, getBgColor, setBorder, getBorder, setCellPadding, getCellPadding, setCellSpacing, getCellSpacing, setFrame, getFrame, setRules, getRules, setSummary, getSummary, setWidth, getWidth, HTMLTableElement(..), gTypeHTMLTableElement) 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 -- | createTHead :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement) createTHead self = liftDOM ((self ^. jsf "createTHead" ()) >>= fromJSVal) -- | createTHead_ :: (MonadDOM m) => HTMLTableElement -> m () createTHead_ self = liftDOM (void (self ^. jsf "createTHead" ())) -- | createTHeadUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement createTHeadUnsafe self = liftDOM (((self ^. jsf "createTHead" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createTHeadUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLElement createTHeadUnchecked self = liftDOM ((self ^. jsf "createTHead" ()) >>= fromJSValUnchecked) -- | deleteTHead :: (MonadDOM m) => HTMLTableElement -> m () deleteTHead self = liftDOM (void (self ^. jsf "deleteTHead" ())) -- | createTFoot :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement) createTFoot self = liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSVal) -- | createTFoot_ :: (MonadDOM m) => HTMLTableElement -> m () createTFoot_ self = liftDOM (void (self ^. jsf "createTFoot" ())) -- | createTFootUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement createTFootUnsafe self = liftDOM (((self ^. jsf "createTFoot" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createTFootUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLElement createTFootUnchecked self = liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSValUnchecked) -- | deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m () deleteTFoot self = liftDOM (void (self ^. jsf "deleteTFoot" ())) -- | createTBody :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement) createTBody self = liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSVal) -- | createTBody_ :: (MonadDOM m) => HTMLTableElement -> m () createTBody_ self = liftDOM (void (self ^. jsf "createTBody" ())) -- | createTBodyUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement createTBodyUnsafe self = liftDOM (((self ^. jsf "createTBody" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createTBodyUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLElement createTBodyUnchecked self = liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSValUnchecked) -- | createCaption :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement) createCaption self = liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSVal) -- | createCaption_ :: (MonadDOM m) => HTMLTableElement -> m () createCaption_ self = liftDOM (void (self ^. jsf "createCaption" ())) -- | createCaptionUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement createCaptionUnsafe self = liftDOM (((self ^. jsf "createCaption" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createCaptionUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLElement createCaptionUnchecked self = liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSValUnchecked) -- | deleteCaption :: (MonadDOM m) => HTMLTableElement -> m () deleteCaption self = liftDOM (void (self ^. jsf "deleteCaption" ())) -- | insertRow :: (MonadDOM m) => HTMLTableElement -> Int -> m (Maybe HTMLElement) insertRow self index = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal) -- | insertRow_ :: (MonadDOM m) => HTMLTableElement -> Int -> m () insertRow_ self index = liftDOM (void (self ^. jsf "insertRow" [toJSVal index])) -- | insertRowUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> Int -> m HTMLElement insertRowUnsafe self index = liftDOM (((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | insertRowUnchecked :: (MonadDOM m) => HTMLTableElement -> Int -> m HTMLElement insertRowUnchecked self index = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSValUnchecked) -- | deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m () deleteRow self index = liftDOM (void (self ^. jsf "deleteRow" [toJSVal index])) -- | setCaption :: (MonadDOM m) => HTMLTableElement -> Maybe HTMLTableCaptionElement -> m () setCaption self val = liftDOM (self ^. jss "caption" (toJSVal val)) -- | getCaption :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLTableCaptionElement) getCaption self = liftDOM ((self ^. js "caption") >>= fromJSVal) -- | getCaptionUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnsafe self = liftDOM (((self ^. js "caption") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getCaptionUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnchecked self = liftDOM ((self ^. js "caption") >>= fromJSValUnchecked) -- | setTHead :: (MonadDOM m) => HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTHead self val = liftDOM (self ^. jss "tHead" (toJSVal val)) -- | getTHead :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTHead self = liftDOM ((self ^. js "tHead") >>= fromJSVal) -- | getTHeadUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnsafe self = liftDOM (((self ^. js "tHead") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTHeadUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnchecked self = liftDOM ((self ^. js "tHead") >>= fromJSValUnchecked) -- | setTFoot :: (MonadDOM m) => HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTFoot self val = liftDOM (self ^. jss "tFoot" (toJSVal val)) -- | getTFoot :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTFoot self = liftDOM ((self ^. js "tFoot") >>= fromJSVal) -- | getTFootUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnsafe self = liftDOM (((self ^. js "tFoot") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTFootUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnchecked self = liftDOM ((self ^. js "tFoot") >>= fromJSValUnchecked) -- | getRows :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection) getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal) -- | getRowsUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLCollection getRowsUnsafe self = liftDOM (((self ^. js "rows") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRowsUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLCollection getRowsUnchecked self = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked) -- | getTBodies :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal) -- | getTBodiesUnsafe :: (MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLCollection getTBodiesUnsafe self = liftDOM (((self ^. js "tBodies") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTBodiesUnchecked :: (MonadDOM m) => HTMLTableElement -> m HTMLCollection getTBodiesUnchecked self = liftDOM ((self ^. js "tBodies") >>= fromJSValUnchecked) -- | setAlign :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setAlign self val = liftDOM (self ^. jss "align" (toJSVal val)) -- | getAlign :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getAlign self = liftDOM ((self ^. js "align") >>= fromJSValUnchecked) -- | setBgColor :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getBgColor self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | setBorder :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setBorder self val = liftDOM (self ^. jss "border" (toJSVal val)) -- | getBorder :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getBorder self = liftDOM ((self ^. js "border") >>= fromJSValUnchecked) -- | setCellPadding :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setCellPadding self val = liftDOM (self ^. jss "cellPadding" (toJSVal val)) -- | getCellPadding :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getCellPadding self = liftDOM ((self ^. js "cellPadding") >>= fromJSValUnchecked) -- | setCellSpacing :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setCellSpacing self val = liftDOM (self ^. jss "cellSpacing" (toJSVal val)) -- | getCellSpacing :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getCellSpacing self = liftDOM ((self ^. js "cellSpacing") >>= fromJSValUnchecked) -- | setFrame :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setFrame self val = liftDOM (self ^. jss "frame" (toJSVal val)) -- | getFrame :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getFrame self = liftDOM ((self ^. js "frame") >>= fromJSValUnchecked) -- | setRules :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setRules self val = liftDOM (self ^. jss "rules" (toJSVal val)) -- | getRules :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getRules self = liftDOM ((self ^. js "rules") >>= fromJSValUnchecked) -- | setSummary :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setSummary self val = liftDOM (self ^. jss "summary" (toJSVal val)) -- | getSummary :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getSummary self = liftDOM ((self ^. js "summary") >>= fromJSValUnchecked) -- | setWidth :: (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setWidth self val = liftDOM (self ^. jss "width" (toJSVal val)) -- | getWidth :: (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getWidth self = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)