|
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
|
|
12
|
7 ;; Rewritten by: mrb in the differential programming style
|
|
|
8 ;; Keywords: mouse menubar
|
|
0
|
9
|
|
|
10 ;; This file is part of XEmacs.
|
|
|
11
|
|
|
12 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
13 ;; under the terms of the GNU General Public License as published by
|
|
|
14 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
15 ;; any later version.
|
|
|
16
|
|
|
17 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
20 ;; General Public License for more details.
|
|
|
21
|
|
|
22 ;; You should have received a copy of the GNU General Public License
|
|
12
|
23 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
25 ;; Boston, MA 02111-1307, USA.
|
|
0
|
26
|
|
|
27 ;;; Synched up with: Not in FSF.
|
|
|
28
|
|
|
29 ;;; Code:
|
|
|
30
|
|
12
|
31 (let* ((current-menubar (default-value 'current-menubar))
|
|
|
32 (edit-menu (assoc "Edit" current-menubar)))
|
|
|
33
|
|
|
34 (unless (assoc "Transpose" edit-menu) ; Idempotence
|
|
|
35 ;; Replace Macro buttons with Macro submenu
|
|
|
36 (delete-menu-item '("Edit" "Start Macro Recording"))
|
|
|
37 (delete-menu-item '("Edit" "End Macro Recording"))
|
|
|
38 (delete-menu-item '("Edit" "Execute Last Macro"))
|
|
0
|
39
|
|
12
|
40 (nconc
|
|
|
41 edit-menu
|
|
|
42 '(("Macro"
|
|
|
43 ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)]
|
|
|
44 ["End Macro Recording" end-kbd-macro defining-kbd-macro]
|
|
|
45 ["Name Last Macro..." name-last-kbd-macro last-kbd-macro]
|
|
|
46 ["Insert Macro in Buffer..." insert-kbd-macro t]
|
|
|
47 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
|
|
|
48 )
|
|
|
49 ;; Add other useful Edit submenus
|
|
|
50 "---"
|
|
0
|
51 ("Mark"
|
|
12
|
52 ["Here" set-mark-command t]
|
|
|
53 ["Word" mark-word t]
|
|
|
54 ["Sentence" mark-end-of-sentence t]
|
|
|
55 ["Paragraph" mark-paragraph t]
|
|
|
56 ["Page" mark-page t]
|
|
|
57 ["Balanced Expression" mark-sexp t]
|
|
|
58 ["Lisp Function" mark-defun t]
|
|
|
59 ["C Function" mark-c-function t]
|
|
|
60 ["Whole Buffer" mark-whole-buffer t]
|
|
0
|
61 )
|
|
|
62 "---"
|
|
|
63 ("Search"
|
|
12
|
64 ["Forward..." isearch-forward t]
|
|
|
65 ["Backward..." isearch-backward t]
|
|
0
|
66 "---"
|
|
12
|
67 ["Regexp Forward..." isearch-forward-regexp t]
|
|
|
68 ["Regexp Backward..." isearch-backward-regexp t]
|
|
0
|
69 "---"
|
|
12
|
70 ["Words Forward..." word-search-forward t]
|
|
|
71 ["Words Backward..." word-search-backward t]
|
|
0
|
72 )
|
|
|
73 ("Replace"
|
|
12
|
74 ["Query..." query-replace t]
|
|
|
75 ["Regexp Query..." query-replace-regexp t]
|
|
0
|
76 "---"
|
|
12
|
77 ["All..." replace-string t]
|
|
|
78 ["Regexp All..." replace-regexp t]
|
|
0
|
79 )
|
|
|
80 "---"
|
|
|
81 ("Transpose"
|
|
12
|
82 ["Characters" transpose-chars t]
|
|
|
83 ["Words" transpose-words t]
|
|
|
84 ["Lines" transpose-lines t]
|
|
|
85 ["Sentences" transpose-sentences t]
|
|
|
86 ["Paragraphs" transpose-paragraphs t]
|
|
|
87 ["Balanced Expressions" transpose-sexps t]
|
|
0
|
88 )
|
|
|
89 "---"
|
|
|
90 ("Register"
|
|
12
|
91 ["Copy to Register..." copy-to-register (mark)]
|
|
|
92 ["Paste Register..." insert-register t]
|
|
0
|
93 "---"
|
|
12
|
94 ["Save Point to Register" point-to-register t]
|
|
|
95 ["Jump to Register" register-to-point t]
|
|
0
|
96 )
|
|
|
97 ("Rectangles"
|
|
|
98 ["Kill Rectangle" kill-rectangle t]
|
|
|
99 ["Yank Rectangle" yank-rectangle t]
|
|
|
100 ["Rectangle to Register" copy-rectangle-to-register t]
|
|
|
101 ["Rectangle from Register" insert-register t]
|
|
12
|
102 ["Clear Rectangle" clear-rectangle t]
|
|
|
103 ["Open Rectangle" open-rectangle t]
|
|
|
104 ["Rectangle Mousing"
|
|
|
105 (setq mouse-track-rectangle-p (not mouse-track-rectangle-p))
|
|
|
106 :style toggle :selected mouse-track-rectangle-p]
|
|
0
|
107 )
|
|
|
108 "---"
|
|
|
109 ("Sort"
|
|
12
|
110 ["Lines" sort-lines (mark)]
|
|
|
111 ["Paragraphs" sort-paragraphs (mark)]
|
|
|
112 ["Pages" sort-pages (mark)]
|
|
|
113 ["Columns" sort-columns (mark)]
|
|
|
114 ["Regexp..." sort-regexp-fields (mark)]
|
|
0
|
115 )
|
|
|
116 ("Center"
|
|
12
|
117 ["Line" center-line t]
|
|
|
118 ["Paragraph" center-paragraph t]
|
|
|
119 ["Region" center-region (mark)]
|
|
0
|
120 )
|
|
|
121 ("Indent"
|
|
12
|
122 ["As Previous Line" indent-relative t]
|
|
|
123 ["To Column..." indent-to-column t]
|
|
0
|
124 "---"
|
|
12
|
125 ["Region" indent-region (mark)]
|
|
|
126 ["Balanced Expression" indent-sexp t]
|
|
|
127 ["C Expression" indent-c-exp t]
|
|
0
|
128 )
|
|
|
129 "---"
|
|
|
130 ("Narrow"
|
|
12
|
131 ["To Region" narrow-to-region (mark)]
|
|
|
132 ["To Page" narrow-to-page t]
|
|
0
|
133 "---"
|
|
12
|
134 ["Cancel" widen
|
|
0
|
135 (not (and (= (point-min) 1) (= (point-max) (1+ (buffer-size)))))]
|
|
12
|
136 )))
|
|
|
137
|
|
|
138 ;; Motion Submenu
|
|
|
139 (add-submenu
|
|
|
140 nil
|
|
|
141 '("Motion"
|
|
|
142 ["Goto Mark" exchange-point-and-mark (mark t)]
|
|
|
143 ["Goto Line..." goto-line t]
|
|
|
144 "---"
|
|
|
145 ["End of Balanced Parentheses ( )" forward-list t]
|
|
|
146 ["Beginning of Balanced Parentheses ( )" backward-list t]
|
|
|
147 ["Next Opening Parenthesis (" down-list t]
|
|
|
148 ["Previous Opening Parenthesis (" backward-up-list t]
|
|
|
149 ["Next Closing Parenthesis )" up-list t]
|
|
|
150 "---"
|
|
|
151 ["End of Balanced Expression" forward-sexp t]
|
|
|
152 ["Beginning of Balanced Expression" backward-sexp t]
|
|
|
153 "---"
|
|
|
154 ["End of Function" end-of-defun t]
|
|
|
155 ["Beginning of Function" beginning-of-defun t]
|
|
|
156 "---"
|
|
|
157 ["Next Page" forward-page t]
|
|
|
158 ["Previous Page" backward-page t]
|
|
|
159 "---"
|
|
|
160 ["End of Buffer" end-of-buffer t]
|
|
|
161 ["Beginning of Buffer" beginning-of-buffer t]
|
|
|
162 "---"
|
|
|
163 ["Save Current Position..." point-to-register t]
|
|
|
164 ["Goto Saved Position..." register-to-point t]
|
|
|
165 "---"
|
|
|
166 ["Set Marker..." set-user-marker t]
|
|
|
167 ["Goto Marker..." goto-user-marker t]
|
|
|
168 ["List Markers" list-markers t]
|
|
|
169 "---"
|
|
|
170 ["Set Goal Column" set-goal-column t]
|
|
|
171 ["Cancel Goal Column" (set-goal-column t) goal-column]
|
|
0
|
172 )
|
|
12
|
173 "Apps")
|
|
|
174
|
|
|
175 ;; Replace Compile button with Compile menu
|
|
|
176 (add-submenu
|
|
|
177 '("Tools")
|
|
|
178 '("Compile"
|
|
|
179 ["Compile..." compile t]
|
|
|
180 ["Kill Compilation" kill-compilation t]
|
|
0
|
181 "---"
|
|
12
|
182 ["Next Error" next-error t]
|
|
|
183 ["Previous Error" previous-error t]
|
|
|
184 ["Goto Error" compile-goto-error t]
|
|
0
|
185 )
|
|
12
|
186 "Compile...")
|
|
|
187 (delete-menu-item '("Tools" "Compile..."))
|
|
|
188
|
|
|
189 ;; Replace Spell-Check button with Spell Check menu
|
|
|
190 (add-submenu
|
|
|
191 '("Apps")
|
|
|
192 '("Spell Check"
|
|
|
193 ["Word" ispell-word t]
|
|
|
194 ["Complete Word" ispell-complete-word t]
|
|
|
195 ["Region" ispell-region t]
|
|
|
196 ["Whole Buffer" ispell-buffer t]
|
|
0
|
197 )
|
|
12
|
198 "Spell-Check Buffer")
|
|
|
199 (delete-menu-item '("Apps" "Spell-Check Buffer"))
|
|
0
|
200
|
|
12
|
201 ;; Add Hex Edit button
|
|
|
202 (nconc
|
|
|
203 (assoc "Tools" current-menubar)
|
|
|
204 '("---"
|
|
|
205 ["Hex Edit File..." hexl-find-file t]))
|
|
|
206 ))
|
|
|
207
|
|
|
208 (provide 'big-menubar)
|
