Shuffle regexes

2023-02-20 12:16:46 +00:00
parent 5ac379959a
commit a38c77335c
9 changed files with 82 additions and 67 deletions
@@ -176,7 +176,6 @@ examineInventoryExtra mtweaki mitm cfig = fromMaybe mempty $ do
    return $ listCursorNSW subInvX 60 cfig tweaki 0 white (length $ showTweak tparam) 15
    --        , drawSelectionList thirdColumnParams cfig (thirdColumnPara (itmInfo mitm))

--combineInventoryExtra :: SelectionIntMap CombinableItem -> Maybe Int -> Configuration -> World -> Picture
 combineInventoryExtra :: SelectionSections CombinableItem -> Configuration -> World -> Picture
 combineInventoryExtra sss cfig w = fromMaybe mempty $ do
    (i,j) <- sss ^? sssSelPos . _Just
@@ -192,7 +191,6 @@ combineInventoryExtra sss cfig w = 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
            ]