Allow for inventory item bolding

2025-12-09 22:46:57 +00:00
parent bf8c538491
commit 851b26262a
18 changed files with 274 additions and 225 deletions
@@ -38,16 +38,20 @@ type IMSS a = IntMap (SelSection a)

 data SelectionWidth = FixedSelectionWidth Int | UseItemWidth

-data SelectionItem a
-    = SelItem
-        { _siPictures :: [String]
-        , _siHeight :: Int
-        , _siWidth :: Int
-        , _siIsSelectable :: Bool
-        , _siColor :: Color
-        , _siOffX :: Int
-        , _siPayload :: Maybe a
-        }
+data SelectionItem a = SelItem
+    { _siPictures :: [String]
+    , _siHeight :: Int
+    , _siWidth :: Int
+    , _siIsSelectable :: Bool
+    , _siColor :: Color
+    , _siOffX :: Int
+    , _siPayload :: Maybe a
+    , _siDisplayMod :: SIDisplayMod
+    }
+
+data SIDisplayMod
+    = NoSIDisplayMod
+    | HighlightSI

 makeLenses ''ListDisplayParams
 makeLenses ''SelectionItem