CSSStyleSheetInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cssom-1 (webref). Do not edit.
module JSDOM.Generated.CSSStyleSheetInit
       (newCSSStyleSheetInit, setBaseURL, getBaseURL, getBaseURLUnsafe, getBaseURLUnchecked, setMedia, getMedia, getMediaUnsafe, getMediaUnchecked, setDisabled, getDisabled, getDisabledUnsafe, getDisabledUnchecked, CSSStyleSheetInit(..), gTypeCSSStyleSheetInit)
       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://drafts.csswg.org/cssom-1/#dictdef-cssstylesheetinit CSSStyleSheetInit specification>
newCSSStyleSheetInit :: (MonadDOM m) => m CSSStyleSheetInit
newCSSStyleSheetInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>
setBaseURL :: (MonadDOM m, ToJSString val) => CSSStyleSheetInit -> Maybe val -> m ()
setBaseURL self val = liftDOM (void (self ^. jss "baseURL" (toJSVal val)))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>
getBaseURL :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m (Maybe result)
getBaseURL self = liftDOM (((self ^. js "baseURL") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>
getBaseURLUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSStyleSheetInit -> m result
getBaseURLUnsafe self = liftDOM ((((self ^. js "baseURL") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>
getBaseURLUnchecked :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m result
getBaseURLUnchecked self = liftDOM (((self ^. js "baseURL") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>
setMedia :: (MonadDOM m, IsMediaListOrString val) => CSSStyleSheetInit -> val -> m ()
setMedia self val = liftDOM (void (self ^. jss "media" (toJSVal val)))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>
getMedia :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe MediaListOrString)
getMedia self = liftDOM (((self ^. js "media") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>
getMediaUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m MediaListOrString
getMediaUnsafe self = liftDOM ((((self ^. js "media") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>
getMediaUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m MediaListOrString
getMediaUnchecked self = liftDOM (((self ^. js "media") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>
setDisabled :: (MonadDOM m) => CSSStyleSheetInit -> Bool -> m ()
setDisabled self val = liftDOM (void (self ^. jss "disabled" (toJSVal val)))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>
getDisabled :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe Bool)
getDisabled self = liftDOM (((self ^. js "disabled") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>
getDisabledUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m Bool
getDisabledUnsafe self = liftDOM ((((self ^. js "disabled") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>
getDisabledUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m Bool
getDisabledUnchecked self = liftDOM (((self ^. js "disabled") >>= valToBool))