-----------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  Miso.Media
-- Copyright   :  (C) 2016-2025 David M. Johnson
-- License     :  BSD3-style (see the file LICENSE)
-- Maintainer  :  David M. Johnson <code@dmj.io>
-- Stability   :  experimental
-- Portability :  non-portable
----------------------------------------------------------------------------
module Miso.Media
  ( -- *** Types
    Media        (..)
  , NetworkState (..)
  , ReadyState   (..)
  , Stream
  -- *** Methods
  , canPlayType
  , load
  , play
  , pause
  , srcObject
  -- *** Properties
  , autoplay
  , controls
  , currentSrc
  , currentTime
  , defaultMuted
  , defaultPlaybackRate
  , duration
  , ended
  , loop
  , mediaGroup
  , muted
  , networkState
  , paused
  , playbackRate
  , poster
  , preload
  , readyState
  , seeking
  , videoHeight
  , videoWidth
  , volume
  -- *** Event Map
  , mediaEvents
  ) where
-----------------------------------------------------------------------------
import           Control.Monad
-----------------------------------------------------------------------------
import           Miso.DSL
import           Miso.Event
import           Miso.String
-----------------------------------------------------------------------------
-- | Type that abstracts over [Audio](https://www.w3schools.com/jsref/dom_obj_audio.asp)
-- or [Video](https://www.w3schools.com/jsref/dom_obj_video.asp) media objects.
--
-- You can create them in the View using 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_'.
-- To get the corresponding t'Media' object from the DOM, you can use
--
-- @
-- media <- t'Media' \<$\> 'Miso.FFI.getElementById' "myVideo"
-- @
newtype Media = Media JSVal
  deriving (Media -> IO JSVal
(Media -> IO JSVal) -> ToJSVal Media
forall a. (a -> IO JSVal) -> ToJSVal a
$ctoJSVal :: Media -> IO JSVal
toJSVal :: Media -> IO JSVal
ToJSVal, Media -> Media -> Bool
(Media -> Media -> Bool) -> (Media -> Media -> Bool) -> Eq Media
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Media -> Media -> Bool
== :: Media -> Media -> Bool
$c/= :: Media -> Media -> Bool
/= :: Media -> Media -> Bool
Eq)
-----------------------------------------------------------------------------
-- | Possible values of [networkState](https://www.w3schools.com/tags/av_prop_networkstate.asp) property.
data NetworkState
  = NETWORK_EMPTY
  | NETWORK_IDLE
  | NETWORK_LOADING
  | NETWORK_NO_SOURCE
  deriving (Int -> NetworkState -> ShowS
[NetworkState] -> ShowS
NetworkState -> String
(Int -> NetworkState -> ShowS)
-> (NetworkState -> String)
-> ([NetworkState] -> ShowS)
-> Show NetworkState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NetworkState -> ShowS
showsPrec :: Int -> NetworkState -> ShowS
$cshow :: NetworkState -> String
show :: NetworkState -> String
$cshowList :: [NetworkState] -> ShowS
showList :: [NetworkState] -> ShowS
Show, NetworkState -> NetworkState -> Bool
(NetworkState -> NetworkState -> Bool)
-> (NetworkState -> NetworkState -> Bool) -> Eq NetworkState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NetworkState -> NetworkState -> Bool
== :: NetworkState -> NetworkState -> Bool
$c/= :: NetworkState -> NetworkState -> Bool
/= :: NetworkState -> NetworkState -> Bool
Eq, Int -> NetworkState
NetworkState -> Int
NetworkState -> [NetworkState]
NetworkState -> NetworkState
NetworkState -> NetworkState -> [NetworkState]
NetworkState -> NetworkState -> NetworkState -> [NetworkState]
(NetworkState -> NetworkState)
-> (NetworkState -> NetworkState)
-> (Int -> NetworkState)
-> (NetworkState -> Int)
-> (NetworkState -> [NetworkState])
-> (NetworkState -> NetworkState -> [NetworkState])
-> (NetworkState -> NetworkState -> [NetworkState])
-> (NetworkState -> NetworkState -> NetworkState -> [NetworkState])
-> Enum NetworkState
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: NetworkState -> NetworkState
succ :: NetworkState -> NetworkState
$cpred :: NetworkState -> NetworkState
pred :: NetworkState -> NetworkState
$ctoEnum :: Int -> NetworkState
toEnum :: Int -> NetworkState
$cfromEnum :: NetworkState -> Int
fromEnum :: NetworkState -> Int
$cenumFrom :: NetworkState -> [NetworkState]
enumFrom :: NetworkState -> [NetworkState]
$cenumFromThen :: NetworkState -> NetworkState -> [NetworkState]
enumFromThen :: NetworkState -> NetworkState -> [NetworkState]
$cenumFromTo :: NetworkState -> NetworkState -> [NetworkState]
enumFromTo :: NetworkState -> NetworkState -> [NetworkState]
$cenumFromThenTo :: NetworkState -> NetworkState -> NetworkState -> [NetworkState]
enumFromThenTo :: NetworkState -> NetworkState -> NetworkState -> [NetworkState]
Enum)
-----------------------------------------------------------------------------
-- | Possible values of [readyState](https://www.w3schools.com/tags/av_prop_readystate.asp) property.
data ReadyState
  = HAVE_NOTHING
  | HAVE_METADATA
  | HAVE_CURRENT_DATA
  | HAVE_FUTURE_DATA
  | HAVE_ENOUGH_DATA
  deriving (Int -> ReadyState -> ShowS
[ReadyState] -> ShowS
ReadyState -> String
(Int -> ReadyState -> ShowS)
-> (ReadyState -> String)
-> ([ReadyState] -> ShowS)
-> Show ReadyState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReadyState -> ShowS
showsPrec :: Int -> ReadyState -> ShowS
$cshow :: ReadyState -> String
show :: ReadyState -> String
$cshowList :: [ReadyState] -> ShowS
showList :: [ReadyState] -> ShowS
Show, ReadyState -> ReadyState -> Bool
(ReadyState -> ReadyState -> Bool)
-> (ReadyState -> ReadyState -> Bool) -> Eq ReadyState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadyState -> ReadyState -> Bool
== :: ReadyState -> ReadyState -> Bool
$c/= :: ReadyState -> ReadyState -> Bool
/= :: ReadyState -> ReadyState -> Bool
Eq, Int -> ReadyState
ReadyState -> Int
ReadyState -> [ReadyState]
ReadyState -> ReadyState
ReadyState -> ReadyState -> [ReadyState]
ReadyState -> ReadyState -> ReadyState -> [ReadyState]
(ReadyState -> ReadyState)
-> (ReadyState -> ReadyState)
-> (Int -> ReadyState)
-> (ReadyState -> Int)
-> (ReadyState -> [ReadyState])
-> (ReadyState -> ReadyState -> [ReadyState])
-> (ReadyState -> ReadyState -> [ReadyState])
-> (ReadyState -> ReadyState -> ReadyState -> [ReadyState])
-> Enum ReadyState
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: ReadyState -> ReadyState
succ :: ReadyState -> ReadyState
$cpred :: ReadyState -> ReadyState
pred :: ReadyState -> ReadyState
$ctoEnum :: Int -> ReadyState
toEnum :: Int -> ReadyState
$cfromEnum :: ReadyState -> Int
fromEnum :: ReadyState -> Int
$cenumFrom :: ReadyState -> [ReadyState]
enumFrom :: ReadyState -> [ReadyState]
$cenumFromThen :: ReadyState -> ReadyState -> [ReadyState]
enumFromThen :: ReadyState -> ReadyState -> [ReadyState]
$cenumFromTo :: ReadyState -> ReadyState -> [ReadyState]
enumFromTo :: ReadyState -> ReadyState -> [ReadyState]
$cenumFromThenTo :: ReadyState -> ReadyState -> ReadyState -> [ReadyState]
enumFromThenTo :: ReadyState -> ReadyState -> ReadyState -> [ReadyState]
Enum)
-----------------------------------------------------------------------------
-- | The [load](https://www.w3schools.com/tags/av_met_load.asp) method
-- re-loads the audio/video element.
load :: Media -> IO ()
load :: Media -> IO ()
load (Media JSVal
m) = IO JSVal -> IO ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (IO JSVal -> IO ()) -> IO JSVal -> IO ()
forall a b. (a -> b) -> a -> b
$ JSVal
m JSVal -> MisoString -> () -> IO JSVal
forall object args.
(ToObject object, ToArgs args) =>
object -> MisoString -> args -> IO JSVal
# (MisoString
"load" :: MisoString) (() -> IO JSVal) -> () -> IO JSVal
forall a b. (a -> b) -> a -> b
$ ()
-----------------------------------------------------------------------------
-- | The [play](https://www.w3schools.com/tags/av_met_play.asp) method starts
-- playing the current audio or video.
play :: Media -> IO ()
play :: Media -> IO ()
play (Media JSVal
m) = IO JSVal -> IO ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (IO JSVal -> IO ()) -> IO JSVal -> IO ()
forall a b. (a -> b) -> a -> b
$ JSVal
m JSVal -> MisoString -> () -> IO JSVal
forall object args.
(ToObject object, ToArgs args) =>
object -> MisoString -> args -> IO JSVal
# (MisoString
"play" :: MisoString) (() -> IO JSVal) -> () -> IO JSVal
forall a b. (a -> b) -> a -> b
$ ()
-----------------------------------------------------------------------------
-- | The [pause](https://www.w3schools.com/tags/av_met_pause.asp) method pauses
-- the currently playing audio or video.
pause :: Media -> IO ()
pause :: Media -> IO ()
pause (Media JSVal
a) = IO JSVal -> IO ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (IO JSVal -> IO ()) -> IO JSVal -> IO ()
forall a b. (a -> b) -> a -> b
$ JSVal
a JSVal -> MisoString -> () -> IO JSVal
forall object args.
(ToObject object, ToArgs args) =>
object -> MisoString -> args -> IO JSVal
# (MisoString
"pause" :: MisoString) (() -> IO JSVal) -> () -> IO JSVal
forall a b. (a -> b) -> a -> b
$ ()
-----------------------------------------------------------------------------
-- | The [canPlayType](https://www.w3schools.com/tags/av_met_canplaytype.asp)
-- method checks if the browser can play the specified audio/video type.
canPlayType :: Media -> IO MisoString
canPlayType :: Media -> IO MisoString
canPlayType (Media JSVal
m) = do
  JSVal -> IO MisoString
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO MisoString) -> IO JSVal -> IO MisoString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< do
    JSVal
m JSVal -> MisoString -> () -> IO JSVal
forall object args.
(ToObject object, ToArgs args) =>
object -> MisoString -> args -> IO JSVal
# (MisoString
"canPlayType" :: MisoString) (() -> IO JSVal) -> () -> IO JSVal
forall a b. (a -> b) -> a -> b
$ ()
-----------------------------------------------------------------------------
-- | The [autoplay](https://www.w3schools.com/tags/av_prop_autoplay.asp) property
-- returns whether the audio/video should start playing as soon as it is loaded.
--
-- To set the property, use 'Miso.Html.Property.autoplay_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
autoplay :: Media -> IO Bool
autoplay :: Media -> IO Bool
autoplay (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"autoplay" :: MisoString)
-----------------------------------------------------------------------------
-- | The [controls](https://www.w3schools.com/tags/av_prop_controls.asp)
-- property returns whether the browser should display standard audio/video controls.
--
-- To set the property, use 'Miso.Html.Property.controls_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
controls :: Media -> IO Bool
controls :: Media -> IO Bool
controls (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"controls" :: MisoString)
-----------------------------------------------------------------------------
-- | The [currentSrc](https://www.w3schools.com/tags/av_prop_currentsrc.asp)
-- property returns the URL of the current audio/video.
currentSrc :: Media -> IO MisoString
currentSrc :: Media -> IO MisoString
currentSrc (Media JSVal
m) = JSVal -> IO MisoString
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO MisoString) -> IO JSVal -> IO MisoString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"currentSrc" :: MisoString)
-----------------------------------------------------------------------------
-- | The [currentTime](https://www.w3schools.com/tags/av_prop_currenttime.asp)
-- property returns the current position (in seconds) of the audio/video playback.
--
-- To set the current time, use 'Miso.Html.Property.currentTime_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
currentTime :: Media -> IO Double
currentTime :: Media -> IO Double
currentTime (Media JSVal
m) = JSVal -> IO Double
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Double) -> IO JSVal -> IO Double
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"currentTime" :: MisoString)
-----------------------------------------------------------------------------
-- | The [defaultMuted](https://www.w3schools.com/tags/av_prop_defaultmuted.asp)
-- property returns whether the audio/video should be muted by default.
--
-- To set the property, use 'Miso.Html.Property.defaultMuted_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
defaultMuted :: Media -> IO Bool
defaultMuted :: Media -> IO Bool
defaultMuted (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"defaultMuted" :: MisoString)
-----------------------------------------------------------------------------
-- | The [defaultPlaybackRate](https://www.w3schools.com/tags/av_prop_defaultplaybackrate.asp)
-- property returns the default playback speed of the audio/video.
--
-- To set the property, use 'Miso.Html.Property.defaultPlaybackRate_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
defaultPlaybackRate :: Media -> IO Double
defaultPlaybackRate :: Media -> IO Double
defaultPlaybackRate (Media JSVal
m) = JSVal -> IO Double
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Double) -> IO JSVal -> IO Double
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"defaultPlaybackRate" :: MisoString)
-----------------------------------------------------------------------------
-- | The [duration](https://www.w3schools.com/tags/av_prop_duration.asp) property
-- returns the length of the current audio/video, in seconds.
duration :: Media -> IO Double
duration :: Media -> IO Double
duration (Media JSVal
m) = JSVal -> IO Double
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Double) -> IO JSVal -> IO Double
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"duration" :: MisoString)
-----------------------------------------------------------------------------
-- | The [ended](https://www.w3schools.com/tags/av_prop_ended.asp) property
-- returns whether the playback of the audio/video has ended.
ended :: Media -> IO Bool
ended :: Media -> IO Bool
ended (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"ended" :: MisoString)
-----------------------------------------------------------------------------
-- | The [loop](https://www.w3schools.com/tags/av_prop_loop.asp) property
-- returns whether the audio/video should start playing over again when it is finished.
--
-- To set the property, use 'Miso.Html.Property.loop_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
loop :: Media -> IO Bool
loop :: Media -> IO Bool
loop (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"loop" :: MisoString)
-----------------------------------------------------------------------------
-- | The [mediaGroup](https://www.w3schools.com/tags/av_prop_mediagroup.asp) property
-- returns the name of the media group the audio/video is a part of.
--
-- To set the property, use 'Miso.Html.Property.mediaGroup_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
mediaGroup :: Media -> IO MisoString
mediaGroup :: Media -> IO MisoString
mediaGroup (Media JSVal
m) = JSVal -> IO MisoString
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO MisoString) -> IO JSVal -> IO MisoString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"mediaGroup" :: MisoString)
-----------------------------------------------------------------------------
-- | The [muted](https://www.w3schools.com/tags/av_prop_muted.asp) property
-- returns whether the audio/video should be muted (sound turned off).
--
-- To set the property, use 'Miso.Html.Property.muted_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
muted :: Media -> IO Bool
muted :: Media -> IO Bool
muted (Media JSVal
m) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"muted" :: MisoString)
-----------------------------------------------------------------------------
-- | The [networkState](https://www.w3schools.com/tags/av_prop_networkstate.asp)
-- property returns the current network state (activity) of the audio/video.
networkState :: Media -> IO NetworkState
networkState :: Media -> IO NetworkState
networkState (Media JSVal
m) = do
  number <- JSVal -> IO Int
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Int) -> IO JSVal -> IO Int
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"networkState" :: MisoString)
  pure (toEnum number)
-----------------------------------------------------------------------------
-- | The [paused](https://www.w3schools.com/tags/av_prop_paused.asp) property
-- returns whether the audio/video is paused.
paused :: Media -> IO Bool
paused :: Media -> IO Bool
paused (Media JSVal
a) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"paused" :: MisoString)
-----------------------------------------------------------------------------
-- | The [playbackRate](https://www.w3schools.com/tags/av_prop_playbackRate.asp)
-- property returns the current playback speed of the audio/video.
--
-- To set the playback rate, use 'Miso.Html.Property.playbackRate_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
playbackRate :: Media -> IO Double
playbackRate :: Media -> IO Double
playbackRate (Media JSVal
a) = JSVal -> IO Double
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Double) -> IO JSVal -> IO Double
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"playbackRate" :: MisoString)
-----------------------------------------------------------------------------
-- | The [poster](https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement/poster) property
-- of the HTMLVideoElement interface is a string that reflects the URL for an image
-- to be shown while no video data is available.
--
-- Specific to videos.
poster :: Media -> IO MisoString
poster :: Media -> IO MisoString
poster (Media JSVal
a) = JSVal -> IO MisoString
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO MisoString) -> IO JSVal -> IO MisoString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"poster" :: MisoString)
-----------------------------------------------------------------------------
-- | The [preload](https://www.w3schools.com/tags/av_prop_preload.asp) property
-- returns whether the audio/video should start loading as soon as the page loads.
--
-- To set the preload property, use 'Miso.Html.Property.preload_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
preload :: Media -> IO MisoString
preload :: Media -> IO MisoString
preload (Media JSVal
a) = JSVal -> IO MisoString
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO MisoString) -> IO JSVal -> IO MisoString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"preload" :: MisoString)
-----------------------------------------------------------------------------
-- | The [readyState](https://www.w3schools.com/tags/av_prop_readyState.asp) property
-- returns the current ready state of the audio/video.
readyState :: Media -> IO ReadyState
readyState :: Media -> IO ReadyState
readyState (Media JSVal
a) = do
  number <- JSVal -> IO Int
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Int) -> IO JSVal -> IO Int
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"readyState" :: MisoString)
  pure (toEnum number)
-----------------------------------------------------------------------------
-- | The [seeking](https://www.w3schools.com/tags/av_prop_seeking.asp) property
-- returns whether the user is currently seeking in the audio/video.
seeking :: Media -> IO Bool
seeking :: Media -> IO Bool
seeking (Media JSVal
a) = JSVal -> IO Bool
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Bool) -> IO JSVal -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
a JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"seeking" :: MisoString)
-----------------------------------------------------------------------------
-- | The HTMLVideoElement interface's read-only
-- [videoHeight](https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement/videoHeight)
-- property indicates the intrinsic height of the video, expressed in CSS pixels.
videoHeight :: Media -> IO Int
videoHeight :: Media -> IO Int
videoHeight (Media JSVal
m) = JSVal -> IO Int
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Int) -> IO JSVal -> IO Int
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"videoHeight" :: MisoString)
-----------------------------------------------------------------------------
-- | The HTMLVideoElement interface's read-only
-- [videoWidth](https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement/videoWidth)
-- property indicates the intrinsic width of the video, expressed in CSS pixels
videoWidth :: Media -> IO Int
videoWidth :: Media -> IO Int
videoWidth (Media JSVal
m) = JSVal -> IO Int
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Int) -> IO JSVal -> IO Int
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"videoWidth" :: MisoString)
-----------------------------------------------------------------------------
-- | The [volume](https://www.w3schools.com/tags/av_prop_volume.asp) property
-- returns the current volume of the audio/video.
--
-- To set the volume, use 'Miso.Html.Property.volume_'
-- on the 'Miso.Html.Element.audio_' or 'Miso.Html.Element.video_' element.
volume :: Media -> IO Double
volume :: Media -> IO Double
volume (Media JSVal
m) = JSVal -> IO Double
forall a. FromJSVal a => JSVal -> IO a
fromJSValUnchecked (JSVal -> IO Double) -> IO JSVal -> IO Double
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< JSVal
m JSVal -> MisoString -> IO JSVal
forall o. ToObject o => o -> MisoString -> IO JSVal
! (MisoString
"volume" :: MisoString)
-----------------------------------------------------------------------------
-- | A media Stream
type Stream = JSVal
-----------------------------------------------------------------------------
-- | Sets the `srcObject` on audio or video elements.
srcObject :: Stream -> Media -> IO ()
srcObject :: JSVal -> Media -> IO ()
srcObject JSVal
stream (Media JSVal
media) = JSVal -> MisoString -> JSVal -> IO ()
forall o v.
(ToObject o, ToJSVal v) =>
o -> MisoString -> v -> IO ()
setField JSVal
media MisoString
"srcObject" JSVal
stream
-----------------------------------------------------------------------------