Move configuration from world to universe

2021-11-28 22:30:47 +00:00
parent 45ba120796
commit 8c5777a1af
29 changed files with 343 additions and 300 deletions
@@ -17,11 +17,9 @@ handlePressedKeyInMenu mState scode = case mState of
    DisplayScreen {}    -> popScreen
    ColumnsScreen {}    -> popScreen
    WaitScreen {}       -> Just
-    TerminalScreen 0 _  -> popScreen
-    TerminalScreen _ m  -> Just . (menuLayers %~ ( (TerminalScreen 0 m : ) . tail) )
    InputScreen s       -> case scode of
        ScancodeEscape  -> popScreen
-        ScancodeReturn  -> popScreen . over uvWorld (applyTerminalString s)
+        ScancodeReturn  -> popScreen . applyTerminalString s
        ScancodeBackspace 
            -> popScreen >=> pushScreen (InputScreen $ dropLast s)
        _   -> popScreen >=> pushScreen (InputScreen $ s ++ [scodeToChar scode])