Allow for scrolling in combine regex

2023-02-13 23:15:34 +00:00
parent 8b39a99194
commit 9dd4c53316
10 changed files with 46 additions and 37 deletions
@@ -38,12 +38,10 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
        | invKeyDown -> stopSoundFrom (CrReloadSound 0) $ changeAugInvSel yi w
        | rbDown -> w & changeTweakParam mi yi
        | otherwise -> w & moveTweakSel yi
-    DisplayInventory {_subInventory = CombineInventory sm} 
-        | regexnotinput $ _smRegex sm -> w & moveCombineSel yi
+    DisplayInventory {_subInventory = CombineInventory {}} -> w & moveCombineSel yi
    DisplayInventory {_subInventory = DisplayTerminal tmid} -> terminalWheelEvent yi tmid w
    _ -> w
  where
-    regexnotinput smr = not $ smr ^? smrInput == Just True
    y = fromIntegral yi
    numLocs = (fst . IM.findMax $ (w ^. cWorld . lWorld . seenLocations)) + 1
    rbDown = ButtonRight `M.member` _mouseButtons (_input w)