From 9f385f33983c17609f305333c65397ec7615ee0f Mon Sep 17 00:00:00 2001
From: Thomas Forgione <thomas@forgione.fr>
Date: Wed, 9 Jun 2021 11:16:54 +0200
Subject: [PATCH] A little bit working

---
 src/Main.elm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Main.elm b/src/Main.elm
index f203770..e5ec4a0 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -99,10 +99,9 @@ video model =
 
         loaded =
             List.filter (\( start, end ) -> start < model.position) model.loaded
-                |> List.map (\( start, end ) -> ( max model.position start, end ))
 
         loadedToShow =
-            every model.duration loaded |> Debug.log "loaded"
+            every model.duration loaded
 
         showRange : ( Float, Float, Bool ) -> Element msg
         showRange ( start, end, isLoaded ) =
@@ -234,7 +233,7 @@ decodeVolumeChange =
 
 decodeSeek : Decode.Decoder Msg
 decodeSeek =
-    Decode.map2 (\x y -> Seek (toFloat x / toFloat y))
+    Decode.map2 (\x y -> Seek (toFloat x / 980))
         (Decode.field "layerX" Decode.int)
         (Dom.target <| Decode.field "offsetWidth" Decode.int)