{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.HTMLAnchorElement (toString, setCharset, getCharset, setCoords, getCoords, setDownload, getDownload, setHref, getHref, setHreflang, getHreflang, setName, getName, setPing, getPing, setRel, getRel, setRev, getRev, setShape, getShape, setTarget, getTarget, setType, getType, setHash, getHash, setHost, getHost, setHostname, getHostname, setPathname, getPathname, setPort, getPort, setProtocol, getProtocol, setSearch, getSearch, getOrigin, setText, getText, getRelList, HTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | toString :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result toString self = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked) -- | 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) -- | setHref :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m () setHref self val = liftDOM (self ^. jss "href" (toJSVal val)) -- | getHref :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result getHref self = liftDOM ((self ^. js "href") >>= 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) -- | setHash :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setHash self val = liftDOM (self ^. jss "hash" (toJSVal val)) -- | getHash :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString) -- | setHost :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setHost self val = liftDOM (self ^. jss "host" (toJSVal val)) -- | getHost :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString) -- | setHostname :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setHostname self val = liftDOM (self ^. jss "hostname" (toJSVal val)) -- | getHostname :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getHostname self = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString) -- | setPathname :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setPathname self val = liftDOM (self ^. jss "pathname" (toJSVal val)) -- | getPathname :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getPathname self = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString) -- | setPort :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setPort self val = liftDOM (self ^. jss "port" (toJSVal val)) -- | getPort :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString) -- | setProtocol :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setProtocol self val = liftDOM (self ^. jss "protocol" (toJSVal val)) -- | getProtocol :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getProtocol self = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString) -- | setSearch :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> Maybe val -> m () setSearch self val = liftDOM (self ^. jss "search" (toJSVal val)) -- | getSearch :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getSearch self = liftDOM ((self ^. js "search") >>= fromMaybeJSString) -- | getOrigin :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m (Maybe result) getOrigin self = liftDOM ((self ^. js "origin") >>= fromMaybeJSString) -- | 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 (Maybe DOMTokenList) getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)