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

fix(tui): Correct croatoan slot name to function-keys-enabled-p
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 13:27:16 -04:00
parent 06361847f8
commit c9332b5668
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
literate/tui-client.org
View File

@@ -74,7 +74,7 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro
(status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0)))
(input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0))))
(setf (keypad-p input-win) t) (setf (function-keys-enabled-p input-win) t)
(loop while *is-running* do (loop while *is-running* do
;; 1. Handle incoming messages ;; 1. Handle incoming messages

2
src/tui-client.lisp
View File

@@ -61,7 +61,7 @@
(status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0)))
(input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0))))
(setf (keypad-p input-win) t) (setf (function-keys-enabled-p input-win) t)
(loop while *is-running* do (loop while *is-running* do
;; 1. Handle incoming messages ;; 1. Handle incoming messages