-
Notifications
You must be signed in to change notification settings - Fork 10
/
term-keys-linux.el
124 lines (101 loc) · 4.23 KB
/
term-keys-linux.el
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
;;; term-keys-linux.el --- term-keys support for the Linux TTY
;;; Commentary:
;; This file contains supplementary code for aiding in the
;; configuration of the Linux TTY to interoperate with the term-keys
;; package.
;; For more information, please see the accompanying README.md file.
;;; Code:
(require 'term-keys)
(define-widget 'term-keys/linux-modifier 'lazy
"Choice for Linux modifiers for keymap files."
:type '(choice (const "Shift")
(const "AltGr")
(const "Control")
(const "Alt")
(const "ShiftL")
(const "ShiftR")
(const "CtrlL")
(const "CtrlR")
(const "CapsShift")
(const :tag "(none)" nil)))
(defcustom term-keys/linux-modifier-map ["Shift" "Control" "Alt" nil nil "AltGr"]
"Modifier keys for Linux TTY keymaps.
This should be a vector of 6 elements, with each element being a
string indicating the name of the modifier key corresponding to
the Emacs modifiers Shift, Control, Meta, Super, Hyper and Alt
respectively, as they should appear in generated .keymap files.
nil indicates that there is no mapping for this modifier."
:type '(vector
(term-keys/linux-modifier :tag "Shift")
(term-keys/linux-modifier :tag "Control")
(term-keys/linux-modifier :tag "Meta")
(term-keys/linux-modifier :tag "Super")
(term-keys/linux-modifier :tag "Hyper")
(term-keys/linux-modifier :tag "Alt"))
:group 'term-keys)
(defcustom term-keys/linux-first-function-key 13
"First Linux TTY keymap function key to use for term-keys bindings.
The Linux TTY allows binding custom character sequences to keys
only by assigning them to a \"function key\" (named thus after
the usual F1, F2 etc. function keys found on a computer
keyboard). Although most PC keyboards today only have 12
function keys, some keyboards/computers had more, and (also for
the purposes of key binding) the Linux kernel allows registering
character sequences for as many as 246 function keys (see output
for 'loadkeys -l' for the exact figure on your machine).
Crucially, these virtual keys provide the means to configure
arbitrary character sequences for any key combination, which is
necessary for term-keys to work.
This variable specifies the first function key entry that's used
by term-keys in the .keymap files it generates (see
`term-keys/linux-keymap'). The default value (13) will make
`term-keys' use F13 and onwards, and is fine for most uses,
unless you happen to use a keyboard with more than 12 F-keys, or
wish to use the F13-F20 keys through the shifted state of the
F1-F8 keys."
:type 'integer
:group 'term-keys)
(defun term-keys/linux-keymap ()
"Construct Linux TTY configuration in the form of a keymap.
This function returns, as a string, a keymap which can be used to
configure the Linux kernel's TTY emulator to encode term-keys key
sequences, according to the term-keys configuration.
The returned string is suitable to be saved as-is in a .keymap
file and loaded by the loadkeys program."
(apply #'concat
(let ((fkey term-keys/linux-first-function-key))
(term-keys/iterate-keys
(lambda (index keymap mods)
;; Skip key combinations with unrepresentable modifiers
(unless (cl-reduce (lambda (x y) (or x y)) ; any
(mapcar (lambda (n) ; active modifier mapped to nil
(and (elt mods n)
(not (elt term-keys/linux-modifier-map n))))
(number-sequence 0 (1- (length mods))))) ; 0..5
(prog1
(format "# %s\n%s\tkeycode %3d = F%d\nstring F%d = \"%s\"\n\n"
;; Emacs key name for comment
(term-keys/format-key (elt keymap 0) mods)
(if (cl-reduce (lambda (x y) (or x y)) mods)
;; tab-separated mod list
(mapconcat
(lambda (n)
(if (elt mods n) (elt term-keys/linux-modifier-map n) ""))
(number-sequence 0 (1- (length mods)))
"\t")
;; "plain" if no mods
(concat "plain" (make-string (1- (length mods)) ?\t)))
(elt keymap 2) ; keynumber
fkey ; F-key number (use)
fkey ; F-key number (declaration)
(mapconcat ; octal-escaped sequence
(lambda (x) (format "\\%03o" x))
(append
term-keys/prefix
(term-keys/encode-key index mods)
term-keys/suffix
nil)
""))
(setq fkey (1+ fkey)))))))))
(provide 'term-keys-linux)
;;; term-keys-linux.el ends here