HTMLStyleElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLStyleElement
       (setDisabled, getDisabled, setMedia, getMedia, getBlocking, setType, getType, HTMLStyleElement(..), gTypeHTMLStyleElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/disabled MDN HTMLStyleElement.disabled documentation>
setDisabled :: (MonadDOM m) => HTMLStyleElement -> Bool -> m ()
setDisabled self val = liftDOM (void (self ^. jss "disabled" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/disabled MDN HTMLStyleElement.disabled documentation>
getDisabled :: (MonadDOM m) => HTMLStyleElement -> m Bool
getDisabled self = liftDOM (((self ^. js "disabled") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/media MDN HTMLStyleElement.media documentation>
setMedia :: (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()
setMedia self val = liftDOM (void (self ^. jss "media" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/media MDN HTMLStyleElement.media documentation>
getMedia :: (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result
getMedia self = liftDOM (((self ^. js "media") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/blocking MDN HTMLStyleElement.blocking documentation>
getBlocking :: (MonadDOM m) => HTMLStyleElement -> m DOMTokenList
getBlocking self = liftDOM (((self ^. js "blocking") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/type MDN HTMLStyleElement.type documentation>
setType :: (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()
setType self val = liftDOM (void (self ^. jss "type" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLStyleElement/type MDN HTMLStyleElement.type documentation>
getType :: (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))