HTMLTableColElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLTableColElement
       (setSpan, getSpan, setAlign, getAlign, setCh, getCh, setChOff, getChOff, setVAlign, getVAlign, setWidth, getWidth, HTMLTableColElement(..), gTypeHTMLTableColElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/span MDN HTMLTableColElement.span documentation>
setSpan :: (MonadDOM m) => HTMLTableColElement -> Word -> m ()
setSpan self val = liftDOM (void (self ^. jss "span" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/span MDN HTMLTableColElement.span documentation>
getSpan :: (MonadDOM m) => HTMLTableColElement -> m Word
getSpan self = liftDOM ((P.round <$> ((self ^. js "span") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/align MDN HTMLTableColElement.align documentation>
setAlign :: (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()
setAlign self val = liftDOM (void (self ^. jss "align" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/align MDN HTMLTableColElement.align documentation>
getAlign :: (MonadDOM m, FromJSString result) => HTMLTableColElement -> m result
getAlign self = liftDOM (((self ^. js "align") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/ch MDN HTMLTableColElement.ch documentation>
setCh :: (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()
setCh self val = liftDOM (void (self ^. jss "ch" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/ch MDN HTMLTableColElement.ch documentation>
getCh :: (MonadDOM m, FromJSString result) => HTMLTableColElement -> m result
getCh self = liftDOM (((self ^. js "ch") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/chOff MDN HTMLTableColElement.chOff documentation>
setChOff :: (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()
setChOff self val = liftDOM (void (self ^. jss "chOff" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/chOff MDN HTMLTableColElement.chOff documentation>
getChOff :: (MonadDOM m, FromJSString result) => HTMLTableColElement -> m result
getChOff self = liftDOM (((self ^. js "chOff") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/vAlign MDN HTMLTableColElement.vAlign documentation>
setVAlign :: (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()
setVAlign self val = liftDOM (void (self ^. jss "vAlign" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTableColElement/vAlign MDN HTMLTableColElement.vAlign documentation>
getVAlign :: (MonadDOM m, FromJSString result) => HTMLTableColElement -> m result
getVAlign self = liftDOM (((self ^. js "vAlign") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-col-width HTMLTableColElement.width specification>
setWidth :: (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-col-width HTMLTableColElement.width specification>
getWidth :: (MonadDOM m, FromJSString result) => HTMLTableColElement -> m result
getWidth self = liftDOM (((self ^. js "width") >>= fromJSValUnchecked))