Move inventory filter to different section of selection list

2023-02-17 10:35:59 +00:00
parent 4afc216b25
commit 93dfc2a67c
8 changed files with 111 additions and 102 deletions
@@ -161,20 +161,11 @@ yourAugmentedItem  f x g w = case you w ^? crManipulation . manObject of
 drawNoSubInventory :: Configuration -> World -> Picture
 drawNoSubInventory cfig w =
    pictures
-        [ --closeobjectcursor
-         equipcursors
+        [ equipcursors
        , equipcursor -- the order is important, this should go on top of the other equipcursors
        , rboptions
        ]
  where
--    closeobjectcursor = case selectedCloseObject w of
--        Nothing -> mempty
--        Just (i, _) ->
--            drawCursorAt
--                (invDisplayParams w & ldpCursorType .~ BorderCursor [North, South])
--                cfig
--                (Just i)
--                (inventorySelectionList w)
    equipcursor = case cr ^. crLeftInvSel . lisMPos of
        Just invid -> f cyan invid (_crInvEquipped cr IM.! invid)
        _ -> mempty