amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(tui): Restore input window cursor focus and rendering
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 13:01:49 -04:00
parent 29a8af32f7
commit 24228e02fe
2 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
literate/tui-client.org
View File

@@ -114,14 +114,13 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro
(when (> (length *input-buffer*) 0) (when (> (length *input-buffer*) 0)
(decf (fill-pointer *input-buffer*)))) (decf (fill-pointer *input-buffer*))))
((characterp ch) ((characterp ch)
(vector-push-extend ch *input-buffer*))) (vector-push-extend ch *input-buffer*))))
(clear input-win) (clear input-win)
(add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string)))
(refresh input-win))) (refresh input-win)
(refresh scr) (sleep 0.02))))
(sleep 0.02))))
(setf *is-running* nil) (setf *is-running* nil)
(when *socket* (usocket:socket-close *socket*)))) (when *socket* (usocket:socket-close *socket*))))
#+end_src #+end_src

11
src/tui-client.lisp
View File

@@ -101,13 +101,12 @@
(when (> (length *input-buffer*) 0) (when (> (length *input-buffer*) 0)
(decf (fill-pointer *input-buffer*)))) (decf (fill-pointer *input-buffer*))))
((characterp ch) ((characterp ch)
(vector-push-extend ch *input-buffer*))) (vector-push-extend ch *input-buffer*))))
(clear input-win) (clear input-win)
(add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string)))
(refresh input-win))) (refresh input-win)
(refresh scr) (sleep 0.02))))
(sleep 0.02))))
(setf *is-running* nil) (setf *is-running* nil)
(when *socket* (usocket:socket-close *socket*)))) (when *socket* (usocket:socket-close *socket*))))