Fix left clicks in terminals

2023-05-03 16:45:39 +01:00
parent 1d5f982fcc
commit 727e5af2a6
7 changed files with 33 additions and 24 deletions
@@ -214,8 +214,9 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
            . take (_tmMaxLines tm)
            $ _tmDisplayedLines tm
    displayTermInput tm = case _tmInput tm of
-        TerminalInput s hasfoc _ -> (++ [(displayInputText tm s ++ displayBlinkCursor hasfoc, white)])
-    partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just
+        TerminalInput {_tiText = s,  _tiFocus = hasfoc}
+            -> (++ [(displayInputText tm s ++ displayBlinkCursor hasfoc, white)])
+    partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString
    displayInputText tm s
        | _tmStatus tm == TerminalReady = partcommand tm ++ "> " ++ s
        | otherwise = ""