Improve x position check over selection items

2024-11-25 10:03:19 +00:00
parent 9e0f0536e2
commit 2299ec374c
4 changed files with 85 additions and 138 deletions
@@ -303,11 +303,3 @@ scrollAugNextInSection w =
    doscroll he = fromMaybe he $ do
        sss <- he ^? diSections
        return $ he & diSelection %~ nextInSectionSS sss
-
--selectedCloseItem :: World -> Maybe FloorItem
--selectedCloseItem w = do
--    i <-
--        you w ^? crManipulation . manObject . ispCloseItem
--            <|> fmap fst (IM.lookupMin =<< w ^? hud . hudElement . diSections . ix 3 . ssItems)
--    flitid <- w ^? hud . closeItems . ix i . unNInt
--    w ^? cWorld . lWorld . floorItems . unNIntMap . ix flitid