fix: enable Croatoan function-keys-enabled-p for arrow/page keys
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
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:
@@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user