Move status to list on left of screen

src/Dodge/Default/World.hs

@@ -1,15 +1,14 @@
-module Dodge.Default.World where
+module Dodge.Default.World (
+    defaultWorld,
+) where
 
-import Color
-import NewInt
-import Control.Lens
 import Data.Graph.Inductive.Graph hiding ((&))
 import qualified Data.Map as M
-import Dodge.Data.SelectionList
 import Dodge.Data.World
 import Geometry.Data
 import Geometry.Polygon
 import qualified IntMapHelp as IM
+import NewInt
 import System.Random
 
 defaultInput :: Input
@@ -61,8 +60,8 @@ defaultCWGen =
         { _cwgParams = GenParams M.empty
         , _cwgSeed = 0
         , _cwgWorldBounds = defaultBounds
-        , _cwgGameRooms = []
-        , _cwgRoomClipping = []
+        , _cwgGameRooms = mempty
+        , _cwgRoomClipping = mempty
         }
 
 defaultCWCam :: Camera
@@ -77,7 +76,7 @@ defaultCWCam =
         , _camItemZoom = 1
         , _camBoundBox = square 100
         , _camBoundDist = (100, -100, 100, -100)
-        , _camControl = CamInGame {_cigType = CamOnPlayer}
+        , _camControl = CamInGame{_cigType = CamOnPlayer}
         }
 
 defaultCWorld :: CWorld
@@ -113,9 +112,9 @@ defaultLWorld =
         , _energyBalls = []
         , _radarBlips = []
         , _flares = []
---        , _newBeams = WorldBeams [] [] [] []
---        , _beams = WorldBeams [] [] [] []
-        , _teslaArcs = []
+        , --        , _newBeams = WorldBeams [] [] [] []
+          --        , _beams = WorldBeams [] [] [] []
+          _teslaArcs = []
         , _shockwaves = []
         , _lasers = []
         , _lasersToDraw = []
@@ -163,49 +162,10 @@ defaultHUD =
 defaultDisplayInventory :: HUDElement
 defaultDisplayInventory =
     DisplayInventory
-        { _subInventory = NoSubInventory 
-        --, _diSections = defaultInvSections
+        { _subInventory = NoSubInventory
         , _diSections = mempty
-        , _diSelection = Just (1,0)
+        , _diSelection = Just (1, 0)
         , _diSelectionExtra = mempty
         , _diInvFilter = mempty
         , _diCloseFilter = mempty
         }
-
-defaultInvSections :: IM.IntMap (SelectionSection ())
-defaultInvSections = IM.fromDistinctAscList $
-                zip
-                    [-2 ..]
-                    [ defaultSS
-                        & ssItems .~ IM.fromAscList [(0,SelectionItem ["STATUS"] 1 False white 0 ())]
-                    , defaultFiltSection
-                    , defaultInvSection
-                    , defaultYouSection
-                    , defaultFiltSection
-                    , defaultCOSection
-                    ]
-
-defaultSS :: SelectionSection a
-defaultSS =
-    SelectionSection
-        { _ssItems = mempty
-        , _ssOffset = 0
-        , _ssShownItems = []
-        , _ssIndent = 0
-        }
-
-defaultCOSection :: SelectionSection ()
-defaultCOSection =
-    defaultSS
-
-defaultFiltSection :: SelectionSection a
-defaultFiltSection =
-    defaultSS
-
-defaultInvSection :: SelectionSection ()
-defaultInvSection =
-    defaultSS
-
-defaultYouSection :: SelectionSection ()
-defaultYouSection =
-    defaultSS