Show items that are to be combined

2023-02-20 11:30:10 +00:00
parent 2e46123a92
commit 5ac379959a
3 changed files with 38 additions and 20 deletions
@@ -178,7 +178,28 @@ examineInventoryExtra mtweaki mitm cfig = fromMaybe mempty $ do

 --combineInventoryExtra :: SelectionIntMap CombinableItem -> Maybe Int -> Configuration -> World -> Picture
 combineInventoryExtra :: SelectionSections CombinableItem -> Configuration -> World -> Picture
-combineInventoryExtra sss cfig w = mempty 
+combineInventoryExtra sss cfig w = fromMaybe mempty $ do
+    (i,j) <- sss ^? sssSelPos . _Just
+    si <- sss ^? sssSections . ix i . ssItems . ix j
+    cpos <- selSecSelPos i j sss
+    let col = _siColor si
+    return $
+        pictures
+            [ fromMaybe mempty $ do
+                strs <- si ^? siPayload . ciInfo
+                return $ listPicturesAtOff (subInvX + 150) 60 cfig cpos $ map (color red . text) strs
+            , fromMaybe mempty $ do
+                lnks <- si ^? siPayload . ciInvIDs
+                return $
+                    lnkMidPosInvSelsCol cfig w cpos col lnks
+                        -- <> foldMap (topCursorTypeWidth listCursorNESW (topInvW + 2) cfig w) lnks
+                        <> foldMap invcursor lnks
+                        <> combineCounts cfig w lnks
+            ]
+  where
+    invcursor i = fromMaybe mempty $ do
+        sss' <- w ^? hud . hudElement . diSections
+        return $ selSecDrawCursor 17 [North,South,East] cfig (invDisplayParams w) sss' 0 i
 --    fromMaybe mempty $ do
 --    i <- mi
 --    let cpos = getIthPos i (sm ^. smShownItems)