A minimal web player written in Elm, just for fun. The goals was a minimal web-app that can be hosted on my Minio (s3) next to the video content.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

25 lines
556 B

module Model exposing (..)
import Flags exposing (Flags, withDownload)
import Video
type alias Model =
{ selected : Maybe String
, videos : List Video.Video
, extensions : List Video.FileFormat
, withDownload : Bool
, showExtraText : Bool
, extraText : Flags.ExtraText
}
initialState : Flags -> Model
initialState flags =
{ selected = Nothing
, videos = []
, extensions = flags.extentions
, withDownload = withDownload flags
, showExtraText = flags.showExtraText
, extraText = flags.extraText
}