Handle menu selection with mouse context, remove wheel scroll control

src/Dodge/Render/MenuScreen.hs

@@ -3,16 +3,19 @@ module Dodge.Render.MenuScreen (
     drawMenuScreen,
 ) where
 
+import Dodge.ScreenPos
+import Dodge.Data.CardinalPoint
+import Control.Lens
+import Dodge.Render.List
 import Dodge.Base.Window
 import Dodge.Data.SelectionList
 import Dodge.Data.Universe
-import Dodge.Render.List
 import Picture
 
-drawMenuScreen :: Configuration -> ScreenLayer -> Picture
-drawMenuScreen cfig screen = case screen of
-    OptionScreen{_scTitle = titf, _scSelectionList = selpos, _scListDisplayParams = ldps} ->
-        drawOptions ldps cfig titf selpos
+drawMenuScreen :: Configuration -> Maybe Int -> ScreenLayer -> Picture
+drawMenuScreen cfig spos screen = case screen of
+    OptionScreen{_scTitle = titf, _scSelectionList = slist, _scListDisplayParams = ldps} ->
+        drawOptions ldps cfig titf spos slist
     InputScreen inputstr help -> drawInputMenu cfig ('>' : inputstr) help
 
 drawInputMenu ::
@@ -34,13 +37,19 @@ drawOptions ::
     Configuration ->
     -- | Title
     String ->
-    -- | Select position
+    Maybe Int ->
     SelectionList a ->
     Picture
-drawOptions ldps cfig title sl =
+drawOptions ldps cfig title msel sl =
     darkenBackground cfig
         <> drawTitle cfig title
         <> drawSelectionList ldps cfig sl
+        <> translateScreenPos cfig (ldps ^. ldpPos) (drawCursorAt
+                msel
+                (sl ^. slItems)
+                ldps
+                (BoundaryCursor [North, South])
+                )
 
 darkenBackground :: Configuration -> Picture
 darkenBackground = color (withAlpha 0.5 black) . polygon . reverse . screenBox