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
@@ -20,11 +20,6 @@ import LensHelp
 --    & slSelPos .~ inventoryCursorPos w
 --
 --
--inventoryCursorPos :: World -> Maybe Int
--inventoryCursorPos w = case w ^? hud . hudElement . subInventory of
--    Just CombineInventory{} -> Nothing
--    _ -> Just $ yourInvSel w
--
 invSelectionItem' :: Creature ->  Int -> Item -> SelectionItem ()
 invSelectionItem' cr i it = SelectionItem
    { _siPictures = pics