Add menu option to start new game from seed, uses system clipboard

appDodge/Main.hs

@@ -3,7 +3,9 @@ module Main
     ) where
 import Loop
 import Dodge.Data
-import Dodge.LevelGen
+import Dodge.StartNewGame
+import Dodge.Initialisation
+--import Dodge.LevelGen
 import Dodge.Update
 import Dodge.Event
 import Dodge.Render
@@ -55,9 +57,9 @@ firstWorldLoad theConfig = do
     SDL.cursorVisible $= False
     theKeyConfig <- loadKeyConfig
     pdata <- doPreload >>= applyWorldConfig theConfig
-    w <- generateWorldFromSeed 0
-    return $ Universe 
-        {_uvWorld = w
+--    w <- generateWorldFromSeed 0
+    return $ startNewGame $ Universe 
+        {_uvWorld = initialWorld
         ,_config    = theConfig
         ,_preloadData = pdata
         ,_menuLayers = []