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
@@ -1,5 +1,6 @@
 module Dodge.ListDisplayParams (
    invDP,
+--    secDP,
    invCursorParams,
    secondColumnLDP,
    subInvX,
@@ -41,7 +42,8 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
    _ -> [North, South, West]

 secondColumnLDP :: ListDisplayParams
-secondColumnLDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 subInvX (-20)
+--secondColumnLDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 subInvX (-20)
+secondColumnLDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 subInvX 0

 subInvX :: Float
 subInvX = 10 * fromIntegral topInvW + 170