Shuffle regexes

2023-02-20 12:16:46 +00:00
parent 5ac379959a
commit a38c77335c
9 changed files with 82 additions and 67 deletions
@@ -148,12 +148,21 @@ enterCombineInv cfig w = w & hud . hudElement . subInventory .~ CombineInventory
    cm | null cm' = IM.singleton 0 $ SelectionInfo ["No possible combinations"] 1 False white 0
       | otherwise = cm'
    sss = SelectionSections  
-        { _sssSections = IM.singleton 0 combsection
+        { _sssSections = IM.fromDistinctAscList [(-1,filtsection),(0,combsection)]
        , _sssSelPos = selpos
        }
    selpos | null cm' = Nothing
       | otherwise = Just (0,0)
    availablelines = getAvailableListLines secondColumnParams cfig
+    filtsection = SelectionSection
+        { _ssItems = mempty
+        , _ssCursor = Nothing
+        , _ssMinSize = 0
+        , _ssOffset = 0
+        , _ssShownItems = mempty
+        , _ssIndent = 0
+        , _ssDescriptor = "COMB FILTER"
+        }
    combsection = updateSection cm (Just 0) availablelines combinationssection'
    combinationssection' = SelectionSection
        { _ssItems = cm