FontFace.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.FontFace
       (newFontFace, load, load_, setFamily, getFamily, setStyle, getStyle, setWeight, getWeight, setStretch, getStretch, setUnicodeRange, getUnicodeRange, setFeatureSettings, getFeatureSettings, setVariationSettings, getVariationSettings, setDisplay, getDisplay, setAscentOverride, getAscentOverride, setDescentOverride, getDescentOverride, setLineGapOverride, getLineGapOverride, getStatus, getLoaded, FontFace(..), gTypeFontFace)
       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/FontFace/FontFace MDN FontFace. documentation>
newFontFace :: (MonadDOM m, ToJSString family', IsPushMessageDataInit source) => family' -> source -> Maybe FontFaceDescriptors -> m FontFace
newFontFace family' source descriptors = liftDOM (((new (jsg "FontFace") [toJSVal family', toJSVal source, P.maybe (P.return jsUndefined) toJSVal descriptors]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FontFace/load MDN FontFace.load documentation>
load :: (MonadDOM m) => FontFace -> m FontFace
load self = liftDOM (((((self ^. jsf "load" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FontFace/load MDN FontFace.load documentation>
load_ :: (MonadDOM m) => FontFace -> m ()
load_ self = liftDOM (void (((self ^. jsf "load" ()) >>= readPromise)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/FontFace/status MDN FontFace.status documentation>
getStatus :: (MonadDOM m) => FontFace -> m FontFaceLoadStatus
getStatus self = liftDOM (((self ^. js "status") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FontFace/loaded MDN FontFace.loaded documentation>
getLoaded :: (MonadDOM m) => FontFace -> m FontFace
getLoaded self = liftDOM (((((self ^. js "loaded") >>= readPromise)) >>= fromJSValUnchecked))