Start adding filters to selection lists

src/Dodge/Menu.hs

@@ -12,7 +12,6 @@ import Data.ByteString.Lazy.Char8 (unpack)
 import Data.Maybe
 import Dodge.Concurrent
 import Dodge.Config.Update
-import Dodge.Data.SelectionList
 import Dodge.Data.Universe
 import Dodge.Menu.Option
 import Dodge.Menu.OptionType
@@ -24,7 +23,6 @@ import Dodge.StartNewGame
 import LensHelp
 import MaybeHelp
 import Padding
-import ShortShow
 import System.Clipboard
 import Text.Read
 
@@ -36,8 +34,6 @@ splashMenu u =
 splashMenuOptions :: [MenuOption]
 splashMenuOptions =
     [ Toggle (loadSaveSlot (SaveSlotNum 0)) displaycontinue
-    , Toggle id (\u -> MODString $ show $ u ^? uvScreenLayers . _head . scSelectionList . slSelPos . _Just)
-    , Toggle id (\u -> MODString $ shortShow $ u ^. uvWorld . input . mousePos)
     , Toggle (startNewGameInSlot 0) (opText "NEW WITH RANDOM SEED")
     , Toggle reloadLevelStart (displaywhenseed "NEW WITH LAST SEED")
     , Toggle (pushScreen $ seedStartMenu "START FROM SEED") (opText "NEW WITH SPECIFIC SEED")