herp.elm

type Msg
    = ApiAvailability Cast.ApiAvailability
    | CastContext Cast.JsContext
    | RequestSession
    | UrlChange Navigation.Location
    | Navigate String
    | NavbarMsg Navbar.State
    | LoadMedia
    | ProposedMediaInput (Cast.Media -> String -> Cast.Media) String
    | ClickedPlayerControl Cast.PlayerAction
    | ProgressClicked Float
    | RunCmd (Cmd Msg)
    | Update (Model -> ( Model, Cmd Msg ))
    | MouseoverProgress MouseoverEvent
    | MediaLoaded (Maybe String)
    | SetPage Page


type alias Model =
    { api : Cast.ApiAvailability
    , setOptions : Bool
    , context : Maybe Cast.Context
    , navbarState : Navbar.State
    , proposedMedia : Cast.Media
    , progressHover : Maybe MouseoverEvent
    , loadingMedia : Bool
    , page : Page
    }