Amr Gharbeia
ae994fa452
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
SIGWINCH: handle KEY_RESIZE (410) in main loop — re-measure screen, re-create status/chat/input windows at new dimensions, force redraw. Scroll clamp: PageUp clamped to (max 0 (- total 1)), prevents scrolling past message list end. Status bar shows 'msgs:N scroll:0'. /quit: saves :input-history to ~/.cache/passepartout/history (one line per entry, most recent first), sends goodbye handshake, sets :running nil. /reconnect: closes stale socket via disconnect-daemon, re-runs connect-daemon with retry backoff. Connection-loss detection: reader-loop counts consecutive nils; after 10, queues :disconnected event. Handler clears :connected/:busy, shows red system message. Load-history: reads ~/.cache/passepartout/history on startup, populates :input-history for up-arrow recall. Message vector: :messages init as adjustable vector with fill pointer. add-msg uses vector-push-extend (O(1) append). view-chat uses aref (O(1) access) instead of nth (O(n) for lists).
103 lines
4.5 KiB
Common Lisp
103 lines
4.5 KiB
Common Lisp
(in-package :passepartout.gateway-tui)
|
|
|
|
(defun view-status (win)
|
|
(clear win)
|
|
(box win 0 0)
|
|
(add-string win
|
|
(format nil " Passepartout ~a [~a] msgs:~a scroll:~a~a"
|
|
(if (st :connected) "● Connected" "○ Disconnected")
|
|
(string-upcase (string (st :mode)))
|
|
(length (st :messages))
|
|
(if (> (st :scroll-offset) 0) (format nil "~a↑" (st :scroll-offset)) "0")
|
|
(if (st :busy) " …thinking" ""))
|
|
:y 1 :x 1 :fgcolor (theme-color (if (st :connected) :connected :disconnected)))
|
|
(add-string win (format nil " ~a" (now)) :y 2 :x 1 :fgcolor (theme-color :timestamp))
|
|
(refresh win))
|
|
|
|
(defun word-wrap (text width)
|
|
"Break text into lines at word boundaries, each <= width chars.
|
|
Returns list of trimmed strings. Single words wider than width are split."
|
|
(let ((lines '())
|
|
(pos 0)
|
|
(len (length text)))
|
|
(loop while (< pos len)
|
|
do (let ((end (min len (+ pos width))))
|
|
(cond
|
|
((>= end len)
|
|
(push (string-trim '(#\Space) (subseq text pos len)) lines)
|
|
(setf pos len))
|
|
((char= (char text (1- end)) #\Space)
|
|
(push (string-trim '(#\Space) (subseq text pos end)) lines)
|
|
(setf pos end))
|
|
(t
|
|
(let ((last-space (position #\Space text :from-end t :end (1+ end) :start pos)))
|
|
(if (and last-space (> last-space pos))
|
|
(progn
|
|
(push (string-trim '(#\Space) (subseq text pos last-space)) lines)
|
|
(setf pos (1+ last-space)))
|
|
(progn
|
|
(push (string-trim '(#\Space) (subseq text pos end)) lines)
|
|
(setf pos end))))))))
|
|
(nreverse lines)))
|
|
|
|
(defun view-chat (win h)
|
|
(clear win)
|
|
(box win 0 0)
|
|
(let* ((w (or (width win) 78))
|
|
(msgs (st :messages))
|
|
(total (length msgs))
|
|
(max-lines (- h 2))
|
|
(y 1))
|
|
;; Count visible messages from end, accounting for word wrap
|
|
(let* ((msg-count 0)
|
|
(lines-remaining max-lines))
|
|
(loop for i from (1- total) downto 0
|
|
while (> lines-remaining 0)
|
|
do (let* ((msg (aref msgs i))
|
|
(role (getf msg :role))
|
|
(content (getf msg :content))
|
|
(time (or (getf msg :time) ""))
|
|
(prefix (case role (:user "⬆") (:agent "⬇") (t " ")))
|
|
(line-text (format nil "~a [~a] ~a" prefix time content))
|
|
(wrapped (word-wrap line-text (- w 2)))
|
|
(nlines (length wrapped)))
|
|
(if (<= nlines lines-remaining)
|
|
(progn (decf lines-remaining nlines) (incf msg-count))
|
|
(setf lines-remaining 0))))
|
|
;; Render from the correct starting message
|
|
(let* ((scroll-skip (st :scroll-offset))
|
|
(start (max 0 (- total msg-count scroll-skip))))
|
|
(loop for i from start below total
|
|
while (< y (1- h))
|
|
do (let* ((msg (aref msgs i))
|
|
(role (getf msg :role))
|
|
(content (getf msg :content))
|
|
(time (or (getf msg :time) ""))
|
|
(color (theme-color (case role (:user :user) (:agent :agent) (:system :system) (t :agent))))
|
|
(prefix (case role (:user "⬆") (:agent "⬇") (t " ")))
|
|
(line-text (format nil "~a [~a] ~a" prefix time content))
|
|
(wrapped (word-wrap line-text (- w 2))))
|
|
(dolist (line wrapped)
|
|
(when (< y (1- h))
|
|
(add-string win line :y y :x 1 :n (1- w) :fgcolor color)
|
|
(incf y))))))))
|
|
(refresh win))
|
|
|
|
(defun view-input (win)
|
|
(let* ((text (input-string))
|
|
(w (or (width win) 78))
|
|
(pos (or (st :cursor-pos) 0))
|
|
(display-start (max 0 (- pos (1- w))))
|
|
(visible (subseq text display-start (min (length text) (+ display-start w)))))
|
|
(clear win)
|
|
(add-string win (format nil "~a " visible) :y 0 :x 0 :n (1- w) :fgcolor (theme-color :input))
|
|
(setf (cursor-position win) (list 0 (min (- pos display-start) (1- w)))))
|
|
(refresh win))
|
|
|
|
(defun redraw (sw cw ch iw)
|
|
(destructuring-bind (sd cd id) (st :dirty)
|
|
(when sd (view-status sw))
|
|
(when cd (view-chat cw ch))
|
|
(when id (view-input iw))
|
|
(setf (st :dirty) (list nil nil nil))))
|