Work on mouse selection in menus

src/Dodge/Render/Picture.hs

@@ -14,16 +14,11 @@ import Picture
 
 fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures u =
-    drawConcurrentMessage u <> case u ^. uvScreenLayers of
-        [] ->
-            pictures
-                [ hudDrawings u
-                , customMouseCursor cfig w
-                ]
+    drawConcurrentMessage u <> customMouseCursor cfig (u ^. uvWorld) <> case u ^. uvScreenLayers of
+        [] -> hudDrawings u
         (lay : _) -> (setDepth (-1) $ menuScreen' u lay) 
             <> (setDepth (-1) . winScale cfig $ menuScreen u lay)
   where
-    w = _uvWorld u
     cfig = _uvConfig u
 
 drawConcurrentMessage :: Universe -> Picture
@@ -38,18 +33,6 @@ drawConcurrentMessage u =
     f (RunningSideEffect ce) = ce ++ " IN PROGRESS"
     f x = _ceString x ++ " QUEUED"
 
---    = case u ^? uvSideEffects . _head of
---    --Just (BlockingConcEffect str) -> fillWidthText cfig str
---    Just (RunningSideEffect str) ->
---        stackPicturesAt
---            (halfWidth cfig)
---            (_windowY cfig - 50)
---            cfig
---            [centerText str]
---    _ -> mempty
---  where
---    cfig = _uvConfig u
-
 customMouseCursor :: Configuration -> World -> Picture
 customMouseCursor cfig w =
     winScale cfig