module JSDOM.Generated.MediaStreamTrack
(getSources, getConstraints, getConstraints_, getConstraintsUnsafe,
getConstraintsUnchecked, states, states_, statesUnsafe,
statesUnchecked, getCapabilities, getCapabilities_,
getCapabilitiesUnsafe, getCapabilitiesUnchecked, applyConstraints,
clone, clone_, cloneUnsafe, cloneUnchecked, stop, getKind, getId,
getLabel, setEnabled, getEnabled, getMuted, mute, unmute,
get_readonly, getRemote, getReadyState, started, ended,
overConstrained, MediaStreamTrack(..), gTypeMediaStreamTrack,
IsMediaStreamTrack, toMediaStreamTrack)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getSources ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> Maybe MediaStreamTrackSourcesCallback -> m ()
getSources self callback
= liftDOM
(void
((toMediaStreamTrack self) ^. jsf "getSources" [toJSVal callback]))
getConstraints ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m (Maybe MediaTrackConstraints)
getConstraints self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>=
fromJSVal)
getConstraints_ ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m ()
getConstraints_ self
= liftDOM
(void ((toMediaStreamTrack self) ^. jsf "getConstraints" ()))
getConstraintsUnsafe ::
(MonadDOM m, IsMediaStreamTrack self, HasCallStack) =>
self -> m MediaTrackConstraints
getConstraintsUnsafe self
= liftDOM
((((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getConstraintsUnchecked ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaTrackConstraints
getConstraintsUnchecked self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>=
fromJSValUnchecked)
states ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m (Maybe MediaSourceStates)
states self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "states" ()) >>= fromJSVal)
states_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()
states_ self
= liftDOM (void ((toMediaStreamTrack self) ^. jsf "states" ()))
statesUnsafe ::
(MonadDOM m, IsMediaStreamTrack self, HasCallStack) =>
self -> m MediaSourceStates
statesUnsafe self
= liftDOM
((((toMediaStreamTrack self) ^. jsf "states" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
statesUnchecked ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaSourceStates
statesUnchecked self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "states" ()) >>=
fromJSValUnchecked)
getCapabilities ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m (Maybe MediaStreamCapabilities)
getCapabilities self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>=
fromJSVal)
getCapabilities_ ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m ()
getCapabilities_ self
= liftDOM
(void ((toMediaStreamTrack self) ^. jsf "getCapabilities" ()))
getCapabilitiesUnsafe ::
(MonadDOM m, IsMediaStreamTrack self, HasCallStack) =>
self -> m MediaStreamCapabilities
getCapabilitiesUnsafe self
= liftDOM
((((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getCapabilitiesUnchecked ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaStreamCapabilities
getCapabilitiesUnchecked self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>=
fromJSValUnchecked)
applyConstraints ::
(MonadDOM m, IsMediaStreamTrack self, IsDictionary constraints) =>
self -> Maybe constraints -> m ()
applyConstraints self constraints
= liftDOM
(void
((toMediaStreamTrack self) ^. jsf "applyConstraints"
[toJSVal constraints]))
clone ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m (Maybe MediaStreamTrack)
clone self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "clone" ()) >>= fromJSVal)
clone_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()
clone_ self
= liftDOM (void ((toMediaStreamTrack self) ^. jsf "clone" ()))
cloneUnsafe ::
(MonadDOM m, IsMediaStreamTrack self, HasCallStack) =>
self -> m MediaStreamTrack
cloneUnsafe self
= liftDOM
((((toMediaStreamTrack self) ^. jsf "clone" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
cloneUnchecked ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m MediaStreamTrack
cloneUnchecked self
= liftDOM
(((toMediaStreamTrack self) ^. jsf "clone" ()) >>=
fromJSValUnchecked)
stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()
stop self
= liftDOM (void ((toMediaStreamTrack self) ^. jsf "stop" ()))
getKind ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getKind self
= liftDOM
(((toMediaStreamTrack self) ^. js "kind") >>= fromJSValUnchecked)
getId ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getId self
= liftDOM
(((toMediaStreamTrack self) ^. js "id") >>= fromJSValUnchecked)
getLabel ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getLabel self
= liftDOM
(((toMediaStreamTrack self) ^. js "label") >>= fromJSValUnchecked)
setEnabled ::
(MonadDOM m, IsMediaStreamTrack self) => self -> Bool -> m ()
setEnabled self val
= liftDOM
((toMediaStreamTrack self) ^. jss "enabled" (toJSVal val))
getEnabled ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
getEnabled self
= liftDOM
(((toMediaStreamTrack self) ^. js "enabled") >>= valToBool)
getMuted :: (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
getMuted self
= liftDOM (((toMediaStreamTrack self) ^. js "muted") >>= valToBool)
mute ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
mute = unsafeEventName (toJSString "mute")
unmute ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
unmute = unsafeEventName (toJSString "unmute")
get_readonly ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
get_readonly self
= liftDOM
(((toMediaStreamTrack self) ^. js "_readonly") >>= valToBool)
getRemote ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
getRemote self
= liftDOM
(((toMediaStreamTrack self) ^. js "remote") >>= valToBool)
getReadyState ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaStreamTrackState
getReadyState self
= liftDOM
(((toMediaStreamTrack self) ^. js "readyState") >>=
fromJSValUnchecked)
started ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
started = unsafeEventName (toJSString "started")
ended ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
ended = unsafeEventName (toJSString "ended")
overConstrained ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
overConstrained = unsafeEventName (toJSString "overconstrained")