Commit before attempting to split ItemUse into prism + lenses

src/Dodge/Creature/Impulse/UseItem.hs

@@ -4,9 +4,9 @@ module Dodge.Creature.Impulse.UseItem (
     itemEffect,
 ) where
 
+import Control.Lens
 import Control.Monad
 import Data.Foldable
-import Control.Lens
 import qualified Data.Map.Strict as M
 import Data.Maybe
 import Dodge.Cuse
@@ -25,7 +25,8 @@ useItem cr' w = fromMaybe (f w) $ do
     cr <- w ^? cWorld . lWorld . creatures . ix (_crID cr')
     itRef <- cr ^? crManipulation . manObject . inInventory . ispItem
     it <- cr ^? crInv . ix itRef
-    return $ itemEffect cr it w
+    return $
+        itemEffect cr it w
             & worldEventFlags . at InventoryChange ?~ ()
   where
     f = cWorld . lWorld . creatures . ix (_crID cr') . crHammerPosition .~ HammerDown
@@ -137,5 +138,4 @@ useLeftItem cid w = fromMaybe w $ do
                 . useL f itm cr
                 $ w
 
-
 -- TODO determine itmShouldBeUsed with reference to config options

src/Dodge/Creature/YourControl.hs

@@ -26,7 +26,7 @@ yourControl cr w
         w
             & cWorld . lWorld . creatures . ix (_crID cr)
                 %~ (wasdWithAiming w (_mvSpeed $ _crMvType cr) . mouseActionsCr (_mouseButtons (_input w)))
-            & pressedMBEffectsNoInventory pkeys
+            & pressedMBEffectsTopInventory pkeys
   where
     pkeys = w ^. input . mouseButtons
     intopinv = fromMaybe False $ do
@@ -115,8 +115,8 @@ mouseActionsCr pkeys cr
         theaction <- cr ^? crManipulation . manObject . inInventory . iselAction
         return $ theaction == NoInvSelAction
 
-pressedMBEffectsNoInventory :: M.Map SDL.MouseButton Bool -> World -> World
+pressedMBEffectsTopInventory :: M.Map SDL.MouseButton Bool -> World -> World
-pressedMBEffectsNoInventory pkeys w
+pressedMBEffectsTopInventory pkeys w
     | isDown SDL.ButtonLeft && isDown SDL.ButtonRight && inTopInv = useItem (you w) w
     | isDown SDL.ButtonLeft && inTopInv = useLeftItem 0 w
     | isDown SDL.ButtonMiddle =

src/Dodge/Update/Input/ScreenLayer.hs

@@ -79,7 +79,7 @@ mouseOverSelectionList ::
 mouseOverSelectionList ldps screen u
     | x > xl && x < xr
         && ylower == yupper
-        && (mmoving || (_scDisplayTime screen == 0))
+        && (mmoving || (_scDisplayTime screen <= 1)) -- slight hack
         && ylower >= 0
         && ylower < ymax
         && isselectable =