Remove possiblity of displayed but non-focussed terminal

2024-11-16 20:25:49 +00:00
parent 86f185c71e
commit a0431ff9a3
11 changed files with 16 additions and 39 deletions
@@ -366,16 +366,13 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
            . take (getMaxLinesTM (tm ^. tmType))
            $ _tmDisplayedLines tm
    displayTermInput tm = case _tmInput tm of
-        TerminalInput{_tiText = s, _tiFocus = hasfoc} ->
-            (++ [(displayInputText tm s ++ displayBlinkCursor hasfoc, white)])
+        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
        | otherwise = ""
-    displayBlinkCursor hasfoc
        --        | hasfoc = clockCycle 10 (V.fromList [[cFilledRect] , "."]) w
-        | hasfoc = [cFilledRect]
-        | otherwise = [cWireRect]

 lnkMidPosInvSelsCol :: Configuration -> World -> Int -> Color -> [Int] -> Picture
 lnkMidPosInvSelsCol cfig w i col = fromMaybe mempty . foldMap f