Unify regex/filtering code

src/Dodge/Default/World.hs

@@ -168,17 +168,10 @@ defaultDisplayInventory =
         , _diSections = defaultInvSections
         , _diSelection = Just (1,0)
         , _diSelectionExtra = 0
---        , _diFilters = IM.fromList [(-1, mempty), (2, mempty)]
         , _diInvFilter = mempty
         , _diCloseFilter = mempty
         }
 
---defaultSSSExtra :: SSSExtra
---defaultSSSExtra =
---    SSSExtra
---        { _sssFilters = IM.fromList [(-1, mempty), (2, mempty)]
---        }
-
 defaultInvSections :: IM.IntMap (SelectionSection ())
 defaultInvSections = IM.fromDistinctAscList $
                 zip