Allow for stacking of items and combining sensibly

src/Dodge/Render/HUD.hs

@@ -9,6 +9,7 @@ import Dodge.Base
 import Dodge.Base.Window
 --import Dodge.Combine.Combinations
 import Dodge.Inventory
+import Dodge.Inventory.ItemSpace
 import Dodge.Render.Connectors
 import Dodge.Render.List
 import Picture
@@ -170,7 +171,7 @@ closeObjectToTextPictures nfreeslots e = case e of
   where
     textindent = text . ("  "++)
     applycolor it
-        | nfreeslots >= _itInvSize it = color $ _itInvColor it
+        | nfreeslots >= itSlotsTaken it = color $ _itInvColor it
         | otherwise = color invDimColor
 
 drawLocations :: Configuration -> World -> Picture