| 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) %%%%%%%%%%%%%%%%%%%%%%%%%% |
