Work on converting inventory list to tree

src/Dodge/DisplayInventory.hs

@@ -22,6 +22,7 @@ import Dodge.Inventory.CheckSlots
 import Dodge.Inventory.SelectionList
 import Dodge.ListDisplayParams
 import Dodge.SelectionList
+import Dodge.Item.Grammar
 import LensHelp
 import ListHelp
 import Picture.Base
@@ -114,6 +115,7 @@ updateDisplaySections w cfig sss =
     invitems' = IM.mapWithKey (invSelectionItem cr) inv
     cr = you w
     inv = _crInv (you w)
+    --inv = indentInv $ _crInv (you w)
     nfreeslots = crNumFreeSlots cr
     filtpair i itms filtdescription =
         ( (i, filtsis)