Work on press-continue terminal prompts

2025-08-19 11:08:54 +01:00
parent e7b66b4fa4
commit 2f4fcb42e5
14 changed files with 84 additions and 71 deletions
@@ -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