fix for Chrome based browsers

dockercon2021
Efertone 2 years ago
parent b491b548a4
commit 4371afdbcc
Signed by: efertone
GPG Key ID: 58E2D23885002DC5
  1. 8
      src/Main.elm

@ -63,15 +63,13 @@ view model =
makeDropDown : List Video -> Html.Html Msg
makeDropDown videos =
Html.select []
Html.select [ Events.onInput VideoSelected ]
<| makeOption {title = "Select one please ;)", path = ""} :: (List.map makeOption videos)
makeOption : Video -> Html.Html Msg
makeOption video =
Html.option
[ Events.onClick (VideoSelected video.path)
, Html.Attributes.value video.path
] [ Html.text video.title ]
[ Html.Attributes.value video.path ] [ Html.text video.title ]
makePlayer : String -> Html.Html Msg
makePlayer path =
@ -94,4 +92,4 @@ videoDecoder : Json.Decode.Decoder Video
videoDecoder =
Json.Decode.map2 Video
(Json.Decode.field "Title" Json.Decode.string)
(Json.Decode.field "Path" Json.Decode.string)
(Json.Decode.field "Path" Json.Decode.string)

Loading…
Cancel
Save