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