From f27ab1f77962146b4d281fc888a2cf94a62975ec Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 3 May 2026 20:10:01 -0400 Subject: [PATCH] fix: enable Croatoan function-keys-enabled-p for arrow/page keys Add (setf (function-keys-enabled-p input-win) t) and for chat-win, otherwise Croatoan returns raw escape sequences instead of :up, :down, :ppage, :npage keywords. Also symlink project into quicklisp/local-projects so ql:quickload :passepartout/tui works without manual ASDF push. --- lisp/gateway-tui.lisp | 2 ++ org/gateway-tui.org | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lisp/gateway-tui.lisp b/lisp/gateway-tui.lisp index 1ffaf9b..f705578 100644 --- a/lisp/gateway-tui.lisp +++ b/lisp/gateway-tui.lisp @@ -193,6 +193,8 @@ (chat-win (make-instance 'window :height chat-h :width (- w 2) :y status-h :x 1)) (input-win (make-instance 'window :height input-h :width (- w 2) :y (- h input-h 1) :x 1))) (setf (input-blocking input-win) nil) + (setf (function-keys-enabled-p input-win) t) + (setf (function-keys-enabled-p chat-win) t) (reader-start *stream*) (loop :while *is-running* :do (let ((msgs (message-queue-drain))) diff --git a/org/gateway-tui.org b/org/gateway-tui.org index ebe0d3b..e1c39b5 100644 --- a/org/gateway-tui.org +++ b/org/gateway-tui.org @@ -398,6 +398,8 @@ Keybindings: (chat-win (make-instance 'window :height chat-h :width (- w 2) :y status-h :x 1)) (input-win (make-instance 'window :height input-h :width (- w 2) :y (- h input-h 1) :x 1))) (setf (input-blocking input-win) nil) + (setf (function-keys-enabled-p input-win) t) + (setf (function-keys-enabled-p chat-win) t) (reader-start *stream*) (loop :while *is-running* :do (let ((msgs (message-queue-drain)))