Fix terminal mouse over positioning

This commit is contained in:
2025-12-24 20:10:03 +00:00
parent 3cdab08184
commit de6bbe7697
5 changed files with 132 additions and 120 deletions
+4 -1
View File
@@ -1,8 +1,8 @@
module Dodge.ListDisplayParams (
invDP,
-- secDP,
invCursorParams,
secondColumnLDP,
terminalLDP,
subInvX,
menuLDP,
) where
@@ -42,6 +42,9 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
secondColumnLDP :: LDParams
secondColumnLDP = defaultLDP & ldpPos . spPixelOff .~ V2 subInvX (-20)
terminalLDP :: LDParams
terminalLDP = secondColumnLDP & ldpBorder ?~ (49, 16)
subInvX :: Float
subInvX = 10 * fromIntegral topInvW + 170