From 2f1cc48b0bbb0d3c113ebbd8b3194ffe0655dc6a Mon Sep 17 00:00:00 2001
From: Thomas Forgione <thomas@forgione.fr>
Date: Wed, 9 Jun 2021 17:19:42 +0200
Subject: [PATCH] Clean, adds fullscreen button

---
 index.html   | 14 +++++++++
 src/Main.elm | 80 ++++++++++++++++++++++++++++++++++++++++++++++------
 2 files changed, 85 insertions(+), 9 deletions(-)

diff --git a/index.html b/index.html
index 1c9553d..e0d4b81 100644
--- a/index.html
+++ b/index.html
@@ -25,6 +25,12 @@
                 }
             });
 
+            Object.defineProperty(HTMLElement.prototype, "document", {
+                get: function() {
+                    return document;
+                }
+            });
+
             var app = Elm.Main.init({
                 node: document.getElementById('container'),
             });
@@ -81,6 +87,14 @@
                 const video = document.getElementById('video');
                 video.currentTime = arg;
             });
+
+            app.ports.requestFullscreen.subscribe(function() {
+                document.getElementById('full').requestFullscreen();
+            });
+
+            app.ports.exitFullscreen.subscribe(function() {
+                document.exitFullscreen();
+            });
         </script>
     </body>
 </html>
diff --git a/src/Main.elm b/src/Main.elm
index e0cb5b8..44f7fc9 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -34,6 +34,7 @@ type alias Model =
     , loaded : List ( Float, Float )
     , volume : Float
     , muted : Bool
+    , isFullscreen : Bool
     }
 
 
@@ -41,17 +42,30 @@ type Msg
     = Noop
     | PlayPause
     | Seek Float
+    | RequestFullscreen
+    | ExitFullscreen
     | NowPlaying
     | NowPaused
     | NowHasDuration Float
     | NowAtPosition Float
     | NowAtVolume Float Bool
     | NowLoaded (List ( Float, Float ))
+    | NowIsFullscreen Bool
 
 
 init : ( Model, Cmd Msg )
 init =
-    ( Model "video/manifest.m3u8" False 0.0 1.0 [] 1.0 False, initVideo () )
+    ( Model
+        "video/manifest.m3u8"
+        False
+        0.0
+        1.0
+        []
+        1.0
+        False
+        False
+    , initVideo ()
+    )
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
@@ -66,6 +80,12 @@ update msg model =
         Seek ratio ->
             ( model, seek (ratio * model.duration) )
 
+        RequestFullscreen ->
+            ( model, requestFullscreen () )
+
+        ExitFullscreen ->
+            ( model, exitFullscreen () )
+
         NowPlaying ->
             ( { model | playing = True }, Cmd.none )
 
@@ -84,6 +104,9 @@ update msg model =
         NowLoaded loaded ->
             ( { model | loaded = loaded }, Cmd.none )
 
+        NowIsFullscreen fullscreen ->
+            ( { model | isFullscreen = fullscreen }, Cmd.none )
+
 
 view : Model -> Browser.Document Msg
 view model =
@@ -178,13 +201,15 @@ video model =
                     , Element.el [ Element.width (Element.fillPortion remaining) ] Element.none
                     ]
                 , Element.row
-                    [ Element.spacing 10 ]
+                    [ Element.spacing 10, Element.width Element.fill ]
                     [ playPauseButton model.playing
                     , Element.el [ Element.moveDown 2.5 ] (Element.text (formatTime model.position ++ " / " ++ formatTime model.duration))
+                    , Element.row [ Element.spacing 10, Element.alignRight ]
+                        [ fullscreenButton model.isFullscreen ]
                     ]
                 ]
     in
-    Element.el [ Element.inFront bar, Element.width (Element.px 1000) ]
+    Element.el (Element.inFront bar :: Element.width (Element.px 1000) :: Element.htmlAttribute (Html.Attributes.id "full") :: playerEvents)
         (Element.html (Html.video videoEvents []))
 
 
@@ -204,6 +229,28 @@ playPauseButton playing =
         }
 
 
+fullscreenButton : Bool -> Element Msg
+fullscreenButton isFullscreen =
+    Input.button []
+        (if isFullscreen then
+            { label = Icons.minimize False
+            , onPress = Just ExitFullscreen
+            }
+
+         else
+            { label = Icons.maximize False
+            , onPress = Just RequestFullscreen
+            }
+        )
+
+
+playerEvents : List (Element.Attribute Msg)
+playerEvents =
+    List.map Element.htmlAttribute
+        [ Html.Events.on "fullscreenchange" decodeFullscreenChange
+        ]
+
+
 videoEvents : List (Html.Attribute Msg)
 videoEvents =
     [ Html.Attributes.id "video"
@@ -254,12 +301,11 @@ decodeSeek =
 
 decodeProgress : Decode.Decoder Msg
 decodeProgress =
-    Decode.map NowLoaded
-        (Dom.target <|
-            Decode.field "buffered" <|
-                Decode.field "asArray" <|
-                    decodeTimeRanges
-        )
+    decodeTimeRanges
+        |> Decode.field "asArray"
+        |> Decode.field "buffered"
+        |> Dom.target
+        |> Decode.map NowLoaded
 
 
 decodeTimeRanges : Decode.Decoder (List ( Float, Float ))
@@ -274,6 +320,16 @@ decodeTimeRange =
         (Decode.field "end" Decode.float)
 
 
+decodeFullscreenChange : Decode.Decoder Msg
+decodeFullscreenChange =
+    Decode.value
+        |> Decode.nullable
+        |> Decode.field "fullscreenElement"
+        |> Decode.field "document"
+        |> Dom.target
+        |> Decode.map (\x -> NowIsFullscreen (x /= Nothing))
+
+
 every : Float -> List ( Float, Float ) -> List ( Float, Float, Bool )
 every duration input =
     everyAux duration 0.0 [] input |> List.reverse |> List.filter (\( x, y, _ ) -> x /= y)
@@ -338,3 +394,9 @@ port playPause : () -> Cmd msg
 
 
 port seek : Float -> Cmd msg
+
+
+port requestFullscreen : () -> Cmd msg
+
+
+port exitFullscreen : () -> Cmd msg