| Revision: | 1.1 |
| Committed: | Mon Nov 24 17:28:08 2003 UTC (20 years, 7 months ago) by pcg |
| Branch: | MAIN |
| CVS Tags: | rel-7_0, post_menubar_removal, rel-6_2, rel-6_3, rel-6_0, rel-6_1, rel-2_1_0, rel-5_5, rel-5_4, rel-5_7, rel-5_1, rel-5_0, rel-5_3, rel-5_2, rel-4_4, rel-4_6, rel-4_7, rel-5_9, rel-5_8, rel-4_2, rel-4_3, rel-3_7, rel-3_8, rel-3_5, rel-3_4, rel-3_3, rel-3_2, rel-2_8, rel-3_0, rel-4_0, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_0, rel-4_1, rel-1-9, rel-1-3, rel-1-2, rxvt-2-0, rel-1_9, rel-3_6, rel-2_7, rel-4_8, rel-4_9 |
| Log Message: | *** empty log message *** |
| # | Content |
|---|---|
| 1 | %--------------------------------*-SLang-*-------------------------------- |
| 2 | % An example of using the rxvt menuBar for the JED editor |
| 3 | #if$TERM xterm* |
| 4 | %!% provide a hook to imitated the S-Lang> prompt |
| 5 | %!% use ESC[m to shadow the ESC[M used by mouse reporting |
| 6 | define menuFn () |
| 7 | { |
| 8 | variable ch, cmd; |
| 9 | |
| 10 | cmd = Null_String; |
| 11 | forever |
| 12 | { |
| 13 | ch = getkey (); |
| 14 | if (ch == '\r') break; |
| 15 | cmd = strcat (cmd, char (ch)); |
| 16 | } |
| 17 | eval (cmd); |
| 18 | } |
| 19 | local_setkey ("menuFn", "\e[m"); % menu |
| 20 | |
| 21 | %!% allow the user to bind their owm commands |
| 22 | define menucmd (str) { tt_send (Sprintf ("\e]10;%s\a", str, 1)); } |
| 23 | %------------------------------------------------------------------------- |
| 24 | % integrate these with any existing suspend/resume/exit hooks |
| 25 | % the suspend hook works best if there was already a menu defined |
| 26 | % before invoking JED |
| 27 | |
| 28 | define suspend_hook () { menucmd ("[prev]"); } |
| 29 | define resume_hook () { menucmd ("[next]"); } |
| 30 | define exit_hook () { menucmd ("[rm]"); exit_jed (); } |
| 31 | |
| 32 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 33 | menucmd ("[read:jedmenu.sl]"); % read this file |
| 34 | |
| 35 | % format _jed_version xyyzz into x.yy-zz |
| 36 | menucmd (Sprintf ("[:[title:Jed%d.%d-%d (%%n-%%v)]:]", |
| 37 | (_jed_version/10000), |
| 38 | ((_jed_version mod 10000)/100), |
| 39 | (_jed_version mod 100), |
| 40 | 3)); |
| 41 | |
| 42 | % get rid off pixmap stuff |
| 43 | if (strcmp (getenv ("COLORTERM"), "rxvt-xpm")) |
| 44 | { |
| 45 | menucmd ("[menu][:-/Terminal/Pixmap:][show]"); |
| 46 | } |
| 47 | #endif % xterm* |
| 48 | %%%%%%%%%%%%%%%%%%%%%%%%%%% end-of-file (SLang) %%%%%%%%%%%%%%%%%%%%%%%%%% |
| 49 | % rxvt menu database |
| 50 | #iffalse |
| 51 | % An example of using the rxvt menuBar for the JED editor |
| 52 | % possibly useful things for the JED editor -- assuming Emacs bindings |
| 53 | |
| 54 | [menu:jed] |
| 55 | |
| 56 | [title:Jed menu (%n-%v)] |
| 57 | % some convenient arrows |
| 58 | <b>\E[m<l>bskip_word<u>backward_paragraph<d>forward_paragraph<r>skip_word<e>\r |
| 59 | |
| 60 | /File/* |
| 61 | {Open}{^X^F} |
| 62 | {Save}{^X^W} |
| 63 | {Save Buffers}{^Xs} |
| 64 | {Insert File}{^Xi} |
| 65 | {-} |
| 66 | {Shell Cmd}{M-!} |
| 67 | {-} |
| 68 | {Exit}{^X^C} |
| 69 | |
| 70 | /Edit/* |
| 71 | {Undo}{^_} |
| 72 | {-} |
| 73 | {Cut}{^W} |
| 74 | {Copy}{M-W} |
| 75 | {Paste}{^Y} |
| 76 | |
| 77 | /Search/* |
| 78 | {Forward}{^S} |
| 79 | {Backward}{^R} |
| 80 | {Replace}{M-%} |
| 81 | {-} |
| 82 | ./Regexp/* |
| 83 | {Forward}{M-^S} |
| 84 | {Backward}{M-^R} |
| 85 | {Replace} \E[mquery_replace_match\r |
| 86 | |
| 87 | /Buffers/* |
| 88 | {Kill}{^Xk} |
| 89 | {List}{^X^B} |
| 90 | {Switch}{^Xb} |
| 91 | {-} |
| 92 | ./Modes/* |
| 93 | {C} \E[mc_mode\r |
| 94 | {SLang} \E[mslang_mode\r |
| 95 | {None} \E[mno_mode\r |
| 96 | {LaTeX} \E[mlatex_mode\r |
| 97 | {Text} \E[mtext_mode\r |
| 98 | {Fortran} \E[mfortran_mode\r |
| 99 | |
| 100 | /Window/* |
| 101 | {Delete}{^X0} |
| 102 | {One}{^X1} |
| 103 | {Split}{^X2} |
| 104 | {Other}{^Xo} |
| 105 | {-} |
| 106 | {Recenter}{^L} |
| 107 | {-} |
| 108 | ./Color Schemes/* |
| 109 | {White-on-Black} \E[mset_color_scheme("15;0")\r |
| 110 | {Black-on-White} \E[mset_color_scheme("0;15")\r |
| 111 | {White-on-default-Black}\E[mset_color_scheme("15;default;0")\r |
| 112 | {Black-on-default-White}\E[mset_color_scheme("0;default;15")\r |
| 113 | |
| 114 | /Utils/* |
| 115 | {Bufed} \E[mbufed\r |
| 116 | {Dired} \E[mdired\r |
| 117 | {Mail} \E[mmail\r |
| 118 | {Rmail} \E[mrmail\r |
| 119 | {-} |
| 120 | {EvalBuffer} \E[mevalbuffer\r |
| 121 | {Trim-Buffer} \E[mtrim_buffer\r |
| 122 | |
| 123 | [read:terminal] |
| 124 | |
| 125 | /?/* |
| 126 | {Info}{^X?i} |
| 127 | {Man}{^X?m} |
| 128 | {-} |
| 129 | {Apropos}{^X?a} |
| 130 | {Show Key}{^X?k} |
| 131 | {Where Is}{^X?w} |
| 132 | |
| 133 | [show] |
| 134 | [done] |
| 135 | #endif |
| 136 | %%%%%%%%%%%%%%%%%%%%%%%%%%% end-of-file (SLang) %%%%%%%%%%%%%%%%%%%%%%%%%% |