1 | #include "owl.h" |
---|
2 | |
---|
3 | static const char fileIdent[] = "$Id$"; |
---|
4 | |
---|
5 | #define BIND_CMD(kpress, command, desc) \ |
---|
6 | owl_keymap_create_binding(km, kpress, command, NULL, desc); |
---|
7 | |
---|
8 | #define BIND_FNV(kpress, fn, desc) \ |
---|
9 | owl_keymap_create_binding(km, kpress, NULL, fn, desc); |
---|
10 | |
---|
11 | |
---|
12 | /* sets up the default keymaps */ |
---|
13 | void owl_keys_setup_keymaps(owl_keyhandler *kh) { |
---|
14 | owl_keymap *km, *km_global, *km_editwin, *km_mainwin, |
---|
15 | *km_ew_multi, *km_ew_onel, *km_viewwin; |
---|
16 | |
---|
17 | |
---|
18 | /****************************************************************/ |
---|
19 | /*************************** GLOBAL *****************************/ |
---|
20 | /****************************************************************/ |
---|
21 | |
---|
22 | km_global = km = owl_keyhandler_create_and_add_keymap(kh, "global", |
---|
23 | "System-wide default key bindings", |
---|
24 | owl_keys_default_invalid, NULL, NULL); |
---|
25 | BIND_CMD("C-z", "suspend", "Suspend owl"); |
---|
26 | |
---|
27 | /****************************************************************/ |
---|
28 | /***************************** EDIT *****************************/ |
---|
29 | /****************************************************************/ |
---|
30 | |
---|
31 | km_editwin = km = owl_keyhandler_create_and_add_keymap(kh, "edit", |
---|
32 | "Text editing and command window", |
---|
33 | owl_keys_editwin_default, NULL, owl_keys_editwin_postalways); |
---|
34 | owl_keymap_set_submap(km_editwin, km_global); |
---|
35 | /* |
---|
36 | BIND_CMD("F1", "help", ""); |
---|
37 | BIND_CMD("HELP", "help", ""); |
---|
38 | BIND_CMD("M-[ 2 8 ~", "help", ""); |
---|
39 | */ |
---|
40 | |
---|
41 | BIND_CMD("C-c", "edit:cancel", ""); |
---|
42 | BIND_CMD("C-g", "edit:cancel", ""); |
---|
43 | |
---|
44 | BIND_CMD("M-f", "edit:move-next-word", ""); |
---|
45 | BIND_CMD("M-O 3 C", "edit:move-next-word", ""); |
---|
46 | BIND_CMD("M-RIGHT", "edit:move-next-word", ""); |
---|
47 | BIND_CMD("M-[ 1 ; 3 D", "edit:move-next-word", ""); |
---|
48 | BIND_CMD("M-b", "edit:move-prev-word", ""); |
---|
49 | BIND_CMD("M-O 3 D", "edit:move-prev-word", ""); |
---|
50 | BIND_CMD("M-LEFT", "edit:move-prev-word", ""); |
---|
51 | BIND_CMD("M-[ 1 ; 3 C", "edit:move-next-word", ""); |
---|
52 | |
---|
53 | BIND_CMD("LEFT", "edit:move-left", ""); |
---|
54 | BIND_CMD("M-[ D", "edit:move-left", ""); |
---|
55 | BIND_CMD("C-b", "edit:move-left", ""); |
---|
56 | BIND_CMD("RIGHT", "edit:move-right", ""); |
---|
57 | BIND_CMD("M-[ C", "edit:move-right", ""); |
---|
58 | BIND_CMD("C-f", "edit:move-right", ""); |
---|
59 | |
---|
60 | BIND_CMD("M-<", "edit:move-to-buffer-start", ""); |
---|
61 | BIND_CMD("HOME", "edit:move-to-buffer-start", ""); |
---|
62 | BIND_CMD("M->", "edit:move-to-buffer-end", ""); |
---|
63 | BIND_CMD("END", "edit:move-to-buffer-end", ""); |
---|
64 | |
---|
65 | BIND_CMD("C-a", "edit:move-to-line-start", ""); |
---|
66 | BIND_CMD("C-e", "edit:move-to-line-end", ""); |
---|
67 | |
---|
68 | BIND_CMD("M-BACKSPACE", "edit:delete-prev-word", ""); |
---|
69 | BIND_CMD("M-DELETE", "edit:delete-prev-word", ""); |
---|
70 | BIND_CMD("M-d", "edit:delete-next-word", ""); |
---|
71 | BIND_CMD("M-DC", "edit:delete-next-word", ""); |
---|
72 | BIND_CMD("M-[ 3 ; 3 ~", "edit:delete-next-word", ""); |
---|
73 | |
---|
74 | BIND_CMD("C-h", "edit:delete-prev-char", ""); |
---|
75 | BIND_CMD("BACKSPACE", "edit:delete-prev-char", ""); |
---|
76 | BIND_CMD("DELETE", "edit:delete-prev-char", ""); |
---|
77 | BIND_CMD("C-d", "edit:delete-next-char", ""); |
---|
78 | BIND_CMD("DC", "edit:delete-next-char", ""); |
---|
79 | |
---|
80 | BIND_CMD("C-k", "edit:delete-to-line-end", ""); |
---|
81 | |
---|
82 | BIND_CMD("C-t", "edit:transpose-chars", ""); |
---|
83 | |
---|
84 | BIND_CMD("M-q", "edit:fill-paragraph", ""); |
---|
85 | |
---|
86 | BIND_CMD("C-@", "edit:set-mark", ""); |
---|
87 | BIND_CMD("C-x C-x", "edit:exchange-point-and-mark", ""); |
---|
88 | |
---|
89 | BIND_CMD("M-w", "edit:copy-region-as-kill", ""); |
---|
90 | BIND_CMD("C-w", "edit:kill-region", ""); |
---|
91 | BIND_CMD("C-y", "edit:yank", ""); |
---|
92 | |
---|
93 | BIND_CMD("C-l", "( edit:recenter ; redisplay )", ""); |
---|
94 | |
---|
95 | |
---|
96 | /****************************************************************/ |
---|
97 | /**************************** EDITMULTI *************************/ |
---|
98 | /****************************************************************/ |
---|
99 | |
---|
100 | km_ew_multi = km = owl_keyhandler_create_and_add_keymap(kh, "editmulti", |
---|
101 | "Multi-line text editing", |
---|
102 | owl_keys_editwin_default, NULL, owl_keys_editwin_postalways); |
---|
103 | owl_keymap_set_submap(km_ew_multi, km_editwin); |
---|
104 | |
---|
105 | BIND_CMD("UP", "editmulti:move-up-line", ""); |
---|
106 | BIND_CMD("M-[ A", "editmulti:move-up-line", ""); |
---|
107 | BIND_CMD("C-p", "editmulti:move-up-line", ""); |
---|
108 | BIND_CMD("DOWN", "editmulti:move-down-line", ""); |
---|
109 | BIND_CMD("M-[ B", "editmulti:move-down-line", ""); |
---|
110 | BIND_CMD("C-n", "editmulti:move-down-line", ""); |
---|
111 | |
---|
112 | BIND_CMD("M-}", "editmulti:forward-paragraph", ""); |
---|
113 | BIND_CMD("M-{", "editmulti:backward-paragraph", ""); |
---|
114 | |
---|
115 | /* This would be nice, but interferes with C-c to cancel */ |
---|
116 | /*BIND_CMD("C-c C-c", "editmulti:done", "sends the zephyr");*/ |
---|
117 | |
---|
118 | BIND_CMD("M-p", "edit:history-prev", ""); |
---|
119 | BIND_CMD("M-n", "edit:history-next", ""); |
---|
120 | |
---|
121 | /* note that changing "disable-ctrl-d" to "on" will change this to |
---|
122 | * edit:delete-next-char */ |
---|
123 | BIND_CMD("C-d", "editmulti:done-or-delete", "sends the zephyr if at the end of the message"); |
---|
124 | |
---|
125 | |
---|
126 | /****************************************************************/ |
---|
127 | /**************************** EDITLINE **************************/ |
---|
128 | /****************************************************************/ |
---|
129 | |
---|
130 | km_ew_onel = km = owl_keyhandler_create_and_add_keymap(kh, "editline", |
---|
131 | "Single-line text editing", |
---|
132 | owl_keys_editwin_default, NULL, owl_keys_editwin_postalways); |
---|
133 | owl_keymap_set_submap(km_ew_onel, km_editwin); |
---|
134 | |
---|
135 | BIND_CMD("C-u", "edit:delete-all", "Clears the entire line"); |
---|
136 | |
---|
137 | BIND_CMD("UP", "edit:history-prev", ""); |
---|
138 | BIND_CMD("M-[ A", "edit:history-prev", ""); |
---|
139 | BIND_CMD("C-p", "edit:history-prev", ""); |
---|
140 | BIND_CMD("M-p", "edit:history-prev", ""); |
---|
141 | |
---|
142 | BIND_CMD("DOWN", "edit:history-next", ""); |
---|
143 | BIND_CMD("M-[ B", "edit:history-next", ""); |
---|
144 | BIND_CMD("C-n", "edit:history-next", ""); |
---|
145 | BIND_CMD("M-n", "edit:history-next", ""); |
---|
146 | |
---|
147 | BIND_CMD("LF", "editline:done", "executes the command"); |
---|
148 | BIND_CMD("CR", "editline:done", "executes the command"); |
---|
149 | |
---|
150 | |
---|
151 | /****************************************************************/ |
---|
152 | /**************************** EDITRESPONSE **********************/ |
---|
153 | /****************************************************************/ |
---|
154 | |
---|
155 | km_ew_onel = km = owl_keyhandler_create_and_add_keymap(kh, "editresponse", |
---|
156 | "Single-line response to question", |
---|
157 | owl_keys_editwin_default, NULL, owl_keys_editwin_postalways); |
---|
158 | owl_keymap_set_submap(km_ew_onel, km_editwin); |
---|
159 | |
---|
160 | BIND_CMD("C-u", "edit:delete-all", "Clears the entire line"); |
---|
161 | |
---|
162 | BIND_CMD("LF", "editresponse:done", "executes the command"); |
---|
163 | BIND_CMD("CR", "editresponse:done", "executes the command"); |
---|
164 | |
---|
165 | |
---|
166 | /****************************************************************/ |
---|
167 | /**************************** POPLESS ***************************/ |
---|
168 | /****************************************************************/ |
---|
169 | |
---|
170 | km_viewwin = km = owl_keyhandler_create_and_add_keymap(kh, "popless", |
---|
171 | "Pop-up window (eg, help)", |
---|
172 | owl_keys_default_invalid, NULL, owl_keys_popless_postalways); |
---|
173 | owl_keymap_set_submap(km_viewwin, km_global); |
---|
174 | |
---|
175 | BIND_CMD("SPACE", "popless:scroll-down-page", ""); |
---|
176 | BIND_CMD("NPAGE", "popless:scroll-down-page", ""); |
---|
177 | BIND_CMD("M-n", "popless:scroll-down-page", ""); |
---|
178 | |
---|
179 | BIND_CMD("b", "popless:scroll-up-page", ""); |
---|
180 | BIND_CMD("PPAGE", "popless:scroll-up-page", "") |
---|
181 | BIND_CMD("M-p", "popless:scroll-up-page", ""); |
---|
182 | |
---|
183 | BIND_CMD("CR", "popless:scroll-down-line", ""); |
---|
184 | BIND_CMD("LF", "popless:scroll-down-line", ""); |
---|
185 | BIND_CMD("DOWN", "popless:scroll-down-line", ""); |
---|
186 | BIND_CMD("M-[ B", "popless:scroll-down-line", ""); |
---|
187 | BIND_CMD("C-n", "popless:scroll-down-line", ""); |
---|
188 | |
---|
189 | BIND_CMD("UP", "popless:scroll-up-line", ""); |
---|
190 | BIND_CMD("M-[ A", "popless:scroll-up-line", ""); |
---|
191 | BIND_CMD("C-h", "popless:scroll-up-line", ""); |
---|
192 | BIND_CMD("C-p", "popless:scroll-up-line", ""); |
---|
193 | BIND_CMD("DELETE", "popless:scroll-up-line", ""); |
---|
194 | BIND_CMD("BACKSPACE", "popless:scroll-up-line", ""); |
---|
195 | BIND_CMD("DC", "popless:scroll-up-line", ""); |
---|
196 | |
---|
197 | BIND_CMD("RIGHT", "popless:scroll-right 10", "scrolls right"); |
---|
198 | BIND_CMD("M-[ C", "popless:scroll-right 10", "scrolls right"); |
---|
199 | BIND_CMD("LEFT", "popless:scroll-left 10", "scrolls left"); |
---|
200 | BIND_CMD("M-[ D", "popless:scroll-left 10", "scrolls left"); |
---|
201 | |
---|
202 | BIND_CMD("HOME", "popless:scroll-to-top", ""); |
---|
203 | BIND_CMD("<", "popless:scroll-to-top", ""); |
---|
204 | BIND_CMD("M-<", "popless:scroll-to-top", ""); |
---|
205 | |
---|
206 | BIND_CMD("END", "popless:scroll-to-bottom", ""); |
---|
207 | BIND_CMD(">", "popless:scroll-to-bottom", ""); |
---|
208 | BIND_CMD("M->", "popless:scroll-to-bottom", ""); |
---|
209 | |
---|
210 | BIND_CMD("q", "popless:quit", ""); |
---|
211 | BIND_CMD("C-c", "popless:quit", ""); |
---|
212 | BIND_CMD("C-g", "popless:quit", ""); |
---|
213 | |
---|
214 | BIND_CMD("C-l", "redisplay", ""); |
---|
215 | |
---|
216 | |
---|
217 | /****************************************************************/ |
---|
218 | /***************************** RECV *****************************/ |
---|
219 | /****************************************************************/ |
---|
220 | |
---|
221 | km_mainwin = km = owl_keyhandler_create_and_add_keymap(kh, "recv", |
---|
222 | "Main window / message list", |
---|
223 | owl_keys_default_invalid, owl_keys_recwin_prealways, NULL); |
---|
224 | owl_keymap_set_submap(km_mainwin, km_global); |
---|
225 | BIND_CMD("C-x C-c", "start-command quit", ""); |
---|
226 | BIND_CMD("F1", "help", ""); |
---|
227 | BIND_CMD("h", "help", ""); |
---|
228 | BIND_CMD("HELP", "help", ""); |
---|
229 | BIND_CMD("M-[ 2 8 ~", "help", ""); |
---|
230 | |
---|
231 | BIND_CMD(":", "start-command", "start a new command"); |
---|
232 | BIND_CMD("M-x", "start-command", "start a new command"); |
---|
233 | |
---|
234 | BIND_CMD("x", "expunge", ""); |
---|
235 | BIND_CMD("u", "undelete", ""); |
---|
236 | BIND_CMD("M-u", "undelete view", "undelete all messages in view"); |
---|
237 | BIND_CMD("d", "delete", "mark message for deletion"); |
---|
238 | BIND_CMD("M-D", "delete view", "mark all messages in view for deletion"); |
---|
239 | BIND_CMD("C-x k", "smartzpunt -i", "zpunt current <class,instance>"); |
---|
240 | |
---|
241 | BIND_CMD("X", "( expunge ; view --home )", "expunge deletions and switch to home view"); |
---|
242 | |
---|
243 | BIND_CMD("v", "start-command view ", "start a view command"); |
---|
244 | BIND_CMD("V", "view --home", "change to the home view ('all' by default)"); |
---|
245 | BIND_CMD("!", "view -r", "invert the current view filter"); |
---|
246 | BIND_CMD("M-n", "smartnarrow", "narrow to a view based on the current message"); |
---|
247 | BIND_CMD("M-N", "smartnarrow -i", "narrow to a view based on the current message, and consider instance pair"); |
---|
248 | BIND_CMD("M-p", "view personal", ""); |
---|
249 | |
---|
250 | BIND_CMD("/", "start-command search ", "start a search command"); |
---|
251 | BIND_CMD("?", "start-command search -r ", "start a reverse search command"); |
---|
252 | |
---|
253 | BIND_CMD("LEFT", "recv:shiftleft", ""); |
---|
254 | BIND_CMD("M-[ D", "recv:shiftleft", ""); |
---|
255 | BIND_CMD("RIGHT", "recv:shiftright",""); |
---|
256 | BIND_CMD("M-[ C", "recv:shiftright",""); |
---|
257 | BIND_CMD("DOWN", "recv:next", ""); |
---|
258 | BIND_CMD("C-n", "recv:next", ""); |
---|
259 | BIND_CMD("M-[ B", "recv:next", ""); |
---|
260 | BIND_CMD("M-C-n", "recv:next --smart-filter", "move to next message matching the current one"); |
---|
261 | BIND_CMD("UP", "recv:prev", ""); |
---|
262 | BIND_CMD("M-[ A", "recv:prev", ""); |
---|
263 | BIND_CMD("n", "recv:next-notdel", ""); |
---|
264 | BIND_CMD("p", "recv:prev-notdel", ""); |
---|
265 | BIND_CMD("C-p", "recv:prev", ""); |
---|
266 | BIND_CMD("M-C-p", "recv:prev --smart-filter", "move to previous message matching the current one"); |
---|
267 | BIND_CMD("P", "recv:next-personal", ""); |
---|
268 | BIND_CMD("M-P", "recv:prev-personal", ""); |
---|
269 | BIND_CMD("M-<", "recv:first", ""); |
---|
270 | BIND_CMD("<", "recv:first", ""); |
---|
271 | BIND_CMD("M->", "recv:last", ""); |
---|
272 | BIND_CMD(">", "recv:last", ""); |
---|
273 | BIND_CMD("C-v", "recv:pagedown", ""); |
---|
274 | BIND_CMD("NPAGE", "recv:pagedown", ""); |
---|
275 | BIND_CMD("M-v", "recv:pageup", ""); |
---|
276 | BIND_CMD("PPAGE", "recv:pageup", ""); |
---|
277 | BIND_CMD("C-@", "recv:mark", ""); |
---|
278 | BIND_CMD("C-x C-x", "recv:swapmark", ""); |
---|
279 | |
---|
280 | BIND_CMD("SPACE", "recv:scroll 10", "scroll message down a page"); |
---|
281 | BIND_CMD("CR", "recv:scroll 1", "scroll message down a line"); |
---|
282 | BIND_CMD("LF", "recv:scroll 1", "scroll message down a line"); |
---|
283 | BIND_CMD("C-h" , "recv:scroll -1", "scroll message up a line"); |
---|
284 | BIND_CMD("DELETE", "recv:scroll -1", "scroll message up a line"); |
---|
285 | BIND_CMD("BACKSPACE", "recv:scroll -1", "scroll message up a line"); |
---|
286 | BIND_CMD("DC", "recv:scroll -1", "scroll message up a line"); |
---|
287 | BIND_CMD("b", "recv:scroll -10", "scroll message up a page"); |
---|
288 | |
---|
289 | BIND_CMD("C-l", "redisplay", ""); |
---|
290 | |
---|
291 | BIND_CMD("i", "info", ""); |
---|
292 | BIND_CMD("l", "blist", ""); |
---|
293 | BIND_CMD("B", "alist", ""); |
---|
294 | BIND_CMD("M", "pop-message", ""); |
---|
295 | BIND_CMD("T", "delete trash", "mark all 'trash' messages for deletion"); |
---|
296 | |
---|
297 | BIND_CMD("o", "toggle-oneline", ""); |
---|
298 | |
---|
299 | BIND_CMD("A", "away toggle", "toggles away message on and off"); |
---|
300 | |
---|
301 | BIND_CMD("z", "start-command zwrite ", "start a zwrite command"); |
---|
302 | BIND_CMD("a", "start-command aimwrite ", "start an aimwrite command"); |
---|
303 | BIND_CMD("r", "reply", "reply to the current message"); |
---|
304 | BIND_CMD("R", "reply sender", "reply to sender of the current message"); |
---|
305 | BIND_CMD("C-r", "reply -e", "reply to the current message, but allow editing of recipient"); |
---|
306 | BIND_CMD("M-r", "reply -e", "reply to the current message, but allow editing of recipient"); |
---|
307 | BIND_CMD("M-R", "reply -e sender", "reply to sender of the current message, but allow editing of recipient"); |
---|
308 | |
---|
309 | BIND_CMD("W", "start-command webzephyr ", "start a webzephyr command"); |
---|
310 | |
---|
311 | BIND_CMD("C-c", "", "no effect in this mode"); |
---|
312 | BIND_CMD("C-g", "", "no effect in this mode"); |
---|
313 | |
---|
314 | |
---|
315 | /**********************/ |
---|
316 | |
---|
317 | owl_function_activate_keymap("recv"); |
---|
318 | |
---|
319 | } |
---|
320 | |
---|
321 | |
---|
322 | /****************************************************************/ |
---|
323 | /********************* Support Functions ************************/ |
---|
324 | /****************************************************************/ |
---|
325 | |
---|
326 | void owl_keys_recwin_prealways(owl_input j) { |
---|
327 | /* Clear the message line on subsequent key presses */ |
---|
328 | owl_function_makemsg(""); |
---|
329 | } |
---|
330 | |
---|
331 | void owl_keys_editwin_default(owl_input j) { |
---|
332 | owl_editwin *e; |
---|
333 | if (NULL != (e=owl_global_get_typwin(&g))) { |
---|
334 | owl_editwin_process_char(e, j); |
---|
335 | } |
---|
336 | } |
---|
337 | |
---|
338 | void owl_keys_editwin_postalways(owl_input j) { |
---|
339 | owl_editwin *e; |
---|
340 | if (NULL != (e=owl_global_get_typwin(&g))) { |
---|
341 | owl_editwin_post_process_char(e, j); |
---|
342 | } |
---|
343 | owl_global_set_needrefresh(&g); |
---|
344 | } |
---|
345 | |
---|
346 | void owl_keys_popless_postalways(owl_input j) { |
---|
347 | owl_viewwin *v = owl_global_get_viewwin(&g); |
---|
348 | owl_popwin *pw = owl_global_get_popwin(&g); |
---|
349 | |
---|
350 | if (pw && owl_popwin_is_active(pw) && v) { |
---|
351 | owl_viewwin_redisplay(v, 1); |
---|
352 | } |
---|
353 | } |
---|
354 | |
---|
355 | void owl_keys_default_invalid(owl_input j) { |
---|
356 | if (j.ch==ERR) return; |
---|
357 | if (j.ch==410) return; |
---|
358 | owl_keyhandler_invalidkey(owl_global_get_keyhandler(&g)); |
---|
359 | } |
---|
360 | |
---|