termcol: float tables automatically
[sheet.git] / mutt.inc.pl
1 use utf8;
2
3 my %common = (
4         'H' => ["screen top", 'pm'], # top-page
5         'j' => ["entry $sign{down}", 'pm'], # next-entry, next-undeleted
6         'k' => ["entry $sign{up}", 'pm'], # previous-entry, previous-undeleted
7         'L' => ["screen bottom", 'pm'], # bottom-page
8         '^l'=> ["redraw", 'ci'], # refresh
9         'M' => ["screen middle", 'pm'], # middle-page
10         '^m'=> ["select", 'mi mode^m'], # select-entry, display-message
11         'n' => ["search $sign{down}", 'po'], # search-next
12         'q' => ["exit", 'mv mode'], # exit
13         't' => ["tag", 'co'], # tag-entry
14         'z' => ["page $sign{down}", 'pm'], # next-page
15         'Z' => ["page $sign{up}", 'pm'], # previous-page
16
17         '*' => ["last entry", 'pm'], # last-entry
18         '=' => ["first entry", 'pm'], # first-entry
19         ':' => ["enter command", 'mi'], # enter-command
20         ';' => ["apply to tagged", 'mi arg'], # tag-prefix
21         '>' => ["line $sign{down}", 'pm'], # next-line
22         '<' => ["line $sign{up}", 'pm'], # previous-line
23         ']' => ["half page $sign{down}", 'pm'], # half-down
24         '[' => ["half page $sign{up}", 'pm'], # half-up
25         '?' => ["help", 'ci'], # help
26         '!' => ["invoke shell", 'ci arg'], # shell
27         '/' => ["search $sign{down}", 'po arg mode/~'], # search
28         '+/'=> ["search $sign{up}", 'po arg mode/~'], # search
29 );
30
31 '' => {
32         desc => 'index',
33
34         %common,
35
36         '@' => ["display sender", 'ci'], # display-address
37         '.' => ["list new mail", 'mv'], # buffy-list #TODO
38         '|' => ["pipe to shell", 'mi'], # pipe-message
39         '$' => ["save mailbox", 'co'], # sync-mailbox
40         '#' => ["split up thread", 'co'], # break-thread
41         '&' => ["thread tagged", 'co'], # link-threads
42         '%' => ["toggle reado$sign{_}nl$sign{_}y", 'co'], # toggle-write
43         ' ' => '^m',
44
45         'a' => ["create alias", 'mi'], # create-alias
46         'b' => ["bounce", 'mo'], # bounce-message
47         '^b'=> ["url$sign{_}view", 'ci'],
48         '+b'=> ["search bodies"], # M <search>~b
49         'c' => ["open folder", 'mv'], # change-folder
50         'C' => ["copy messag$sign{_}e", 'mi'], # copy-message
51         '+c'=> ["open reado$sign{_}nly", 'mv'], # change-folder-readonly
52         '+C'=> ["make plain copy"], # decode-copy
53         'd' => ["delete", 'co'], # delete-message
54         'D' => ["delete patt$sign{_}er$sign{_}n", 'co arg'], # delete-pattern
55         '^d'=> ["delete thread", 'co'], # delete-thread
56         '+d'=> ["delete subthread", 'co'], # delete-subthread
57         'e' => ["edit", 'co'], # edit
58         '^e'=> ["edit con$sign{_}tent type", 'co'], # edit-type
59         '+e'=> ["edit+send copy"], # resend-message
60         'f' => ["forward", 'mo modem'], # forward-message
61         'F' => ["toggle important", 'co'], # flag-message
62         '^f'=> ["forget pass$sign{_}phras$sign{_}e", 'mi'], # forget-passphrase
63         'g' => ["reply to all", 'mo modem', 'Group reply'], # group-reply
64         'G' => ["fetch POP", 'mi', 'Gather new mail'], # fetch-mail
65         'h' => ["toggle headers", 'me'], # display-toggle-weed
66         '^i'=> ["unread msg $sign{down}", 'po'], # next-new-then-unread
67         '+^i'=> ["unread msg $sign{up}"], # previous-new-then-unread
68         'j' => ["messag$sign{_}e $sign{down}", 'pm'], # next-undeleted
69         'k' => ["messag$sign{_}e $sign{up}", 'pm'], # previous-undeleted
70         'J' => ["any $sign{down}", 'po'], # next-entry
71         'K' => ["any $sign{up}", 'po'], # previous-entry
72         '^k'=> ["extract pub keys", 'ci'], # extract-keys
73         '+k'=> ["send public key", 'mo modem'], # mail-key
74         'l' => ["limit pattern", 'me'], # limit
75         'L' => ["reply to list", 'mo modem'], # list-reply
76         '+l'=> ["show current limit", 'ci'], # show-limit
77         'm' => ["compo$sign{_}s$sign{_}e mail", 'mo modem'], # mail
78         'N' => ["toggle new", 'co'], # toggle-new
79         '^n'=> ["thread $sign{down}", 'po'], # next-thread
80         '+n'=> ["subthr$sign{_}ead $sign{down}", 'po'], # next-subthread
81         'o' => ["sort", 'me modeo'], # sort-mailbox
82         'O' => ["sort reverse", 'me modeo'], # sort-reverse
83         'p' => ["print", 'ci'], # print-message
84         'P' => ["to parent", 'po'], # parent-message
85         '^p'=> ["thread $sign{up}", 'po'], # previous-thread
86         '+p'=> ["subthr$sign{_}ead $sign{up}", 'po'], # previous-subthread
87         '+P'=> ["check for pgp"], # check-traditional-pgp
88         'q' => ["quit", 'mv'], # quit
89         'Q' => ["query addr$sign{_}ess$sign{_}es", 'ci arg'], # query
90         'r' => ["reply to sender", 'mo modem'], # reply
91         'R' => ["recall postpon$sign{_}e$sign{_}d", 'mo modem'], # recall-message
92         '^r'=> ["mark thread read", 'co'], # read-thread
93         '+r'=> ["mark sub$sign{_}thread r$sign{_}ead", 'co'], # read-subthread
94         's' => ["move", 'co'], # save-message
95         '+s'=> ["save and delete", 'co'], # decode-save
96         'T' => ["tag patt$sign{_}er$sign{_}n", 'co arg'], # tag-pattern
97         '^t'=> ["untag pattern", 'co'], # untag-pattern
98         '+t'=> ["tag thread", 'co'], # tag-thread
99         'u' => ["undo delete", 'co'], # undelete-message
100         'U' => ["res$sign{_}tore pat$sign{_}t$sign{_}er$sign{_}n", 'co arg'], # undelete-pattern
101         '^u'=> ["restore thread", 'co'], # undelete-thread
102         '+u'=> ["restore subthread", 'co'], # undelete-subthread
103         'v' => ["attach$sign{_}ments", 'ci'], # view-attachments
104         'V' => ["version", 'ci'], # show-version
105         '+v'=> ["(un)collapse thread", 'me'], # collapse-thread
106         '+V'=> ["(un)collapse threads", 'me'], # collapse-all
107         'w' => ["set flag", 'co arg modew'], # set-flag
108         'W' => ["clear flag", 'co arg modew'], # clear-flag
109         'x' => ["abort", 'mv'], # exit
110         'y' => ["list incoming mailboxes", 'mv'], # M <change-folder>?<toggle-mailboxes>
111 }, # index
112
113 'm' => {
114         desc => 'compose (m)',
115
116         %common,
117
118         '|' => ["pipe attach$sign{_}m$sign{_}ent", 'co'],
119         'a' => ["attach file", 'mi'],
120         'A' => ["attach messag$sign{_}e", 'mi'],
121         'b' => ["edit bcc", 'co'],
122         'c' => ["edit cc", 'co'],
123         'C' => ["copy file", 'mi'],
124         'd' => ["desc$sign{_}ribe attach$sign{_}m$sign{_}ent", 'co'],
125         'D' => ["delete attach$sign{_}m$sign{_}ent", 'co'],
126         '^d'=> ["dispo$sign{_}sition tog$sign{_}gle", 'co'],
127         'e' => ["edit body", 'co linkvi'],
128         'E' => ["edit all", 'co linkvi'],
129         '^e'=> ["edit encoding", 'co'],
130         'f' => ["edit fcc", 'co'],
131         '^f'=> ["forget pass$sign{_}phrase", 'mi'],
132         '+f'=> ["edit from", 'co'],
133         'F' => ["filter attach$sign{_}m$sign{_}ent", 'co'],
134         'G' => ["get attach$sign{_}m$sign{_}ent", 'ci'],
135         'h' => ["display message", 'ci'],
136         'i' => ["run ispell", 'mi'],
137         'l' => ["print attach$sign{_}m$sign{_}ent", 'ci'],
138         'm' => ["edit attach$sign{_}m$sign{_}ent", 'co', 'Mime-appropriate open'],
139         'M' => ["edit mix", 'co'],
140         '^m'=> ["view attach$sign{_}m$sign{_}ent", 'ci'],
141         'n' => ["new attach$sign{_}m$sign{_}ent", 'mi'],
142         'P' => ["post$sign{_}pone", 'mv mode'],
143         'r' => ["edit reply$sign{_}-to", 'co'],
144         'R' => ["rename attach$sign{_}m$sign{_}ent", 'co'],
145         's' => ["edit subject", 'co'],
146         'S' => ["s/mime options", 'co menumS'],
147         't' => ["edit to", 'co'],
148         '^t'=> ["ctype attach$sign{_}m$sign{_}ent", 'co'],
149         'w' => ["copy to folder", 'mi'],
150         'u' => ["unlink toggle", 'mi'],
151         'U' => ["encode attach$sign{_}m$sign{_}ent", 'co'],
152         'y' => ["send", 'mo'],
153 }, # compose
154
155 w => {
156         desc => 'message flags (w)',
157
158         'D' => ["deleted", 'co'],
159         'd' => 'wD',
160         'N' => ["new", 'co'],
161         'n' => 'wN',
162         'O' => ["old", 'co'],
163         'o' => 'wO',
164         'r' => ["replied", 'co'],
165         'R' => 'wr',
166         '*' => ["tagged", 'co'],
167         '!' => ["flagged", 'co'],
168 }, # flag
169
170 '/~' => {
171         desc => 'search flags (/~)',
172
173         A => ["all"],
174         b => ["msg body", 'X arg'],
175         B => ["whole msg", 'arg'],
176         c => ["cc address", 'arg'],
177         C => ["to or cc address", 'arg'],
178         d => ["date sent ran$sign{_}g$sign{_}e", 'arg'],
179         D => ["deleted"],
180         e => ["sender", 'arg'],
181         E => ["expired"],
182         f => ["from", 'arg'],
183         F => ["flagged"],
184         g => ["signed"],
185         G => ["encryp$sign{_}ted"],
186         h => ["header", 'arg'],
187         H => ["spam attr$sign{_}ib$sign{_}ute", 'arg'],
188         i => ["msg id", 'arg'],
189         k => ["pgp key"],
190         L => ["receiv$sign{_}d by", 'arg'],
191         l => ["mailing list"],
192         m => ["num$sign{_}ber ran$sign{_}g$sign{_}e", 'arg'],
193         n => ["score range", 'arg'],
194         N => ["new"],
195         O => ["old"],
196         p => ["to you"],
197         P => ["by you"],
198         Q => ["replies"],
199         r => ["receive date ran$sign{_}ge", 'arg'],
200         R => ["read"],
201         s => ["subject"],
202         S => ["super$sign{_}seded"],
203         t => ["to address", 'arg'],
204         T => ["tagged"],
205         u => ["subscr$sign{_}ibed list"],
206         U => ["unread"],
207         v => ["collapsed thread"],
208         V => ["verified"],
209         x => ["refer$sign{_}ence", 'arg'],
210         X => ["attach$sign{_}ments", 'arg'],
211         y => ["x-label", 'arg'],
212         z => ["size range", 'arg'],
213         '=' => ["dupli$sign{_}cate"],
214         '$' => ["unrefer$sign{_}enced"],
215         '(' => ["in thread", 'arg'],
216 }, # search option
217