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 6define 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} 19local_setkey ("menuFn", "\e[m"); % menu 20 21%!% allow the user to bind their owm commands 22define 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 28define suspend_hook () { menucmd ("[prev]"); } 29define resume_hook () { menucmd ("[next]"); } 30define exit_hook () { menucmd ("[rm]"); exit_jed (); } 31 32%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 33menucmd ("[read:jedmenu.sl]"); % read this file 34 35% format _jed_version xyyzz into x.yy-zz 36menucmd (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 43if (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) %%%%%%%%%%%%%%%%%%%%%%%%%% 137