{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLAreaElement (setAlt, getAlt, setCoords, getCoords, setNoHref, getNoHref, setPing, getPing, setRel, getRel, setShape, getShape, setTarget, getTarget, setDownload, getDownload, getRelList, 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 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 -- | 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) -- | 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) -- | setDownload :: (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m () setDownload self val = liftDOM (self ^. jss "download" (toJSVal val)) -- | getDownload :: (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result getDownload self = liftDOM ((self ^. js "download") >>= fromJSValUnchecked) -- | getRelList :: (MonadDOM m) => HTMLAreaElement -> m DOMTokenList getRelList self = liftDOM ((self ^. js "relList") >>= fromJSValUnchecked)