Move towards simplifying terminal lines/effects

src/Dodge/Render/HUD.hs

@@ -4,6 +4,7 @@ module Dodge.Render.HUD (
     drawHUD,
 ) where
 
+import Dodge.Data.Terminal.Status
 import Control.Applicative
 import Control.Lens
 import Control.Monad
@@ -385,7 +386,9 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
         TerminalBusy -> (++ [([cFilledRect], white)])
         TerminalTextInput s ->
             (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
-    partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString
+        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