fix: enable Croatoan function-keys-enabled-p for arrow/page keys
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s

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.
This commit is contained in:
2026-05-03 20:10:01 -04:00
parent d51e85bc9d
commit f27ab1f779
2 changed files with 4 additions and 0 deletions

View File

@@ -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)))

View File

@@ -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)))