perl: final features for v5.22 release
[sheet.git] / screen.inc.pl
1 use utf8;
2
3 # screen version 4.00.03jw4
4
5 {
6
7 def => {
8 '' => {
9         desc => 'index',
10
11         'a' => ['g6', "literal a"],
12         'A' => ['g8 args', "title"], # title
13         '^a'=> ['', "command key"],
14         'b' => ['g6', "send break"], # break
15         'B' => ['g6', "reopen break"], # pow_break
16         '^b'=> 'b',
17         'c' => ['g8', "new"], # screen
18         'C' => ['g1', "clear"], # clear
19         '^c'=> 'c',
20         'd' => ['g8', "detach"], # detach
21         'D' => ['g8', "detach logout"], # pow_detach
22         '^d'=> 'd',
23         'f' => ['g3', "flow"], # flow
24         'F' => ['g3', "fit"],
25         '^f'=> 'f',
26         '^g'=> ['g3', "vbell"], # vbell
27         'h' => ['g5', "hardcopy"], # hardcopy
28         'H' => ['g4', "log"], # log
29         '^h'=> '^p',
30         'i' => ['g0', "prop$sign{_}erties"], # info
31         'I' => ['g4', "login on"], #XXX
32         '^i'=> ['g1', "focus"], # focus
33         'k' => ['g4', "kill"], # kill
34         'K' => 'k',
35         'l' => ['g1', "redraw"], # redisplay
36         'L' => ['g4', "login"], # login
37         '^l'=> 'l',
38         'm' => ['g0', "last msg"], # lastmsg
39         'M' => ['g4', "moni$sign{_}tor"], # monitor
40         '^m'=> 'm',
41         'n' => ['g2', "next"], # next
42         'N' => ['g0', "number"], # number
43         '^n'=> 'n',
44         'O' => ['g4', "login off"], #XXX
45         '^o'=> ['g2', "other"], # other
46         'p' => ['g2', "previous"], # prev
47         '^p'=> 'p',
48         'q' => ['g3', "xon"], # xon
49         'Q' => ['g1', "only"], # only
50         '^q'=> 'q',
51         'r' => ['g3', "wrap"], # wrap
52         '^r'=> 'r',
53         's' => ['g3', 'xoff'], # xoff
54         '^s'=> 's',
55         't' => ['g0', "time"], # time
56         '^t'=> 't',
57         'v' => ['g0', "version"],
58         '^v'=> ['g6 arg arg linkdigraphs', "digraph"], # digraph
59         'w' => ['g0', "windows"], # windows
60         'W' => ['g3', "width"], # width
61         '^w'=> 'w',
62         'x' => ['g8', "lock screen"], # lockscreen
63         'X' => ['g1', "remove"], # remove
64         '^x'=> 'x',
65         'z' => ['g8', "suspend"], # suspend
66         'Z' => ['g8', "reset"],
67         '^z'=> 'z',
68
69         "'" => ['g2 arg', "select"], # select
70         '"' => ['g2', "window$sign{_}list -b"], # windowlist -b
71         ':' => ['g3', "colon"], # colon
72         "\e"=> ['g5', "copy"], # copy
73         '[' => '^[',
74         '^['=> "\e",
75         '^]'=> ['g6', "paste ."], # paste .
76         ']' => '^]',
77         '|' => ['g1', "split vert"], # split -v
78         '{' => ['g6', "history"], # history
79         '}' => ['g6', "history"], # history
80         '=' => ['g5', "remove buf"], # removebuf
81         '^?'=> '^h',
82         '*' => ['g0', "displays"], # displays
83         '.' => ['g8', "dump$sign{_}termcap"], # dumptermcap
84         ',' => ['g0', "license"], # license
85         '-' => ['g2', "select -"], # select -
86         '_' => ['g4', "silence"], # silence
87         '>' => ['g5', "writebuf"], # writebuf
88         '<' => ['g5', "readbuf"], # readbuf
89         '^@'=> 'n',
90 },
91 },
92
93 flag => {
94         g0 => ["info"],
95         g1 => ["display"],
96         g2 => ["select"],
97         g3 => ["config"],
98         g4 => ["window"],
99         g5 => ["buffer"],
100         g6 => ["contents"],
101         g8 => ["screen"],
102
103         arg => ["key$sign{arg}", "Commands with a dot need a char argument afterwards."],
104 },
105
106 }