module JSDOM.Generated.HTMLAnchorElement
(setCharset, getCharset, setCoords, getCoords, setDownload,
getDownload, setHreflang, getHreflang, setName, getName, setPing,
getPing, setRel, getRel, setRev, getRev, setShape, getShape,
setTarget, getTarget, setType, getType, setText, getText,
getRelList, HTMLAnchorElement(..), gTypeHTMLAnchorElement)
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)
import JSDOM.Enums
setCharset ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))
getCharset ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCharset self
= liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)
setCoords ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))
getCoords ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCoords self
= liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)
setDownload ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setDownload self val
= liftDOM (self ^. jss "download" (toJSVal val))
getDownload ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getDownload self
= liftDOM ((self ^. js "download") >>= fromJSValUnchecked)
setHreflang ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setHreflang self val
= liftDOM (self ^. jss "hreflang" (toJSVal val))
getHreflang ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHreflang self
= liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)
setName ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setName self val = liftDOM (self ^. jss "name" (toJSVal val))
getName ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
setPing ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))
getPing ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)
setRel ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))
getRel ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)
setRev ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))
getRev ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)
setShape ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))
getShape ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getShape self
= liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getTarget self
= liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
setType ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setType self val = liftDOM (self ^. jss "type" (toJSVal val))
getType ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
setText ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setText self val = liftDOM (self ^. jss "text" (toJSVal val))
getText ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)
getRelList :: (MonadDOM m) => HTMLAnchorElement -> m DOMTokenList
getRelList self
= liftDOM ((self ^. js "relList") >>= fromJSValUnchecked)