blob: 626f5346597d4eab044ef95b71de57a8014aa4b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 (string-append (dirname (dirname (current-filename))) "/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)))))))
|