HTMLTrackElement.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.HTMLTrackElement
       (setKind, getKind, setSrc, getSrc, setSrclang, getSrclang, setLabel, getLabel, setDefault, getDefault, getReadyState, getTrack, pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR, HTMLTrackElement(..), gTypeHTMLTrackElement)
       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/HTMLTrackElement/kind MDN HTMLTrackElement.kind documentation>
setKind :: (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()
setKind self val = liftDOM (void (self ^. jss "kind" (toJSVal val)))

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTrackElement/readyState MDN HTMLTrackElement.readyState documentation>
getReadyState :: (MonadDOM m) => HTMLTrackElement -> m Word
getReadyState self = liftDOM ((P.round <$> ((self ^. js "readyState") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTrackElement/track MDN HTMLTrackElement.track documentation>
getTrack :: (MonadDOM m) => HTMLTrackElement -> m TextTrack
getTrack self = liftDOM (((self ^. js "track") >>= fromJSValUnchecked))

pattern NONE = 0

pattern LOADING = 1

pattern LOADED = 2

pattern ERROR = 3