From 6e092a83ae81af6efa2d967d0893c30ca09fa421 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 15 Nov 2024 22:08:12 +0000
Subject: [PATCH] eat mouse wheel events destimed for map zoom

stop propagation, prevent default
---
 frontend/src/Main.elm | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
index b12eee6..346000f 100644
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@@ -404,12 +404,19 @@ canvas centre zoom width height track =
 portalWidth = 600
 portalHeight = 600
 
-wheelDecoder : D.Decoder Msg
-wheelDecoder =
-    D.map3 MapZoomWheel
-        (D.field "deltaX" D.float)
-        (D.field "deltaY" D.float)
-        (D.field "deltaMode" D.int)
+withSwallowing m =
+    { message = m
+    , stopPropagation = True
+    , preventDefault = True
+    }
+
+mapWheelDecoder =
+    D.map withSwallowing
+        (D.map3 MapZoomWheel
+             (D.field "deltaX" D.float)
+             (D.field "deltaY" D.float)
+             (D.field "deltaMode" D.int))
+
 
 viewDiv : Model -> Html Msg
 viewDiv model =
@@ -419,7 +426,7 @@ viewDiv model =
            , style "column-gap" "15px"
            ]
         [ div [ style "display" "flex"
-              , on "wheel" wheelDecoder
+              , Html.Events.custom "wheel" mapWheelDecoder
               , style "flex-direction" "column"]
               [ div [ style "width" (px portalWidth)
                     , style "height" (px portalHeight)