Amr Gharbeia
8c6a192af1
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
23 lines
949 B
Common Lisp
23 lines
949 B
Common Lisp
(require :asdf)
|
|
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
|
(ql:quickload :croatoan)
|
|
(in-package :cl-user)
|
|
(defun main ()
|
|
(with-open-file (f "key.log" :direction :output :if-exists :supersede)
|
|
(croatoan:with-screen (scr :input-echoing nil :input-blocking nil)
|
|
(let* ((h (croatoan:height scr))
|
|
(w (croatoan:width scr))
|
|
(input-win (make-instance 'croatoan:window :height 1 :width w :position (list (- h 1) 0))))
|
|
(setf (croatoan:function-keys-enabled-p input-win) t)
|
|
(setf (croatoan:input-blocking input-win) nil)
|
|
(loop
|
|
(let ((ch (croatoan:get-char input-win)))
|
|
(when ch
|
|
(format f "Got: ~S (type: ~S) (code: ~S)~%" ch (type-of ch) (and (characterp ch) (char-code ch)))
|
|
(finish-output f)
|
|
(when (or (eq ch #\q) (eq ch :q))
|
|
(return))))
|
|
(sleep 0.05))))))
|
|
(main)
|
|
(sb-ext:exit)
|