From b316761176985033c5fd95991948da9a8e094836 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 11 Aug 2020 16:29:54 +0200
Subject: Add script for finding terminal key sequences.

---
 scripts/input.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 scripts/input.scm

(limited to 'scripts')

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)))))))
-- 
cgit v1.2.3