Only display combinations for first items in list

2024-09-08 21:00:16 +01:00
parent 4de15d2c21
commit db4a6a10de
16 changed files with 192 additions and 76 deletions
@@ -236,19 +236,19 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
 combineCounts :: Configuration -> World -> [Int] -> Picture
 combineCounts cfig w = foldMap f . group
  where
-    f (i : is) = fromMaybe mempty $ do
-        _ <- yourInv w ^? ix i . itUse . useAmount
-        sss <- w ^? hud . hudElement . diSections
-        --p <- selNumTextEndPos cfig (invDisplayParams w) sss 0 i
-        col <- selSecSelCol 0 i sss
-        yint <- selSecYint 0 i sss
-        --return $ color col $ uncurryV translate p . scale 0.1 0.1 . text $ ('-' : show (length is + 1))
-        return
-            . translateScreenPos cfig (invDisplayParams w ^. ldpPos)
-            . color col
-            . drawListElement 0 1 15 yint
-            . text
-            $ ('-' : show (length is + 1))
+--    f (i : is) = fromMaybe mempty $ do
+--        _ <- yourInv w ^? ix i . itUse . useAmount
+--        sss <- w ^? hud . hudElement . diSections
+--        --p <- selNumTextEndPos cfig (invDisplayParams w) sss 0 i
+--        col <- selSecSelCol 0 i sss
+--        yint <- selSecYint 0 i sss
+--        --return $ color col $ uncurryV translate p . scale 0.1 0.1 . text $ ('-' : show (length is + 1))
+--        return
+--            . translateScreenPos cfig (invDisplayParams w ^. ldpPos)
+--            . color col
+--            . drawListElement 0 1 15 yint
+--            . text
+--            $ ('-' : show (length is + 1))
    f _ = mempty

 lnkMidPosInvSelsCol :: Configuration -> World -> Int -> Color -> [Int] -> Picture