|
0
|
1 ;; big-menubar.el --- an alternate menubar
|
|
|
2
|
|
|
3 ;; Copyright (C) 1994 Free Software Foundation, Inc.
|
|
|
4
|
|
|
5 ;; Author: Dror Caspi <dcaspi@qualcomm.com>
|
|
|
6 ;; Modified by: jwz and allender and haydens@ll.mit.edu
|
|
|
7 ;; Keywords: mouse
|
|
|
8
|
|
|
9 ;; This file is part of XEmacs.
|
|
|
10
|
|
|
11 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
12 ;; under the terms of the GNU General Public License as published by
|
|
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
14 ;; any later version.
|
|
|
15
|
|
|
16 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
19 ;; General Public License for more details.
|
|
|
20
|
|
|
21 ;; You should have received a copy of the GNU General Public License
|
|
|
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
24
|
|
|
25 ;;; Synched up with: Not in FSF.
|
|
|
26
|
|
|
27 ;;; Code:
|
|
|
28
|
|
|
29 ;;
|
|
|
30 ;; Remove redundant macro commands
|
|
|
31 ;;
|
|
|
32 (delete-menu-item '("Edit" "Start Macro Recording"))
|
|
|
33 (delete-menu-item '("Edit" "End Macro Recording"))
|
|
|
34 (delete-menu-item '("Edit" "Execute Last Macro"))
|
|
|
35
|
|
|
36 (defconst big-menubar
|
|
|
37 (purecopy-menubar
|
|
|
38 (list
|
|
|
39 (assoc "File" default-menubar)
|
|
|
40 (append
|
|
|
41 (assoc "Edit" default-menubar)
|
|
|
42 '("---"
|
|
|
43 ("Mark"
|
|
|
44 ["Here" set-mark-command t]
|
|
|
45 ["Word" mark-word t]
|
|
|
46 ["Sentence" mark-end-of-sentence t]
|
|
|
47 ["Paragraph" mark-paragraph t]
|
|
|
48 ["Page" mark-page t]
|
|
|
49 ["Balanced Expression" mark-sexp t]
|
|
|
50 ["Lisp Function" mark-defun t]
|
|
|
51 ["C Function" mark-c-function t]
|
|
|
52 ["Whole Buffer" mark-whole-buffer t]
|
|
|
53 )
|
|
|
54 "---"
|
|
|
55 ("Search"
|
|
|
56 ["Forward..." isearch-forward t]
|
|
|
57 ["Backward..." isearch-backward t]
|
|
|
58 "---"
|
|
|
59 ["Regexp Forward..." isearch-forward-regexp t]
|
|
|
60 ["Regexp Backward..." isearch-backward-regexp t]
|
|
|
61 "---"
|
|
|
62 ["Words Forward..." word-search-forward t]
|
|
|
63 ["Words Backward..." word-search-backward t]
|
|
|
64 )
|
|
|
65 ("Replace"
|
|
|
66 ["Query..." query-replace t]
|
|
|
67 ["Regexp Query..." query-replace-regexp t]
|
|
|
68 "---"
|
|
|
69 ["All..." replace-string t]
|
|
|
70 ["Regexp All..." replace-regexp t]
|
|
|
71 )
|
|
|
72 "---"
|
|
|
73 ("Transpose"
|
|
|
74 ["Characters" transpose-chars t]
|
|
|
75 ["Words" transpose-words t]
|
|
|
76 ["Lines" transpose-lines t]
|
|
|
77 ["Sentences" transpose-sentences t]
|
|
|
78 ["Paragraphs" transpose-paragraphs t]
|
|
|
79 ["Balanced Expressions" transpose-sexps t]
|
|
|
80 )
|
|
|
81 "---"
|
|
|
82 ("Register"
|
|
|
83 ["Copy to Register..." copy-to-register (mark)]
|
|
|
84 ["Paste Register..." insert-register t]
|
|
|
85 "---"
|
|
|
86 ["Save Point to Register" point-to-register t]
|
|
|
87 ["Jump to Register" register-to-point t]
|
|
|
88 )
|
|
|
89 ("Rectangles"
|
|
|
90 ["Kill Rectangle" kill-rectangle t]
|
|
|
91 ["Yank Rectangle" yank-rectangle t]
|
|
|
92 ["Rectangle to Register" copy-rectangle-to-register t]
|
|
|
93 ["Rectangle from Register" insert-register t]
|
|
|
94 )
|
|
|
95 "---"
|
|
|
96 ("Sort"
|
|
|
97 ["Lines" sort-lines (mark)]
|
|
|
98 ["Paragraphs" sort-paragraphs (mark)]
|
|
|
99 ["Pages" sort-pages (mark)]
|
|
|
100 ["Columns" sort-columns (mark)]
|
|
|
101 ["Regexp..." sort-regexp-fields (mark)]
|
|
|
102 )
|
|
|
103 ("Center"
|
|
|
104 ["Line" center-line t]
|
|
|
105 ["Paragraph" center-paragraph t]
|
|
|
106 ["Region" center-region (mark)]
|
|
|
107 )
|
|
|
108 ("Indent"
|
|
|
109 ["As Previous Line" indent-relative t]
|
|
|
110 ["To Column..." indent-to-column t]
|
|
|
111 "---"
|
|
|
112 ["Region" indent-region (mark)]
|
|
|
113 ["Balanced Expression" indent-sexp t]
|
|
|
114 ["C Expression" indent-c-exp t]
|
|
|
115 )
|
|
|
116 "---"
|
|
|
117 ("Narrow"
|
|
|
118 ["To Region" narrow-to-region (mark)]
|
|
|
119 ["To Page" narrow-to-page t]
|
|
|
120 "---"
|
|
|
121 ["Cancel" widen
|
|
|
122 (not (and (= (point-min) 1) (= (point-max) (1+ (buffer-size)))))]
|
|
|
123 )
|
|
|
124 ))
|
|
2
|
125 (assoc "Apps" default-menubar)
|
|
0
|
126 (assoc "Options" default-menubar)
|
|
|
127 '("Motion"
|
|
|
128 ["Goto Mark" exchange-point-and-mark (mark t)]
|
|
|
129 ["Goto Line..." goto-line t]
|
|
|
130 "---"
|
|
|
131 ["End of Balanced Parentheses ( )" forward-list t]
|
|
|
132 ["Beginning of Balanced Parentheses ( )" backward-list t]
|
|
|
133 ["Next Opening Parenthesis (" down-list t]
|
|
|
134 ["Previous Opening Parenthesis (" backward-up-list t]
|
|
|
135 ["Next Closing Parenthesis )" up-list t]
|
|
|
136 "---"
|
|
|
137 ["End of Balanced Expression" forward-sexp t]
|
|
|
138 ["Beginning of Balanced Expression" backward-sexp t]
|
|
|
139 "---"
|
|
|
140 ["End of Function" end-of-defun t]
|
|
|
141 ["Beginning of Function" beginning-of-defun t]
|
|
|
142 "---"
|
|
|
143 ["Next Page" forward-page t]
|
|
|
144 ["Previous Page" backward-page t]
|
|
|
145 "---"
|
|
|
146 ["End of Buffer" end-of-buffer t]
|
|
|
147 ["Beginning of Buffer" beginning-of-buffer t]
|
|
|
148 "---"
|
|
|
149 ["Save Current Position..." point-to-register t]
|
|
|
150 ["Goto Saved Position..." register-to-point t]
|
|
|
151 "---"
|
|
|
152 ["Set Marker..." set-user-marker t]
|
|
|
153 ["Goto Marker..." goto-user-marker t]
|
|
|
154 ["List Markers" list-markers t]
|
|
|
155 "---"
|
|
|
156 ["Set Goal Column" set-goal-column t]
|
|
|
157 ["Cancel Goal Column" (set-goal-column t) goal-column]
|
|
|
158 )
|
|
|
159 '("Run"
|
|
|
160 ["Compile..." compile t]
|
|
|
161 ["Kill Compilation" kill-compilation t]
|
|
|
162 "---"
|
|
|
163 ["Next Error" next-error t]
|
|
|
164 ["Previous Error" previous-error t]
|
|
|
165 ["Goto Error" compile-goto-error t]
|
|
|
166 "---"
|
|
|
167 ["GDB Debugger" gdb t]
|
|
|
168 )
|
|
|
169 '("Utilities"
|
|
|
170 ["Shell" shell t]
|
|
|
171 "---"
|
|
|
172 ("Mail"
|
|
|
173 ["Send" mail t]
|
|
|
174 ["Read" rmail t]
|
|
|
175 ["Read Folder..." rmail-input t]
|
|
|
176 )
|
|
|
177 ["Dired..." dired t]
|
|
|
178 "---"
|
|
|
179 ["Grep..." grep t]
|
|
|
180 ("Tags"
|
|
|
181 ["Set Tags Table File..." visit-tags-table t]
|
|
|
182 "---"
|
|
|
183 ["Show Occurrence..." find-tag t]
|
|
|
184 ["Show Occurrence (Other)..." find-tag-other-window t]
|
|
|
185 ["Next Occurrence" (find-tag nil) t]
|
|
|
186 ["Next Occurrence (Other)" (find-tag-other-window nil) t]
|
|
|
187 "---"
|
|
|
188 ["Search by Tags..." tags-search t]
|
|
|
189 ["Query Replace by Tags..." tags-query-replace t]
|
|
|
190 ["Continue Search/Replace" tags-loop-continue t]
|
|
|
191 "---"
|
|
|
192 ["Next File" next-file t]
|
|
|
193 "---"
|
|
|
194 ["List Tags in File..." list-tags t]
|
|
|
195 ["List Tags by Regexp..." tags-apropos t]
|
|
|
196 )
|
|
|
197 "---"
|
|
|
198 ("Spell Check"
|
|
|
199 ["Word" ispell-word t]
|
|
|
200 ["Complete Word" ispell-complete-word t]
|
|
|
201 ["Region" ispell-region t]
|
|
|
202 ["Whole Buffer" ispell-buffer t]
|
|
|
203 )
|
|
|
204 "---"
|
|
|
205 ("Compare Windows"
|
|
|
206 ["Exact Match" compare-windows t]
|
|
|
207 ["Ignore White Space" (compare-windows t) t]
|
|
|
208 )
|
|
|
209 "---"
|
|
|
210 ["Hex Edit File..." hexl-find-file t]
|
|
|
211 )
|
|
|
212 '("Macro"
|
|
|
213 ["Start Macro Recording" start-kbd-macro
|
|
|
214 (not defining-kbd-macro)]
|
|
|
215 ["End Macro Recording" end-kbd-macro defining-kbd-macro]
|
|
|
216 ["Name Last Macro..." name-last-kbd-macro last-kbd-macro]
|
|
|
217 ["Insert Macro in Buffer..." insert-kbd-macro t]
|
|
|
218 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
|
|
|
219 )
|
|
|
220 '("Buffers"
|
|
|
221 :filter buffers-menu-filter
|
|
|
222 ["List All Buffers" list-buffers t]
|
|
|
223 "---")
|
|
2
|
224 (assoc "Tools" default-menubar)
|
|
0
|
225 nil
|
|
|
226 (assoc "Help" default-menubar)
|
|
|
227 )))
|
|
|
228
|
|
|
229 (set-menubar big-menubar)
|
