Start work simplifying terminals, aim towards respawn terminals

src/Dodge/Render/HUD.hs

@@ -363,7 +363,7 @@ combineInventoryExtra sss msel cfig w = fromMaybe mempty $ do
 drawTerminalDisplay :: Int -> Configuration -> LWorld -> Picture
 drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
     tm <- w ^? terminals . ix tid
-    let tsize = getMaxLinesTM (tm ^. tmType) + 1
+    let tsize = getMaxLinesTM + 1
     return $
         invHead cfig (_tmTitle tm ++ ":T" ++ show tid)
             <> drawSelectionList secondColumnParams cfig (thesellist tm)
@@ -378,14 +378,14 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
     thelist tm =
         map toselitm . displayTermInput tm
             . reverse
-            . take (getMaxLinesTM (tm ^. tmType))
+            . take getMaxLinesTM
             $ _tmDisplayedLines tm
     displayTermInput tm = case _tmInput tm of
         TerminalInput{_tiText = s} ->
             (++ [(displayInputText tm s ++ [cFilledRect], white)])
     partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString
     displayInputText tm s
-        | _tmStatus tm == TerminalReady = partcommand tm ++ getPromptTM (tm ^. tmType) ++ s
+        | _tmStatus tm == TerminalReady = partcommand tm ++ getPromptTM ++ s
         | otherwise = ""
 
 --        | hasfoc = clockCycle 10 (V.fromList [[cFilledRect] , "."]) w