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
@@ -39,8 +39,11 @@ invSelectionItem w indent loc =
        , _siColor = itemInvColor ci
        , _siOffX = indent
        , _siPayload = Nothing
+        , _siDisplayMod = dmod
        }
  where
+    dmod = maybe NoSIDisplayMod (const HighlightSI) 
+        $ w ^? cWorld . highlightItems . ix (a ^. itID . unNInt)
    ci = (a,b)
    (a,b,_) = loc ^. locDT . dtValue
    cr = w ^?! cWorld . lWorld . creatures . ix 0
@@ -218,6 +221,7 @@ closeItemToSelectionItem w i = do
            , _siColor = col
            , _siOffX = 0
            , _siPayload = Nothing
+            , _siDisplayMod = NoSIDisplayMod
            }

 closeButtonToSelectionItem :: World -> Int -> Maybe (SelectionItem ())
@@ -232,6 +236,7 @@ closeButtonToSelectionItem w i = do
            , _siColor = yellow
            , _siOffX = 0
            , _siPayload = Nothing
+            , _siDisplayMod = NoSIDisplayMod
            }

 btText :: Button -> String