Work on collapsing close item list

src/Dodge/Inventory/SelectionList.hs

@@ -1,5 +1,6 @@
 module Dodge.Inventory.SelectionList 
     ( invSelectionItem
+    , invSelectionItem'
     , closeObjectToSelectionItem
     )
     where
@@ -24,6 +25,22 @@ import LensHelp
 --    Just CombineInventory{} -> Nothing
 --    _ -> Just $ yourInvSel w
 --
+invSelectionItem' :: Creature ->  Int -> Item -> SelectionItem ()
+invSelectionItem' cr i it = SelectionItem
+    { _siPictures = pics
+    , _siHeight = length pics
+    , _siIsSelectable = True
+    , _siWidth = 15
+    , _siColor = col
+    , _siOffX = 0
+    , _siPayload = ()
+    }
+  where
+    col = _itInvColor it
+    pics = take (itSlotsTaken it) . (++ replicate 10 "*") $ case _itCurseStatus it of
+        UndroppableIdentified -> itemDisplay it
+        _ | cr ^? crInvSel . isel . ispItem == Just i -> selectedItemDisplay cr it
+        _ -> itemDisplay it
 invSelectionItem :: Creature -> (Int,Item) -> SelectionItem ()
 invSelectionItem cr (i,it) = SelectionItem
     { _siPictures = pics