Move hotkeys out of Creature into LWorld

src/Dodge/Inventory/SelectionList.hs

@@ -19,8 +19,8 @@ import NewInt
 import Padding
 import Picture.Base
 
-invSelectionItem :: Int -> Creature -> Int -> ComposedItem -> SelectionItem ()
-invSelectionItem indent cr i ci =
+invSelectionItem :: Int -> LWorld -> Int -> ComposedItem -> SelectionItem ()
+invSelectionItem indent lw i ci =
     SelectionItem
         { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
         , _siHeight = itInvHeight $ ci ^. _1
@@ -31,7 +31,8 @@ invSelectionItem indent cr i ci =
         , _siPayload = ()
         }
   where
-    anyhotkey = maybe [] ((' ' :) . hotkeyToString) (cr ^? crInvHotkeys . ix i)
+    cr = lw ^?! creatures . ix 0
+    anyhotkey = maybe [] ((' ' :) . hotkeyToString) (lw ^? imHotkeys . ix i)
     anyequippos = maybe [] (rightPad 8 ' ' . (' ' :) . eqPosText) 
         (ci ^? _1 . itLocation . ilEquipPosition . _Just)
     col = itemInvColor ci