jsaddle-dom-0.10.0.0: src/JSDOM/Generated/FontFaceDescriptors.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-font-loading-3 (webref). Do not edit.
module JSDOM.Generated.FontFaceDescriptors
       (newFontFaceDescriptors, setStyle, getStyle, getStyleUnsafe, getStyleUnchecked, setWeight, getWeight, getWeightUnsafe, getWeightUnchecked, setStretch, getStretch, getStretchUnsafe, getStretchUnchecked, setUnicodeRange, getUnicodeRange, getUnicodeRangeUnsafe, getUnicodeRangeUnchecked, setFeatureSettings, getFeatureSettings, getFeatureSettingsUnsafe, getFeatureSettingsUnchecked, setVariationSettings, getVariationSettings, getVariationSettingsUnsafe, getVariationSettingsUnchecked, setDisplay, getDisplay, getDisplayUnsafe, getDisplayUnchecked, setAscentOverride, getAscentOverride, getAscentOverrideUnsafe, getAscentOverrideUnchecked, setDescentOverride, getDescentOverride, getDescentOverrideUnsafe, getDescentOverrideUnchecked, setLineGapOverride, getLineGapOverride, getLineGapOverrideUnsafe, getLineGapOverrideUnchecked, FontFaceDescriptors(..), gTypeFontFaceDescriptors)
       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/css-font-loading-3/#dictdef-fontfacedescriptors FontFaceDescriptors specification>
newFontFaceDescriptors :: (MonadDOM m) => m FontFaceDescriptors
newFontFaceDescriptors = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-style FontFaceDescriptors.style specification>
setStyle :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setStyle self val = liftDOM (void (self ^. jss "style" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-style FontFaceDescriptors.style specification>
getStyle :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getStyle self = liftDOM (((self ^. js "style") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-style FontFaceDescriptors.style specification>
getStyleUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getStyleUnsafe self = liftDOM ((((self ^. js "style") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-style FontFaceDescriptors.style specification>
getStyleUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getStyleUnchecked self = liftDOM (((self ^. js "style") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-weight FontFaceDescriptors.weight specification>
setWeight :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setWeight self val = liftDOM (void (self ^. jss "weight" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-weight FontFaceDescriptors.weight specification>
getWeight :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getWeight self = liftDOM (((self ^. js "weight") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-weight FontFaceDescriptors.weight specification>
getWeightUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getWeightUnsafe self = liftDOM ((((self ^. js "weight") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-weight FontFaceDescriptors.weight specification>
getWeightUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getWeightUnchecked self = liftDOM (((self ^. js "weight") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-stretch FontFaceDescriptors.stretch specification>
setStretch :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setStretch self val = liftDOM (void (self ^. jss "stretch" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-stretch FontFaceDescriptors.stretch specification>
getStretch :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getStretch self = liftDOM (((self ^. js "stretch") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-stretch FontFaceDescriptors.stretch specification>
getStretchUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getStretchUnsafe self = liftDOM ((((self ^. js "stretch") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-stretch FontFaceDescriptors.stretch specification>
getStretchUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getStretchUnchecked self = liftDOM (((self ^. js "stretch") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-unicoderange FontFaceDescriptors.unicodeRange specification>
setUnicodeRange :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setUnicodeRange self val = liftDOM (void (self ^. jss "unicodeRange" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-unicoderange FontFaceDescriptors.unicodeRange specification>
getUnicodeRange :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getUnicodeRange self = liftDOM (((self ^. js "unicodeRange") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-unicoderange FontFaceDescriptors.unicodeRange specification>
getUnicodeRangeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getUnicodeRangeUnsafe self = liftDOM ((((self ^. js "unicodeRange") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-unicoderange FontFaceDescriptors.unicodeRange specification>
getUnicodeRangeUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getUnicodeRangeUnchecked self = liftDOM (((self ^. js "unicodeRange") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-featuresettings FontFaceDescriptors.featureSettings specification>
setFeatureSettings :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setFeatureSettings self val = liftDOM (void (self ^. jss "featureSettings" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-featuresettings FontFaceDescriptors.featureSettings specification>
getFeatureSettings :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getFeatureSettings self = liftDOM (((self ^. js "featureSettings") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-featuresettings FontFaceDescriptors.featureSettings specification>
getFeatureSettingsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getFeatureSettingsUnsafe self = liftDOM ((((self ^. js "featureSettings") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-featuresettings FontFaceDescriptors.featureSettings specification>
getFeatureSettingsUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getFeatureSettingsUnchecked self = liftDOM (((self ^. js "featureSettings") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-variationsettings FontFaceDescriptors.variationSettings specification>
setVariationSettings :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setVariationSettings self val = liftDOM (void (self ^. jss "variationSettings" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-variationsettings FontFaceDescriptors.variationSettings specification>
getVariationSettings :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getVariationSettings self = liftDOM (((self ^. js "variationSettings") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-variationsettings FontFaceDescriptors.variationSettings specification>
getVariationSettingsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getVariationSettingsUnsafe self = liftDOM ((((self ^. js "variationSettings") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-variationsettings FontFaceDescriptors.variationSettings specification>
getVariationSettingsUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getVariationSettingsUnchecked self = liftDOM (((self ^. js "variationSettings") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-display FontFaceDescriptors.display specification>
setDisplay :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setDisplay self val = liftDOM (void (self ^. jss "display" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-display FontFaceDescriptors.display specification>
getDisplay :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getDisplay self = liftDOM (((self ^. js "display") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-display FontFaceDescriptors.display specification>
getDisplayUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getDisplayUnsafe self = liftDOM ((((self ^. js "display") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-display FontFaceDescriptors.display specification>
getDisplayUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getDisplayUnchecked self = liftDOM (((self ^. js "display") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-ascentoverride FontFaceDescriptors.ascentOverride specification>
setAscentOverride :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setAscentOverride self val = liftDOM (void (self ^. jss "ascentOverride" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-ascentoverride FontFaceDescriptors.ascentOverride specification>
getAscentOverride :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getAscentOverride self = liftDOM (((self ^. js "ascentOverride") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-ascentoverride FontFaceDescriptors.ascentOverride specification>
getAscentOverrideUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getAscentOverrideUnsafe self = liftDOM ((((self ^. js "ascentOverride") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-ascentoverride FontFaceDescriptors.ascentOverride specification>
getAscentOverrideUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getAscentOverrideUnchecked self = liftDOM (((self ^. js "ascentOverride") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-descentoverride FontFaceDescriptors.descentOverride specification>
setDescentOverride :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setDescentOverride self val = liftDOM (void (self ^. jss "descentOverride" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-descentoverride FontFaceDescriptors.descentOverride specification>
getDescentOverride :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getDescentOverride self = liftDOM (((self ^. js "descentOverride") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-descentoverride FontFaceDescriptors.descentOverride specification>
getDescentOverrideUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getDescentOverrideUnsafe self = liftDOM ((((self ^. js "descentOverride") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-descentoverride FontFaceDescriptors.descentOverride specification>
getDescentOverrideUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getDescentOverrideUnchecked self = liftDOM (((self ^. js "descentOverride") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-linegapoverride FontFaceDescriptors.lineGapOverride specification>
setLineGapOverride :: (MonadDOM m, ToJSString val) => FontFaceDescriptors -> val -> m ()
setLineGapOverride self val = liftDOM (void (self ^. jss "lineGapOverride" (toJSVal val)))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-linegapoverride FontFaceDescriptors.lineGapOverride specification>
getLineGapOverride :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m (Maybe result)
getLineGapOverride self = liftDOM (((self ^. js "lineGapOverride") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-linegapoverride FontFaceDescriptors.lineGapOverride specification>
getLineGapOverrideUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FontFaceDescriptors -> m result
getLineGapOverrideUnsafe self = liftDOM ((((self ^. js "lineGapOverride") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfacedescriptors-linegapoverride FontFaceDescriptors.lineGapOverride specification>
getLineGapOverrideUnchecked :: (MonadDOM m, FromJSString result) => FontFaceDescriptors -> m result
getLineGapOverrideUnchecked self = liftDOM (((self ^. js "lineGapOverride") >>= fromJSValUnchecked))