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

fix(tui): fix parentheses imbalance and correct color keywords

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 14:33:07 -04:00
parent 08109414e8
commit 38d8ec40e1
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
harness/tui-client.org
View File

@@ -140,10 +140,10 @@ A simple MVP console is insufficient for a Lisp Machine. To reach v0.2.0, the TU
(defun get-line-style (text) (defun get-line-style (text)
"Determines croatoan attributes based on content patterns." "Determines croatoan attributes based on content patterns."
(cond (cond
((uiop:string-prefix-p "*" text) '(:bold :color-yellow)) ((uiop:string-prefix-p "*" text) '(:bold :yellow))
((uiop:string-prefix-p "⬆" text) '(:color-cyan)) ((uiop:string-prefix-p "⬆" text) '(:cyan))
((uiop:string-prefix-p "🤔" text) '(:italic)) ((uiop:string-prefix-p "🤔" text) '(:italic))
((uiop:string-prefix-p "ERROR" text) '(:bold :color-red)) ((uiop:string-prefix-p "ERROR" text) '(:bold :red))
(t nil))) (t nil)))
#+end_src #+end_src
@@ -200,9 +200,11 @@ A simple MVP console is insufficient for a Lisp Machine. To reach v0.2.0, the TU
(unwind-protect (unwind-protect
(with-screen (scr :input-echoing nil :input-blocking nil :enable-colors t) (with-screen (scr :input-echoing nil :input-blocking nil :enable-colors t)
(let* ((h (height scr)) (w (width scr)) (let* ((h (height scr)) (w (width scr)))
(chat-win (make-instance 'window :height (- h 5) :width (- w 2) :position '(1 1) :border t)) (unless (and h w)
(input-win (make-instance 'window :height 1 :width (- w 2) :position (list (- h 2) 1) :border t))) (error "Screen dimensions are NIL: h=~a, w=~a" h w))
(let ((chat-win (make-instance 'window :height (- h 5) :width (- w 2) :position '(1 1) :border t))
(input-win (make-instance 'window :height 1 :width (- w 2) :position (list (- h 2) 1) :border t)))
(setf (input-blocking input-win) nil) (setf (input-blocking input-win) nil)
@@ -218,14 +220,13 @@ A simple MVP console is insufficient for a Lisp Machine. To reach v0.2.0, the TU
(cond (cond
((or (eq ch #\Newline) (eq ch #\Return)) (handle-return *stream*)) ((or (eq ch #\Newline) (eq ch #\Return)) (handle-return *stream*))
((or (eq ch :backspace) (eq ch (code-char 127))) (handle-backspace)) ((or (eq ch :backspace) (eq ch (code-char 127))) (handle-backspace))
((eq ch :page-up) (scroll-history 5))
((eq ch :page-down) (scroll-history -5))
((characterp ch) (vector-push-extend ch *input-buffer*)))) ((characterp ch) (vector-push-extend ch *input-buffer*))))
(clear input-win) (clear input-win)
(add-string input-win (format nil "▶ ~a" (coerce *input-buffer* 'string)) :y 0 :x 1) (add-string input-win (format nil "▶ ~a" (coerce *input-buffer* 'string)) :y 0 :x 1)
(refresh input-win)) (refresh input-win))
(sleep 0.02)))) (sleep 0.02)))))
(setf *is-running* nil) (setf *is-running* nil)
(when *socket* (ignore-errors (usocket:socket-close *socket*))))) (when *socket* (ignore-errors (usocket:socket-close *socket*)))))
#+end_src #+end_src