Tweak mouseover display to (partially) work during filtering

src/Dodge/DisplayInventory.hs

@@ -142,22 +142,6 @@ updateDisplaySections w cfig =
         else id
     cr = you w
 
---    filtpair i itms filtdescription mstr =
---        ( (i, filtsis)
---        , (i + 1, itms')
---        )
---      where
---        filtsis = fromMaybe mempty $ do
---            str <- mstr
---            return $
---                IM.singleton
---                    0
---                    (SelectionInfo [filtdescription ++ "FILTER: " ++ str, numfiltitems] 2 True white 0)
---        itms' = fromMaybe itms $ do
---            str <- mstr
---            return $ IM.filter (plainRegex str) itms
---        numfiltitems = "  " ++ show (length itms - length itms') ++ " FILTERED"
-
 filterSectionsPair ::
     String -> -- string at the end of the input
     (String -> SelectionItem a -> Bool) ->
@@ -176,7 +160,7 @@ filterSectionsPair endstr filtfn itms filtdescription mfilt =
             IM.singleton
                 0
                 $ SelectionInfo
-                    [filtdescription ++ " FILTER:" ++ str ++ endstr, numfiltitems]
+                    [filtdescription ++ " FILTER/" ++ str ++ endstr, numfiltitems]
                     2
                     True
                     white