Commit before messing with main inventory display

src/Dodge/Data/HUD.hs

@@ -15,6 +15,7 @@ import Geometry.Data
 data HUDElement
     = DisplayInventory 
         { _subInventory :: SubInventory
+        , _diSections :: SelectionSections ()
         }
     | DisplayCarte
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/SelectionList.hs

@@ -23,13 +23,29 @@ data ListDisplayParams = ListDisplayParams
 data SelectionList a = SelectionList
     { _slItems :: [SelectionItem a]
     , _slSelPos :: Maybe Int
-    , _slLength :: Int
     , _slRegex  :: String
     , _slRegexInput :: Bool
     , _slRegexList :: [(SelectionItem a, Maybe Int)]
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data SelectionSections a = SelectionSections
+    { _sssSections :: IntMap (SelectionSection a)
+    , _sssSelPos :: Maybe Int
+    , _sssMaxSize :: Int
+    }
+
+data SelectionSection a = SelectionSection
+    { _ssItems :: [SelectionItem a]
+    , _ssSelPos :: Maybe Int
+    , _ssRegex  :: String
+    , _ssRegexInput :: Bool
+    , _ssMinSize :: Int
+    , _ssOffset :: Int
+    , _ssShownItems :: IntMap (SelectionItem a)
+    }
+    
+
 data SelectionIntMap a = SelectionIntMap
     { _smItems :: [SelectionItem a]
     , _smSelPos :: Maybe Int