module JSDOM.Generated.HTMLAreaElement
(setAlt, getAlt, setCoords, getCoords, setHref, getHref, setNoHref,
getNoHref, setPing, getPing, setRel, getRel, setShape, getShape,
setTarget, getTarget, getHash, getHost, getHostname, getPathname,
getPort, getProtocol, getSearch, getRelList, getRelListUnsafe,
getRelListUnchecked, HTMLAreaElement(..), gTypeHTMLAreaElement)
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
setAlt ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))
getAlt ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)
setCoords ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))
getCoords ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getCoords self
= liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)
setHref ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setHref self val = liftDOM (self ^. jss "href" (toJSVal val))
getHref ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)
setNoHref :: (MonadDOM m) => HTMLAreaElement -> Bool -> m ()
setNoHref self val = liftDOM (self ^. jss "noHref" (toJSVal val))
getNoHref :: (MonadDOM m) => HTMLAreaElement -> m Bool
getNoHref self = liftDOM ((self ^. js "noHref") >>= valToBool)
setPing ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))
getPing ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)
setRel ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))
getRel ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)
setShape ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))
getShape ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getShape self
= liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getTarget self
= liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
getHash ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)
getHost ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)
getHostname ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getHostname self
= liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)
getPathname ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getPathname self
= liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)
getPort ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)
getProtocol ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getProtocol self
= liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)
getSearch ::
(MonadDOM m, FromJSString result) => HTMLAreaElement -> m result
getSearch self
= liftDOM ((self ^. js "search") >>= fromJSValUnchecked)
getRelList ::
(MonadDOM m) => HTMLAreaElement -> m (Maybe DOMTokenList)
getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
getRelListUnsafe ::
(MonadDOM m, HasCallStack) => HTMLAreaElement -> m DOMTokenList
getRelListUnsafe self
= liftDOM
(((self ^. js "relList") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRelListUnchecked ::
(MonadDOM m) => HTMLAreaElement -> m DOMTokenList
getRelListUnchecked self
= liftDOM ((self ^. js "relList") >>= fromJSValUnchecked)