perl: final features for v5.22 release
[sheet.git] / readline.inc.pl
1 use utf8;
2 {
3
4 '' => {
5         "\e" => ['mv', '+'],
6
7         '+<' => ['co'],
8         '+=' => '+?', #TODO: new # emacs, not in v2.0
9         '+>' => ['co'],
10         '^?' => '^h',
11         '+?' => ['ci'],
12         '^@' => ['mv new'], # not in v2.0
13
14         '+#' => ['mi new'], # not in v2.0
15         '+&' => ['mi'],
16         '+*' => ['mi new'], # not in v2.0
17         '+.' => ['co'],
18         '+~' => '+&amp;', # emacs
19
20         '^[' => ['mv'],
21         '^+['=> '^i',
22         '+\\'=> ['mo'],
23         '^]' => ['pm arg new'], # not in v2.0
24         '^+]'=> ['pm arg new'], # not in v2.0
25         '^_' => ['co'],
26         '+_' => '+.',
27
28         '+~' => ['mi ext'], # common emacs => '+&'
29         '+!' => ['mi ext'],
30         '+@' => ['mi ext'],
31         '+$' => ['mi ext'],
32         '+^' => ['co ext'],
33         '+/' => ['ci ext'],
34
35         '^a' => ['pm'],
36         '^b' => ['pm'],
37         '+b' => ['pm'],
38         '^c' => ['mv ext'],
39         '+c' => ['mi'],
40         '^d' => ['mo'],
41         '+d' => ['mo ring'],
42 #       '^e' => ['me'],
43         '^e' => ['pm'],
44         '^f' => ['pm'],
45         '+f' => ['pm'],
46         '^g' => ['mv'],
47         '^+g'=> '^g',
48         '^h' => ['mo'],
49         '^+h'=> ['mo ring'], #TODO
50         '^i' => ['mi'],
51         '^+i'=> '^v^i',
52         '^j' => '^m',
53         '^+j'=> ['me'], #TODO: mode^+j
54         '^k' => ['mo ring'],
55         '^l' => ['ci'],
56         '+l' => ['mi'],
57         '^m' => ['co'],
58         '^+m'=> '^+j',
59         '^n' => ['co'],
60         '+n' => ['co'],
61         '^o' => ['co ext'],
62         '^p' => ['co'],
63         '+p' => ['co'],
64         '^q' => '^v',
65         '^r' => ['co'],
66         '+r' => ['co'],
67         '^+r'=> '+r',
68         '^s' => ['co'],
69         '^t' => ['mi'],
70         '+t' => ['mi'],
71         '^u' => ['mo ring'],
72         '+u' => ['mi'],
73         '^v' => ['mv'],
74         '^w' => ['mo ring'],
75         '^x' => ['me arg mode^x'],
76         '^y' => ['co'],
77         '+y' => ['co ring'],
78         '^+y'=> ["yank arg"],
79         '^z' => ['mv ext'],
80 },
81
82 '^x' => {
83         lead => "x̂",
84
85         "\e" => ['mv mode', '+'],
86
87         '('  => ['mv'],
88         ')'  => ['mv'],
89         'e'  => ['mv'],
90         '^e' => ['mi ext linkvi'],
91         '^g' => '^g',
92         '^h' => '^u',
93         '^r' => ['mv'],
94         '^u' => '^_',
95         '^x' => ['pm new'], # not in v2.0
96         '^v' => ['ci ext'],
97         '^?' => '^x^h',
98 },
99
100 }