source: keys.c @ d15ea5f

release-1.10release-1.7release-1.8release-1.9
Last change on this file since d15ea5f was 68f63a2, checked in by David Benjamin <davidben@mit.edu>, 15 years ago
Port owl_viewwin to owl_window A number of hacks. This is just a test run of the API.
  • Property mode set to 100644
File size: 14.9 KB
RevLine 
[7d4fbcd]1#include "owl.h"
2
3#define BIND_CMD(kpress, command, desc) \
[65a9870]4         owl_keymap_create_binding(km, kpress, command, NULL, desc)
[7d4fbcd]5
6#define BIND_FNV(kpress, fn, desc) \
[65a9870]7         owl_keymap_create_binding(km, kpress, NULL, fn, desc)
[7d4fbcd]8
9
10/* sets up the default keymaps */
11void owl_keys_setup_keymaps(owl_keyhandler *kh) {
12  owl_keymap *km, *km_global, *km_editwin, *km_mainwin,
13    *km_ew_multi, *km_ew_onel, *km_viewwin;
14
15 
16  /****************************************************************/
17  /*************************** GLOBAL *****************************/
18  /****************************************************************/
19
20  km_global = km = owl_keyhandler_create_and_add_keymap(kh, "global",
21       "System-wide default key bindings", 
22       owl_keys_default_invalid, NULL, NULL);
[b752f1e]23  BIND_CMD("C-z",      "message Use :suspend to suspend.", "");
[7d4fbcd]24
25  /****************************************************************/
26  /***************************** EDIT *****************************/
27  /****************************************************************/
28
29  km_editwin = km = owl_keyhandler_create_and_add_keymap(kh, "edit",
30       "Text editing and command window", 
31       owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
[44cc9ab]32  owl_keymap_set_parent(km_editwin, km_global);
[2674412]33  /*
[7d4fbcd]34  BIND_CMD("F1",          "help",            "");
35  BIND_CMD("HELP",        "help",            "");
36  BIND_CMD("M-[ 2 8 ~",   "help",            "");
[2674412]37  */
[7d4fbcd]38
39  BIND_CMD("C-c",         "edit:cancel", "");
40  BIND_CMD("C-g",         "edit:cancel", "");
41
42  BIND_CMD("M-f",         "edit:move-next-word", "");
43  BIND_CMD("M-O 3 C",     "edit:move-next-word", "");
[4f0a2ee]44  BIND_CMD("M-RIGHT",     "edit:move-next-word", "");
[ddf1835]45  BIND_CMD("M-[ 1 ; 3 D", "edit:move-next-word", "");
[7d4fbcd]46  BIND_CMD("M-b",         "edit:move-prev-word", "");
47  BIND_CMD("M-O 3 D",     "edit:move-prev-word", "");
[4f0a2ee]48  BIND_CMD("M-LEFT",      "edit:move-prev-word", "");
[ddf1835]49  BIND_CMD("M-[ 1 ; 3 C", "edit:move-next-word", "");
[7d4fbcd]50
51  BIND_CMD("LEFT",        "edit:move-left", "");
[50f8932]52  BIND_CMD("M-[ D",       "edit:move-left", "");
[7d4fbcd]53  BIND_CMD("C-b",         "edit:move-left", "");
54  BIND_CMD("RIGHT",       "edit:move-right", "");
[50f8932]55  BIND_CMD("M-[ C",       "edit:move-right", "");
[7d4fbcd]56  BIND_CMD("C-f",         "edit:move-right", "");
57
58  BIND_CMD("M-<",         "edit:move-to-buffer-start", "");
59  BIND_CMD("HOME",        "edit:move-to-buffer-start", "");
60  BIND_CMD("M->",         "edit:move-to-buffer-end", "");
61  BIND_CMD("END",         "edit:move-to-buffer-end", "");
62
63  BIND_CMD("C-a",         "edit:move-to-line-start", "");
64  BIND_CMD("C-e",         "edit:move-to-line-end", "");
65
[262422c]66  BIND_CMD("M-BACKSPACE", "edit:delete-prev-word", "");
[b68f9cd]67  BIND_CMD("M-DELETE",    "edit:delete-prev-word", "");
[7d4fbcd]68  BIND_CMD("M-d",         "edit:delete-next-word", "");
[ce56149]69  BIND_CMD("M-DC",        "edit:delete-next-word", "");
[7d4fbcd]70  BIND_CMD("M-[ 3 ; 3 ~", "edit:delete-next-word", "");
71
72  BIND_CMD("C-h",         "edit:delete-prev-char", "");
73  BIND_CMD("BACKSPACE",   "edit:delete-prev-char", "");
74  BIND_CMD("DELETE",      "edit:delete-prev-char", "");
[ce56149]75  BIND_CMD("C-d",         "edit:delete-next-char", "");
76  BIND_CMD("DC",          "edit:delete-next-char", "");
[7d4fbcd]77
78  BIND_CMD("C-k",         "edit:delete-to-line-end", "");
79
[f2e36b5]80  BIND_CMD("C-t",         "edit:transpose-chars", "");
81
[7d4fbcd]82  BIND_CMD("M-q",         "edit:fill-paragraph", "");
83
[7f0c26f]84  BIND_CMD("C-@",         "edit:set-mark", "");
85  BIND_CMD("C-x C-x",     "edit:exchange-point-and-mark", "");
86
[a60edf2]87  BIND_CMD("M-w",         "edit:copy-region-as-kill", "");
88  BIND_CMD("C-w",         "edit:kill-region", "");
89  BIND_CMD("C-y",         "edit:yank", "");
90
[7d4fbcd]91  BIND_CMD("C-l",         "( edit:recenter ; redisplay )", "");
92
93
94  /****************************************************************/
95  /**************************** EDITMULTI *************************/
96  /****************************************************************/
97
98  km_ew_multi = km = owl_keyhandler_create_and_add_keymap(kh, "editmulti",
99       "Multi-line text editing", 
100       owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
[44cc9ab]101  owl_keymap_set_parent(km_ew_multi, km_editwin);
[7d4fbcd]102
[435d6b2]103  BIND_CMD("UP",      "edit:move-up-line", "");
104  BIND_CMD("M-[ A",   "edit:move-up-line", "");
105  BIND_CMD("C-p",     "edit:move-up-line", "");
106  BIND_CMD("DOWN",    "edit:move-down-line", "");
107  BIND_CMD("M-[ B",   "edit:move-down-line", "");
108  BIND_CMD("C-n",     "edit:move-down-line", "");
[7d4fbcd]109
[435d6b2]110  BIND_CMD("M-}",     "edit:forward-paragraph", "");
111  BIND_CMD("M-{",     "edit:backward-paragraph", "");
[2fc8397]112
[7d4fbcd]113  /* This would be nice, but interferes with C-c to cancel */
[435d6b2]114  /*BIND_CMD("C-c C-c", "edit:done", "sends the zephyr");*/
[7d4fbcd]115
[10b866d]116  BIND_CMD("M-p",         "edit:history-prev", "");
117  BIND_CMD("M-n",         "edit:history-next", "");
118
[217a43e]119  /* note that changing "disable-ctrl-d" to "on" will change this to
[7d4fbcd]120   * edit:delete-next-char */
[435d6b2]121  BIND_CMD("C-d",     "edit:done-or-delete", "sends the zephyr if at the end of the message");
[7d4fbcd]122
123
124  /****************************************************************/
125  /**************************** EDITLINE **************************/
126  /****************************************************************/
127
128  km_ew_onel = km = owl_keyhandler_create_and_add_keymap(kh, "editline",
129       "Single-line text editing", 
130       owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
[44cc9ab]131  owl_keymap_set_parent(km_ew_onel, km_editwin);
[7d4fbcd]132
133  BIND_CMD("C-u",         "edit:delete-all", "Clears the entire line");
134
135  BIND_CMD("UP",          "edit:history-prev", "");
[50f8932]136  BIND_CMD("M-[ A",       "edit:history-prev", "");
[7d4fbcd]137  BIND_CMD("C-p",         "edit:history-prev", "");
138  BIND_CMD("M-p",         "edit:history-prev", "");
139
140  BIND_CMD("DOWN",        "edit:history-next", "");
[50f8932]141  BIND_CMD("M-[ B",       "edit:history-next", "");
[7d4fbcd]142  BIND_CMD("C-n",         "edit:history-next", "");
143  BIND_CMD("M-n",         "edit:history-next", "");
144
145  BIND_CMD("LF",          "editline:done", "executes the command");
146  BIND_CMD("CR",          "editline:done", "executes the command");
147
[cf83b7a]148 
149  /****************************************************************/
150  /**************************** EDITRESPONSE **********************/
151  /****************************************************************/
152
153  km_ew_onel = km = owl_keyhandler_create_and_add_keymap(kh, "editresponse",
154       "Single-line response to question", 
155       owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
[44cc9ab]156  owl_keymap_set_parent(km_ew_onel, km_editwin);
[cf83b7a]157
158  BIND_CMD("C-u",         "edit:delete-all", "Clears the entire line");
159
160  BIND_CMD("LF",          "editresponse:done", "executes the command");
161  BIND_CMD("CR",          "editresponse:done", "executes the command");
162
[7d4fbcd]163
164  /****************************************************************/
165  /**************************** POPLESS ***************************/
166  /****************************************************************/
167
168  km_viewwin = km = owl_keyhandler_create_and_add_keymap(kh, "popless",
169       "Pop-up window (eg, help)", 
170       owl_keys_default_invalid, NULL, owl_keys_popless_postalways);
[44cc9ab]171  owl_keymap_set_parent(km_viewwin, km_global);
[7d4fbcd]172
173  BIND_CMD("SPACE",       "popless:scroll-down-page", "");
174  BIND_CMD("NPAGE",       "popless:scroll-down-page", "");
175  BIND_CMD("M-n",         "popless:scroll-down-page", "");
[ffd50fe]176  BIND_CMD("C-v",         "popless:scroll-down-page", "");
[7d4fbcd]177
178  BIND_CMD("b",           "popless:scroll-up-page", "");
[65a9870]179  BIND_CMD("PPAGE",       "popless:scroll-up-page", "");
[7d4fbcd]180  BIND_CMD("M-p",         "popless:scroll-up-page", "");
[ffd50fe]181  BIND_CMD("M-v",         "popless:scroll-up-page", "");
[7d4fbcd]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", "");
[50f8932]186  BIND_CMD("M-[ B",       "popless:scroll-down-line", "");
[8b16467]187  BIND_CMD("C-n",         "popless:scroll-down-line", "");
[7d4fbcd]188
189  BIND_CMD("UP",          "popless:scroll-up-line", "");
[50f8932]190  BIND_CMD("M-[ A",       "popless:scroll-up-line", "");
[7d4fbcd]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");
[50f8932]198  BIND_CMD("M-[ C",       "popless:scroll-right 10", "scrolls right");
[7d4fbcd]199  BIND_CMD("LEFT",        "popless:scroll-left  10", "scrolls left");
[50f8932]200  BIND_CMD("M-[ D",       "popless:scroll-left  10", "scrolls left");
[7d4fbcd]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
[8938188]206  BIND_CMD("END",         "popless:scroll-to-bottom", "");
[7d4fbcd]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);
[44cc9ab]224  owl_keymap_set_parent(km_mainwin, km_global);
[67103d4]225  BIND_CMD("C-x C-c", "start-command quit", "");
[7d4fbcd]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",       "");
[6794f72]236  BIND_CMD("M-u",     "undelete view",  "undelete all messages in view");
[7d4fbcd]237  BIND_CMD("d",       "delete",         "mark message for deletion");
238  BIND_CMD("M-D",     "delete view",    "mark all messages in view for deletion");
[d36f2cb]239  BIND_CMD("C-x k",   "smartzpunt -i",  "zpunt current <class,instance>");
[7d4fbcd]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)");
[3895e23]245  BIND_CMD("!",   "view -r",          "invert the current view filter");
[7d4fbcd]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");
[8a5b5a1]248  BIND_CMD("M-m", "smartnarrow -r",   "like M-n but with 'narrow-related' temporarily flipped.");
249  BIND_CMD("M-M", "smartnarrow -ri",  "like M-N but with 'narrow-related' temporarily flipped.");
[ecd5dc5]250  BIND_CMD("M-p", "view personal", "");
251 
[1fd0b25]252  BIND_CMD("/",   "start-command search ", "start a search command");
[51c57f8]253  BIND_CMD("?",   "start-command search -r ", "start a reverse search command");
[1fd0b25]254
[6aa4611]255  BIND_CMD("HOME",   "recv:setshift 0","move the display all the way left");
[7d4fbcd]256  BIND_CMD("LEFT",   "recv:shiftleft", "");
[3004c9f]257  BIND_CMD("M-[ D",  "recv:shiftleft", "");
[7d4fbcd]258  BIND_CMD("RIGHT",  "recv:shiftright","");
[50f8932]259  BIND_CMD("M-[ C",  "recv:shiftright","");
[7d4fbcd]260  BIND_CMD("DOWN",   "recv:next",      "");
261  BIND_CMD("C-n",    "recv:next",      "");
[3004c9f]262  BIND_CMD("M-[ B",  "recv:next",      "");
[7360fab]263  BIND_CMD("M-C-n",  "recv:next --smart-filter", "move to next message matching the current one"); 
[7d4fbcd]264  BIND_CMD("UP",     "recv:prev",      "");
[3004c9f]265  BIND_CMD("M-[ A",  "recv:prev",      "");
[7d4fbcd]266  BIND_CMD("n",      "recv:next-notdel", "");
267  BIND_CMD("p",      "recv:prev-notdel", "");
268  BIND_CMD("C-p",    "recv:prev",        "");
[7360fab]269  BIND_CMD("M-C-p",  "recv:prev --smart-filter", "move to previous message matching the current one");
[7d4fbcd]270  BIND_CMD("P",      "recv:next-personal", "");
271  BIND_CMD("M-P",    "recv:prev-personal", "");
272  BIND_CMD("M-<",    "recv:first",     "");
273  BIND_CMD("<",      "recv:first",     "");
274  BIND_CMD("M->",    "recv:last",      "");
275  BIND_CMD(">",      "recv:last",      "");
276  BIND_CMD("C-v",    "recv:pagedown",  "");
277  BIND_CMD("NPAGE",  "recv:pagedown",  "");
278  BIND_CMD("M-v",    "recv:pageup",    "");
279  BIND_CMD("PPAGE",  "recv:pageup",    "");
[70110286]280  BIND_CMD("C-@",    "recv:mark",      "");
281  BIND_CMD("C-x C-x",    "recv:swapmark",  "");
[7d4fbcd]282
283  BIND_CMD("SPACE",     "recv:scroll  10", "scroll message down a page");
284  BIND_CMD("CR",        "recv:scroll   1", "scroll message down a line");
285  BIND_CMD("LF",        "recv:scroll   1", "scroll message down a line");
286  BIND_CMD("C-h"  ,     "recv:scroll  -1", "scroll message up a line");
287  BIND_CMD("DELETE",    "recv:scroll  -1", "scroll message up a line");
288  BIND_CMD("BACKSPACE", "recv:scroll  -1", "scroll message up a line");
289  BIND_CMD("DC",        "recv:scroll  -1", "scroll message up a line");
290  BIND_CMD("b",         "recv:scroll -10", "scroll message up a page");
291
292  BIND_CMD("C-l",       "redisplay",       "");
293
294  BIND_CMD("i",   "info",             "");
[aa5f725]295  BIND_CMD("l",   "blist",            "");
[38cf544c]296  BIND_CMD("B",   "alist",            "");
[7d4fbcd]297  BIND_CMD("M",   "pop-message",      "");
298  BIND_CMD("T",   "delete trash",     "mark all 'trash' messages for deletion");
299
[c3ab155]300  BIND_CMD("o",   "toggle-oneline", "");
301
[c65d81e]302  BIND_CMD("A",   "away toggle",     "toggles away message on and off");
[7d4fbcd]303
304  BIND_CMD("z",   "start-command zwrite ", "start a zwrite command");
[440ce01]305  BIND_CMD("a",   "start-command aimwrite ", "start an aimwrite command");
[7d4fbcd]306  BIND_CMD("r",   "reply",            "reply to the current message");
307  BIND_CMD("R",   "reply sender",     "reply to sender of the current message");
308  BIND_CMD("C-r", "reply -e",         "reply to the current message, but allow editing of recipient");
[e50cd56]309  BIND_CMD("M-r", "reply -e",         "reply to the current message, but allow editing of recipient");
310  BIND_CMD("M-R", "reply -e sender",  "reply to sender of the current message, but allow editing of recipient");
[7d4fbcd]311
[0b6b689]312  BIND_CMD("W",   "start-command webzephyr ", "start a webzephyr command");
313
[7d4fbcd]314  BIND_CMD("C-c",  "",                "no effect in this mode");
315  BIND_CMD("C-g",  "",                "no effect in this mode");
316}
317
318
319/****************************************************************/
320/********************* Support Functions ************************/
321/****************************************************************/
322
[428834d]323void owl_keys_recwin_prealways(owl_input j) {
[7d4fbcd]324  /* Clear the message line on subsequent key presses */
325  owl_function_makemsg("");
326}
327
[428834d]328void owl_keys_editwin_default(owl_input j) {
[7d4fbcd]329  owl_editwin *e;
[fac5463]330  if (NULL != (e=owl_global_get_typwin(&g))) {
331       owl_editwin_process_char(e, j);
[7d4fbcd]332  }
333}
334
[428834d]335void owl_keys_editwin_postalways(owl_input j) {
[7d4fbcd]336  owl_editwin *e;
[fac5463]337  if (NULL != (e=owl_global_get_typwin(&g))) {
338    owl_editwin_post_process_char(e, j);
339  }
[7d4fbcd]340  owl_global_set_needrefresh(&g);
341}
342
[428834d]343void owl_keys_popless_postalways(owl_input j) {
[7d4fbcd]344}
345
[428834d]346void owl_keys_default_invalid(owl_input j) {
347  if (j.ch==ERR) return;
348  if (j.ch==410) return;
[7d4fbcd]349  owl_keyhandler_invalidkey(owl_global_get_keyhandler(&g));
350}
351
Note: See TracBrowser for help on using the repository browser.