Work on inventory ui

src/Dodge/ListDisplayParams.hs

@@ -33,21 +33,20 @@ invDisplayParams w =
         & ldpWidth .~ FixedSelectionWidth (determineInvSelCursorWidth w)
         & ldpPos . spPixelOff .~ V2 6 (-1)
   where
-    selcursortype
-        | isexaminesub || ButtonRight `M.member` _mouseButtons (_input w) = [North, South, East, West]
-        | otherwise = [North, South, West]
-    isexaminesub = case w ^? hud . hudElement . subInventory of
-        Just ExamineInventory{} -> True
-        _ -> False
+    selcursortype = case w ^? hud . hudElement . subInventory of
+        _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
+        Just ExamineInventory{} -> [North, South, East, West]
+        Just CombineInventory{} -> []
+        _ -> [North, South, West]
 
 secondColumnParams :: ListDisplayParams
 secondColumnParams =
     defaultListDisplayParams
-        & ldpPos . spPixelOff .~ V2 subInvX (-71)
+        & ldpPos . spPixelOff .~ V2 subInvX (-81)
         & ldpCursorSides .~ [North, South, West]
 
 subInvX :: Float
-subInvX = 10 * fromIntegral topInvW + 50
+subInvX = 10 * fromIntegral topInvW + 70
 
 topInvW :: Int
 topInvW = 15