Start unifying regex parts of selection sections

src/Dodge/Default/World.hs

@@ -162,9 +162,9 @@ defaultHUD =
 defaultDisplayInventory :: HUDElement
 defaultDisplayInventory = DisplayInventory 
     {_subInventory = NoSubInventory
-    , _diSections = defaultInvSections
-    , _invRegex = Nothing
-    , _closeRegex = Nothing
+    , _diSections = defaultFiltInv
+--    , _invRegex = Nothing
+--    , _closeRegex = Nothing
     }
 --youLight :: TempLightSource
 --youLight = TLS
@@ -179,13 +179,20 @@ defaultDisplayInventory = DisplayInventory
 --  where
 --    f (V2 x y) = V3 x y 100
 
+defaultFiltInv :: FilterableSections ()
+defaultFiltInv = FilterableSections
+        {_fssFilters = IM.fromList [(-1,mempty),(2,mempty)]
+        ,_fssSections =defaultInvSections
+        }
+
 defaultInvSections :: SelectionSections ()
 defaultInvSections = SelectionSections
     { _sssSections = IM.fromDistinctAscList $ zip [-1..]
         [ defaultFiltSection
         , defaultInvSection
         , defaultYouSection
-        , defaultFiltSection
+        , (defaultFiltSection & ssIndent .~ 2
+            & ssDescriptor .~ "NEARBY")
         , defaultCOSection
         ]
     , _sssSelPos = Nothing
@@ -201,7 +208,6 @@ defaultSS = SelectionSection
     , _ssDescriptor = ""
     }
 
-
 defaultCOSection :: SelectionSection ()
 defaultCOSection = defaultSS 
     & ssIndent .~ 2