Simplify selection menu, remove overlapping

2024-09-11 16:39:56 +01:00
parent c72278f728
commit eddb313ea1
9 changed files with 167 additions and 169 deletions
@@ -21,16 +21,15 @@ invSelectionItem cr i it =
        , _siIsSelectable = True
        , _siColor = col
        , _siOffX = 0
-        , _siOffY = yoff
        , _siPayload = ()
        }
  where
    anyhotkey = maybe [] ((' ':) .hotkeyToString) (cr ^? crInvHotkeys . ix i)
    anyequippos = maybe [] (rightPad 8 ' ' . (' ':) . eqPosText) (cr ^? crInvEquipped . ix i)
    col = itemInvColor it
-    (yoff,pics) =  case _itCurseStatus it of
-        UndroppableIdentified -> itemDisplayOffset cr it
-        _ -> itemDisplayOffset cr it
+    pics =  case _itCurseStatus it of
+        UndroppableIdentified -> itemDisplay cr it
+        _ -> itemDisplay cr it

 hotkeyToString :: Hotkey -> String
 hotkeyToString x = case x of
@@ -56,7 +55,6 @@ closeObjectToSelectionItem e =
        , --, _siWidth = 15
          _siColor = col
        , _siOffX = 2
-        , _siOffY = 0
        , _siPayload = ()
        }
  where