Work on press-continue terminal prompts

src/Dodge/Render/HUD.hs

@@ -383,17 +383,11 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
             $ _tmDisplayedLines tm
     displayTermInput tm = case _tmStatus tm of
         TerminalOff -> id
-        TerminalBusy -> (++ [([cFilledRect], white)])
+        TerminalLineRead -> id
         TerminalTextInput s ->
             (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
         TerminalPressTo s ->
-            (++ [("PRESS TO "++s, white)])
---    partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString
---    displayInputText tm s
---        | TerminalTextInput <- _tmStatus tm = getPromptTM ++ s 
-----        | _tmStatus tm == TerminalReady = partcommand tm ++ getPromptTM ++ s
---        | otherwise = ""
-
+            (++ [(getPromptTM ++ "PRESS TO "++s, white)])
 --        | hasfoc = clockCycle 10 (V.fromList [[cFilledRect] , "."]) w
 
 lnkMidPosInvSelsCol :: Configuration -> World -> Int -> Color -> [Int] -> Picture

src/Dodge/Render/Picture.hs

@@ -109,6 +109,7 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
     OverCombFilter{} -> drawJumpDown 5
     OverCombCombine{} -> drawGapPlus 5
     OverCombEscape -> rotate (pi / 4) $ drawPlus 5
+    OverTerminalContinue{} -> drawReturn 5
     OverTerminalReturn{} -> drawReturn 5
     OverTerminalEscape -> rotate (pi / 4) $ drawPlus 5
     MouseGameRotate -> rotate a (drawVerticalDoubleArrow 5)