Refactor floor items, removing ids (not fully checked)

2025-08-23 22:10:33 +01:00
parent 32d7120177
commit fcccd63844
24 changed files with 94 additions and 109 deletions
@@ -202,9 +202,9 @@ hotkeyToChar = \case
    Hotkey9 -> '9'
    Hotkey0 -> '0'

-closeItemToSelectionItem :: World -> NewInt FloorInt -> Maybe (SelectionItem ())
-closeItemToSelectionItem w (NInt i) = do
-    e <- w ^? cWorld . lWorld . floorItems . unNIntMap . ix i
+closeItemToSelectionItem :: World -> Int -> Maybe (SelectionItem ())
+closeItemToSelectionItem w i = do
+    e <- w ^? cWorld . lWorld . floorItems . ix i
    let (pics, col) = closeItemToTextPictures e
    return
        SelItem