Implement telescoping inventory selection

src/Dodge/Data/SelectionList.hs

@@ -45,11 +45,14 @@ data SSRestriction = NoSSRestriction
 data SelectionSection a = SelectionSection
     { _ssItems :: [SelectionItem a]
     , _ssSelPos :: Maybe Int
+    , _ssSelSize :: Maybe Int
+    , _ssSelColor :: Maybe Color
     , _ssMinSize :: Int
     , _ssPriority :: Int
     , _ssOffset :: Int
     , _ssRestriction :: SSRestriction
     , _ssShownItems :: [Picture]
+    , _ssIndent :: Int
     }