| 1 |
pcg |
1.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) %%%%%%%%%%%%%%%%%%%%%%%%%% |
