Shuffle regexes

2023-02-20 12:16:46 +00:00
parent 5ac379959a
commit a38c77335c
9 changed files with 82 additions and 67 deletions
@@ -152,13 +152,20 @@ defaultDisplaySections = SelectionSections
 defaultHUD :: HUD
 defaultHUD =
    HUD
-        { _hudElement = DisplayInventory {_subInventory =NoSubInventory, _diSections = defaultInvSections}
+        { _hudElement = defaultDisplayInventory
        , _carteCenter = V2 0 0
        , _carteZoom = 0.5
        , _carteRot = 0
        , _closeObjects = []
        }

+defaultDisplayInventory :: HUDElement
+defaultDisplayInventory = DisplayInventory 
+    {_subInventory =NoSubInventory
+    , _diSections = defaultInvSections
+    , _invRegex = Nothing
+    , _closeRegex = Nothing
+    }
 --youLight :: TempLightSource
 --youLight = TLS
 --    { _tlsParam = LSParam