FontFaceSet.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.FontFaceSet
       (add, add_, check, check_, clear, delete, delete_, load, load_, getReady, getStatus, loading, loadingDone, loadingerror, FontFaceSet(..), gTypeFontFaceSet)
       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/FontFaceSet/add MDN FontFaceSet.add documentation>
add :: (MonadDOM m) => FontFaceSet -> FontFace -> m FontFaceSet
add self font = liftDOM (((self ^. jsf "add" [toJSVal font]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/add MDN FontFaceSet.add documentation>
add_ :: (MonadDOM m) => FontFaceSet -> FontFace -> m ()
add_ self font = liftDOM (void (self ^. jsf "add" [toJSVal font]))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/check MDN FontFaceSet.check documentation>
check :: (MonadDOM m, ToJSString font, ToJSString text) => FontFaceSet -> font -> Maybe text -> m Bool
check self font text = liftDOM (((self ^. jsf "check" [toJSVal font, P.maybe (P.return jsUndefined) toJSVal text]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/check MDN FontFaceSet.check documentation>
check_ :: (MonadDOM m, ToJSString font, ToJSString text) => FontFaceSet -> font -> Maybe text -> m ()
check_ self font text = liftDOM (void (self ^. jsf "check" [toJSVal font, P.maybe (P.return jsUndefined) toJSVal text]))

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

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/delete MDN FontFaceSet.delete documentation>
delete :: (MonadDOM m) => FontFaceSet -> FontFace -> m Bool
delete self font = liftDOM (((self ^. jsf "delete" [toJSVal font]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/delete MDN FontFaceSet.delete documentation>
delete_ :: (MonadDOM m) => FontFaceSet -> FontFace -> m ()
delete_ self font = liftDOM (void (self ^. jsf "delete" [toJSVal font]))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/load MDN FontFaceSet.load documentation>
load :: (MonadDOM m, ToJSString font, ToJSString text) => FontFaceSet -> font -> Maybe text -> m [FontFace]
load self font text = liftDOM (((((self ^. jsf "load" [toJSVal font, P.maybe (P.return jsUndefined) toJSVal text]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/FontFaceSet/load MDN FontFaceSet.load documentation>
load_ :: (MonadDOM m, ToJSString font, ToJSString text) => FontFaceSet -> font -> Maybe text -> m ()
load_ self font text = liftDOM (void (((self ^. jsf "load" [toJSVal font, P.maybe (P.return jsUndefined) toJSVal text]) >>= readPromise)))

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

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

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfaceset-onloading loading event>
loading :: EventName FontFaceSet FontFaceSetLoadEvent
loading = unsafeEventName (toJSString "loading")

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfaceset-onloadingdone loadingdone event>
loadingDone :: EventName FontFaceSet FontFaceSetLoadEvent
loadingDone = unsafeEventName (toJSString "loadingdone")

-- | <https://drafts.csswg.org/css-font-loading-3/#dom-fontfaceset-onloadingerror loadingerror event>
loadingerror :: EventName FontFaceSet FontFaceSetLoadEvent
loadingerror = unsafeEventName (toJSString "loadingerror")