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

fix(tui): Force screen refresh and initialize input prompt
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 12:33:02 -04:00
parent 65d230e502
commit c1d5c14412
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
literate/tui-client.org
View File

@@ -86,6 +86,11 @@ The OpenCortex TUI Client is a standalone Common Lisp executable providing a ric
(status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0)))
(input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0))))
;; Initial Render
(add-string input-win "> ")
(refresh input-win)
(loop while *is-running* do (loop while *is-running* do
;; Handle incoming messages ;; Handle incoming messages
(let ((new-msgs (dequeue-msgs))) (let ((new-msgs (dequeue-msgs)))
@@ -126,7 +131,8 @@ The OpenCortex TUI Client is a standalone Common Lisp executable providing a ric
(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)

8
src/tui-client.lisp
View File

@@ -62,6 +62,11 @@
(status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0)))
(input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0))))
;; Initial Render
(add-string input-win "> ")
(refresh input-win)
(loop while *is-running* do (loop while *is-running* do
;; Handle incoming messages ;; Handle incoming messages
(let ((new-msgs (dequeue-msgs))) (let ((new-msgs (dequeue-msgs)))
@@ -102,7 +107,8 @@
(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)