Refactor floor items to use centralised items intmap

src/Dodge/Inventory/SelectionList.hs

@@ -204,7 +204,7 @@ hotkeyToChar = \case
 
 closeItemToSelectionItem :: World -> Int -> Maybe (SelectionItem ())
 closeItemToSelectionItem w i = do
-    e <- w ^? cWorld . lWorld . floorItems . ix i
+    e <- w ^? cWorld . lWorld . items . ix i
     let (pics, col) = closeItemToTextPictures e
     return
         SelItem
@@ -237,7 +237,5 @@ btText bt = case _btEvent bt of
     ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
     ButtonAccessTerminal {} -> "TERMINAL"
 
-closeItemToTextPictures :: FloorItem -> ([String], Color)
-closeItemToTextPictures flit = (basicItemDisplay it, itemInvColor $ baseCI it)
-  where
-    it = _flIt flit
+closeItemToTextPictures :: Item -> ([String], Color)
+closeItemToTextPictures it = (basicItemDisplay it, itemInvColor $ baseCI it)