{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.HTMLLinkElement (setDisabled, getDisabled, setCharset, getCharset, setHref, getHref, setHreflang, getHreflang, setMedia, getMedia, setRel, getRel, setRev, getRev, setSizes, getSizes, setTarget, getTarget, setType, getType, getSheet, getRelList, HTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement) 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 -- | setDisabled :: (MonadDOM m) => HTMLLinkElement -> Bool -> m () setDisabled self val = liftDOM (self ^. jss "disabled" (toJSVal val)) -- | getDisabled :: (MonadDOM m) => HTMLLinkElement -> m Bool getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool) -- | setCharset :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val)) -- | getCharset :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getCharset self = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked) -- | setHref :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setHref self val = liftDOM (self ^. jss "href" (toJSVal val)) -- | getHref :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked) -- | setHreflang :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setHreflang self val = liftDOM (self ^. jss "hreflang" (toJSVal val)) -- | getHreflang :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getHreflang self = liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked) -- | setMedia :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setMedia self val = liftDOM (self ^. jss "media" (toJSVal val)) -- | getMedia :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getMedia self = liftDOM ((self ^. js "media") >>= fromJSValUnchecked) -- | setRel :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setRel self val = liftDOM (self ^. jss "rel" (toJSVal val)) -- | getRel :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked) -- | setRev :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setRev self val = liftDOM (self ^. jss "rev" (toJSVal val)) -- | getRev :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked) -- | setSizes :: (MonadDOM m) => HTMLLinkElement -> Maybe DOMSettableTokenList -> m () setSizes self val = liftDOM (self ^. jss "sizes" (toJSVal val)) -- | getSizes :: (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList) getSizes self = liftDOM ((self ^. js "sizes") >>= fromJSVal) -- | setTarget :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setTarget self val = liftDOM (self ^. jss "target" (toJSVal val)) -- | getTarget :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getTarget self = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) -- | setType :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () setType self val = liftDOM (self ^. jss "type" (toJSVal val)) -- | getType :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) -- | getSheet :: (MonadDOM m) => HTMLLinkElement -> m (Maybe StyleSheet) getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal) -- | getRelList :: (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMTokenList) getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)