From 1e19ea1564f5c96bbace530bfae38dfa37f0d508 Mon Sep 17 00:00:00 2001
From: Brian Hicks <brian@brianthicks.com>
Date: Tue, 22 Feb 2022 05:46:49 -0600
Subject: [PATCH] allow drawing with the mouse

---
 src/Main.elm | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/src/Main.elm b/src/Main.elm
index 45948c8..272a75a 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -33,6 +33,7 @@ type alias Model =
     , newMazeShape : Route.MazeShape
     , newMazeDifficulty : Int
     , drawing : Dict Int ( ( Float, Float ), List ( Float, Float ) )
+    , mouseDraw : Bool
     }
 
 
@@ -46,6 +47,9 @@ type Msg
     | Draw (List Touch)
     | ResetLines
     | BackToGenerator
+    | StartMouseDraw
+    | MouseDraw ( Float, Float )
+    | StopMouseDraw
 
 
 init : Flags -> Url -> Navigation.Key -> ( Model, Cmd Msg )
@@ -56,6 +60,7 @@ init () url key =
       , newMazeShape = Route.Hexes
       , newMazeDifficulty = 10
       , drawing = Dict.empty
+      , mouseDraw = False
       }
     , Time.now
         |> Task.map Time.posixToMillis
@@ -137,6 +142,38 @@ update msg model =
             , Cmd.none
             )
 
+        StartMouseDraw ->
+            ( { model | mouseDraw = True }
+            , Cmd.none
+            )
+
+        MouseDraw coord ->
+            ( if model.mouseDraw then
+                { model
+                    | drawing =
+                        Dict.update
+                            0
+                            (\v ->
+                                case v of
+                                    Just ( first, rest ) ->
+                                        Just ( coord, first :: rest )
+
+                                    Nothing ->
+                                        Just ( coord, [] )
+                            )
+                            model.drawing
+                }
+
+              else
+                model
+            , Cmd.none
+            )
+
+        StopMouseDraw ->
+            ( { model | mouseDraw = False }
+            , Cmd.none
+            )
+
         ResetLines ->
             ( { model | drawing = Dict.empty }
             , Cmd.none
@@ -317,6 +354,16 @@ viewCanvas model =
                     |> Decode.map .touches
                     |> Decode.map (\touches -> ( Draw touches, True ))
                 )
+            , Events.preventDefaultOn "mousedown"
+                (Decode.succeed ( StartMouseDraw, True ))
+            , Events.preventDefaultOn "mouseup"
+                (Decode.succeed ( StopMouseDraw, True ))
+            , Events.preventDefaultOn "mousemove"
+                (Decode.map2 Tuple.pair
+                    (Decode.field "clientX" Decode.float)
+                    (Decode.field "clientY" Decode.float)
+                    |> Decode.map (\coords -> ( MouseDraw coords, True ))
+                )
             ]