Add script for finding terminal key sequences.

1 files changed, 26 insertions, 0 deletions

diff --git a/scripts/input.scm b/scripts/input.scm
new file mode 100755
index 00000000..3589a45a
--- /dev/null
+++ b/scripts/input.scm
@@ -0,0 +1,26 @@
+#!/usr/bin/guile -s
+!#
+
+;;; Commentary:
+;;; Script for checking keyname sequences for different keyboard keys.
+;;; `c' to clear screen, `q' to quit.
+;;; Code:
+
+(add-to-load-path "module")
+(use-modules (vulgar))
+
+(define chrlist '())
+
+(with-vulgar
+  (lambda ()
+    (while #t
+           (cls)
+           (format #t "~s~%> " chrlist)
+           (force-output )
+           (let ((char (read-char)))
+             (when (eof-object? char)
+               (break))
+             (set! chrlist (append chrlist (list char)))
+             (case char
+               ((#\c) (set! chrlist '()))
+               ((#\q) (break)))))))