Partial inventory display update

src/Dodge/Data/SelectionList.hs

@@ -3,6 +3,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.SelectionList where
+import Picture.Data
 import Color
 import Control.Lens
 import Dodge.Data.CardinalPoint
@@ -35,14 +36,20 @@ data SelectionSections a = SelectionSections
     , _sssMaxSize :: Int
     }
 
+data SSRestriction = NoSSRestriction
+    | SSRestriction
+        { _ssrSize :: Int
+        , _ssrOffset :: Int
+        }
+
 data SelectionSection a = SelectionSection
     { _ssItems :: [SelectionItem a]
     , _ssSelPos :: Maybe Int
-    , _ssRegex  :: String
-    , _ssRegexInput :: Bool
     , _ssMinSize :: Int
+    , _ssPriority :: Int
     , _ssOffset :: Int
-    , _ssShownItems :: IntMap (SelectionItem a)
+    , _ssRestriction :: SSRestriction
+    , _ssShownItems :: [Picture]
     }
     
 
@@ -85,5 +92,8 @@ makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
 makeLenses ''SelectionIntMap
+makeLenses ''SelectionSection
+makeLenses ''SelectionSections
+makeLenses ''SSRestriction
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList