Cleanup, hide item selection cursor when in terminal

src/Dodge/ListDisplayParams.hs

@@ -16,9 +16,8 @@ import Dodge.Data.World
 import Linear
 import SDL (MouseButton (..))
 
-defaultLDP :: ListDisplayParams
-defaultLDP =
-    ListDisplayParams
+defaultLDP :: LDParams
+defaultLDP = LDP
         { _ldpVerticalGap = 0
         , _ldpScale = 1
         , _ldpPos =
@@ -29,7 +28,7 @@ defaultLDP =
         , _ldpBorder = Nothing
         }
 
-invDP :: ListDisplayParams
+invDP :: LDParams
 --invDP = defaultLDP & ldpPos . spPixelOff .~ V2 6 0
 invDP = defaultLDP & ldpPos . spPixelOff .~ V2 16 (-20)
 
@@ -40,7 +39,7 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
     _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
     _ -> [North, South, West]
 
-secondColumnLDP :: ListDisplayParams
+secondColumnLDP :: LDParams
 secondColumnLDP = defaultLDP & ldpPos . spPixelOff .~ V2 subInvX (-20)
 
 subInvX :: Float
@@ -49,5 +48,5 @@ subInvX = 10 * fromIntegral topInvW + 170
 topInvW :: Int
 topInvW = 15
 
-menuLDP :: ListDisplayParams
+menuLDP :: LDParams
 menuLDP = defaultLDP & ldpPos . spPixelOff .~ V2 11 (-70) & ldpScale .~ 2