Add border to terminal display

2025-12-23 15:43:56 +00:00
parent 183bb16fca
commit 238d6b8799
9 changed files with 133 additions and 125 deletions
@@ -26,13 +26,11 @@ defaultListDisplayParams =
                { _spScreenOff = V2 (-0.5) 0.5 -- top left
                , _spPixelOff = 0
                }
+        , _ldpBorder = Nothing
        }

 invDP :: ListDisplayParams
-invDP =
-    defaultListDisplayParams
--        & ldpPos . spPixelOff .~ V2 6 (-1)
-        & ldpPos . spPixelOff .~ V2 6 0
+invDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 6 0

 invCursorParams :: World -> CursorDisplay
 invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
@@ -43,7 +41,9 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of

 secondColumnLDP :: ListDisplayParams
 --secondColumnLDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 subInvX (-20)
-secondColumnLDP = defaultListDisplayParams & ldpPos . spPixelOff .~ V2 subInvX 0
+secondColumnLDP = defaultListDisplayParams 
+    & ldpPos . spPixelOff .~ V2 subInvX (-16)
+    & ldpBorder ?~ (49, 16)

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