Add separate function checking when inventory is filtered

src/Dodge/Inventory.hs

@@ -14,6 +14,7 @@ module Dodge.Inventory (
     module Dodge.Inventory.RBList,
     swapInvItems,
     scrollAugNextInSection,
+    isFilteringInv,
 ) where
 
 import Control.Applicative
@@ -254,3 +255,7 @@ selectedCloseObject w = do
         you w ^? crManipulation . manObject . ispCloseObject
             <|> fmap fst (IM.lookupMin =<< w ^? hud . hudElement . diSections . ix 3 . ssItems)
     w ^? hud . closeObjects . ix i
+
+isFilteringInv :: IM.IntMap (SelectionSection a) -> Bool
+isFilteringInv = not . null . (^. ix (-1) . ssItems)
+