Mercurial > emacs
annotate lisp/msb.el @ 26949:a8d8d13a3c21
*** empty log message ***
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 19 Dec 1999 13:16:06 +0000 |
parents | 26430a2408d5 |
children | 4a7a0fc36977 |
rev | line source |
---|---|
10228 | 1 ;;; msb.el --- Customizable buffer-selection with multiple menus. |
14169 | 2 |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
3 ;; Copyright (C) 1993, 94, 95, 97, 98, 99 Free Software Foundation, Inc. |
14169 | 4 |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
5 ;; Author: Lars Lindberg <Lars.G.Lindberg@capgemini.se> |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
6 ;; Maintainer: FSF |
10228 | 7 ;; Created: 8 Oct 1993 |
20901 | 8 ;; Lindberg's last update version: 3.34 |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
9 ;; Keywords: mouse buffer menu |
14169 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10228 | 14 ;; it under the terms of the GNU General Public License as published by |
14169 | 15 ;; the Free Software Foundation; either version 2, or (at your option) |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
10228 | 19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
14169 | 22 |
10228 | 23 ;; You should have received a copy of the GNU General Public License |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, USA. | |
10228 | 27 |
28 ;;; Commentary: | |
14169 | 29 |
10228 | 30 ;; Purpose of this package: |
31 ;; 1. Offer a function for letting the user choose buffer, | |
32 ;; not necessarily for switching to it. | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
33 ;; 2. Make a better mouse-buffer-menu. This is done as a global |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
34 ;; minor mode, msb-mode. |
10228 | 35 ;; |
36 ;; Customization: | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
37 ;; Look at the variable `msb-menu-cond' for deciding what menus you |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
38 ;; want. It's not that hard to customize, despite my not-so-good |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
39 ;; doc-string. Feel free to send me a better doc-string. |
10228 | 40 ;; There are some constants for you to try here: |
41 ;; msb--few-menus | |
42 ;; msb--very-many-menus (default) | |
20901 | 43 ;; |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
44 ;; Look at the variable `msb-item-handling-function' for customization |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
45 ;; of the appearance of every menu item. Try for instance setting |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
46 ;; it to `msb-alon-item-handler'. |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
47 ;; |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
48 ;; Look at the variable `msb-item-sort-function' for customization |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
49 ;; of sorting the menus. Set it to t for instance, which means no |
10228 | 50 ;; sorting - you will get latest used buffer first. |
51 ;; | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
52 ;; Also check out the variable `msb-display-invisible-buffers-p'. |
10228 | 53 |
54 ;; Known bugs: | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
55 ;; - Files-by-directory |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
56 ;; + No possibility to show client/changed buffers separately. |
20901 | 57 ;; + All file buffers only appear in a file sub-menu, they will |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
58 ;; for instance not appear in the Mail sub-menu. |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
59 |
10228 | 60 ;; Future enhancements: |
61 | |
62 ;;; Thanks goes to | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
63 ;; Mark Brader <msb@sq.com> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
64 ;; Jim Berry <m1jhb00@FRB.GOV> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
65 ;; Hans Chalupsky <hans@cs.Buffalo.EDU> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
66 ;; Larry Rosenberg <ljr@ictv.com> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
67 ;; Will Henney <will@astroscu.unam.mx> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
68 ;; Jari Aalto <jaalto@tre.tele.nokia.fi> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
69 ;; Michael Kifer <kifer@sbkifer.cs.sunysb.edu> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
70 ;; Gael Marziou <gael@gnlab030.grenoble.hp.com> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
71 ;; Dave Gillespie <daveg@thymus.synaptics.com> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
72 ;; Alon Albert <alon@milcse.rtsg.mot.com> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
73 ;; Kevin Broadey, <KevinB@bartley.demon.co.uk> |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
74 ;; Ake Stenhof <ake@cadpoint.se> |
25278 | 75 ;; Richard Stallman <rms@gnu.org> |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
76 ;; Steve Fisk <fisk@medved.bowdoin.edu> |
10228 | 77 |
25095 | 78 ;; This version turned into a global minor mode and subsequently |
79 ;; hacked on by Dave Love. | |
10228 | 80 ;;; Code: |
81 | |
25095 | 82 (eval-when-compile (require 'cl)) |
10228 | 83 |
84 ;;; | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
85 ;;; Some example constants to be used for `msb-menu-cond'. See that |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
86 ;;; variable for more information. Please note that if the condition |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
87 ;;; returns `multi', then the buffer can appear in several menus. |
10228 | 88 ;;; |
89 (defconst msb--few-menus | |
90 '(((and (boundp 'server-buffer-clients) | |
91 server-buffer-clients | |
92 'multi) | |
93 3030 | |
94 "Clients (%d)") | |
95 ((and msb-display-invisible-buffers-p | |
96 (msb-invisible-buffer-p) | |
97 'multi) | |
98 3090 | |
99 "Invisible buffers (%d)") | |
100 ((eq major-mode 'dired-mode) | |
101 2010 | |
102 "Dired (%d)" | |
103 msb-dired-item-handler | |
104 msb-sort-by-directory) | |
105 ((eq major-mode 'Man-mode) | |
106 4090 | |
107 "Manuals (%d)") | |
108 ((eq major-mode 'w3-mode) | |
109 4020 | |
110 "WWW (%d)") | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
111 ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) |
10228 | 112 (memq major-mode '(mh-letter-mode |
113 mh-show-mode | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
114 mh-folder-mode)) |
10228 | 115 (memq major-mode '(gnus-summary-mode |
116 news-reply-mode | |
117 gnus-group-mode | |
118 gnus-article-mode | |
119 gnus-kill-file-mode | |
120 gnus-browse-killed-mode))) | |
121 4010 | |
122 "Mail (%d)") | |
123 ((not buffer-file-name) | |
124 4099 | |
125 "Buffers (%d)") | |
126 ('no-multi | |
127 1099 | |
128 "Files (%d)"))) | |
129 | |
130 (defconst msb--very-many-menus | |
131 '(((and (boundp 'server-buffer-clients) | |
132 server-buffer-clients | |
133 'multi) | |
134 1010 | |
135 "Clients (%d)") | |
136 ((and (boundp 'vc-mode) vc-mode 'multi) | |
137 1020 | |
138 "Version Control (%d)") | |
139 ((and buffer-file-name | |
140 (buffer-modified-p) | |
141 'multi) | |
142 1030 | |
143 "Changed files (%d)") | |
144 ((and (get-buffer-process (current-buffer)) | |
145 'multi) | |
146 1040 | |
147 "Processes (%d)") | |
148 ((and msb-display-invisible-buffers-p | |
149 (msb-invisible-buffer-p) | |
150 'multi) | |
151 1090 | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
152 "Invisible buffers (%d)") |
10228 | 153 ((eq major-mode 'dired-mode) |
154 2010 | |
155 "Dired (%d)" | |
156 ;; Note this different menu-handler | |
157 msb-dired-item-handler | |
158 ;; Also note this item-sorter | |
159 msb-sort-by-directory) | |
160 ((eq major-mode 'Man-mode) | |
20901 | 161 5030 |
10228 | 162 "Manuals (%d)") |
163 ((eq major-mode 'w3-mode) | |
20901 | 164 5020 |
10228 | 165 "WWW (%d)") |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
166 ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) |
10228 | 167 (memq major-mode '(mh-letter-mode |
168 mh-show-mode | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
169 mh-folder-mode)) |
10228 | 170 (memq major-mode '(gnus-summary-mode |
171 news-reply-mode | |
172 gnus-group-mode | |
173 gnus-article-mode | |
174 gnus-kill-file-mode | |
175 gnus-browse-killed-mode))) | |
20901 | 176 5010 |
10228 | 177 "Mail (%d)") |
178 ;; Catchup for all non-file buffers | |
179 ((and (not buffer-file-name) | |
180 'no-multi) | |
20901 | 181 5099 |
10228 | 182 "Other non-file buffers (%d)") |
183 ((and (string-match "/\\.[^/]*$" buffer-file-name) | |
184 'multi) | |
185 3090 | |
186 "Hidden Files (%d)") | |
187 ((memq major-mode '(c-mode c++-mode)) | |
188 3010 | |
189 "C/C++ Files (%d)") | |
190 ((eq major-mode 'emacs-lisp-mode) | |
191 3020 | |
192 "Elisp Files (%d)") | |
193 ((eq major-mode 'latex-mode) | |
194 3030 | |
195 "LaTex Files (%d)") | |
196 ('no-multi | |
197 3099 | |
198 "Other files (%d)"))) | |
199 | |
200 ;; msb--many-menus is obsolete | |
201 (defvar msb--many-menus msb--very-many-menus) | |
202 | |
203 ;;; | |
204 ;;; Customizable variables | |
205 ;;; | |
206 | |
20901 | 207 (defgroup msb nil |
208 "Customizable buffer-selection with multiple menus." | |
209 :prefix "msb-" | |
210 :group 'mouse) | |
10228 | 211 |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
212 ;;;###autoload |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
213 (defcustom msb-mode nil |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
214 "Toggle msb-mode. |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
215 Setting this variable directly does not take effect; |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
216 use either \\[customize] or the function `msb-mode'." |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
217 :set (lambda (symbol value) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
218 (msb-mode (or value 0))) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
219 :initialize 'custom-initialize-default |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
220 :version "20.4" |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
221 :type 'boolean |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
222 :group 'msb |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
223 :require 'msb) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
224 |
20901 | 225 (defun msb-custom-set (symbol value) |
226 "Set the value of custom variables for msb." | |
227 (set symbol value) | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
228 (if (and (featurep 'msb) msb-mode) |
20901 | 229 ;; wait until package has been loaded before bothering to update |
230 ;; the buffer lists. | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
231 (msb-menu-bar-update-buffers t))) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
232 |
20901 | 233 (defcustom msb-menu-cond msb--very-many-menus |
13998
2f2d3995b57f
(msb-max-file-menu-items, msb-menu-cond): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13372
diff
changeset
|
234 "*List of criteria for splitting the mouse buffer menu. |
10228 | 235 The elements in the list should be of this type: |
236 (CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLING-FN ITEM-SORT-FN). | |
237 | |
238 When making the split, the buffers are tested one by one against the | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
239 CONDITION, just like a Lisp cond: When hitting a true condition, the |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
240 other criteria are *not* tested and the buffer name will appear in the |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
241 menu with the menu-title corresponding to the true condition. |
10228 | 242 |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
243 If the condition returns the symbol `multi', then the buffer will be |
10228 | 244 added to this menu *and* tested for other menus too. If it returns |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
245 `no-multi', then the buffer will only be added if it hasn't been added |
10228 | 246 to any other menu. |
247 | |
248 During this test, the buffer in question is the current buffer, and | |
249 the test is surrounded by calls to `save-excursion' and | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
250 `save-match-data'. |
10228 | 251 |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
252 The categories are sorted by MENU-SORT-KEY. Smaller keys are on top. |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
253 nil means don't display this menu. |
10228 | 254 |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
255 MENU-TITLE is really a format. If you add %d in it, the %d is |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
256 replaced with the number of items in that menu. |
10228 | 257 |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
258 ITEM-HANDLING-FN, is optional. If it is supplied and is a function, |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
259 than it is used for displaying the items in that particular buffer |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
260 menu, otherwise the function pointed out by |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
261 `msb-item-handling-function' is used. |
10228 | 262 |
263 ITEM-SORT-FN, is also optional. | |
264 If it is not supplied, the function pointed out by | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
265 `msb-item-sort-function' is used. |
10228 | 266 If it is nil, then no sort takes place and the buffers are presented |
267 in least-recently-used order. | |
268 If it is t, then no sort takes place and the buffers are presented in | |
269 most-recently-used order. | |
270 If it is supplied and non-nil and not t than it is used for sorting | |
271 the items in that particular buffer menu. | |
272 | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
273 Note1: There should always be a `catch-all' as last element, in this |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
274 list. That is an element like (t TITLE ITEM-HANDLING-FUNCTION). |
10228 | 275 Note2: A buffer menu appears only if it has at least one buffer in it. |
276 Note3: If you have a CONDITION that can't be evaluated you will get an | |
20901 | 277 error every time you do \\[msb]." |
278 :type `(choice (const :tag "long" :value ,msb--very-many-menus) | |
279 (const :tag "short" :value ,msb--few-menus)) | |
280 :set 'msb-custom-set | |
281 :group 'msb) | |
282 | |
283 (defcustom msb-modes-key 4000 | |
284 "The sort key for files sorted by mode." | |
285 :type 'integer | |
286 :set 'msb-custom-set | |
21670
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
20901
diff
changeset
|
287 :group 'msb |
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
20901
diff
changeset
|
288 :version "20.3") |
20901 | 289 |
290 (defcustom msb-separator-diff 100 | |
291 "*Non-nil means use separators. | |
292 The separators will appear between all menus that have a sorting key | |
293 that differs by this value or more." | |
294 :type '(choice integer (const nil)) | |
295 :set 'msb-custom-set | |
296 :group 'msb) | |
297 | |
298 (defvar msb-files-by-directory-sort-key 0 | |
299 "*The sort key for files sorted by directory.") | |
300 | |
301 (defcustom msb-max-menu-items 15 | |
302 "*The maximum number of items in a menu. | |
303 If this variable is set to 15 for instance, then the submenu will be | |
304 split up in minor parts, 15 items each. Nil means no limit." | |
305 :type '(choice integer (const nil)) | |
306 :set 'msb-custom-set | |
307 :group 'msb) | |
308 | |
309 (defcustom msb-max-file-menu-items 10 | |
310 "*The maximum number of items from different directories. | |
311 | |
312 When the menu is of type `file by directory', this is the maximum | |
313 number of buffers that are clumped together from different | |
314 directories. | |
315 | |
316 Set this to 1 if you want one menu per directory instead of clumping | |
317 them together. | |
318 | |
319 If the value is not a number, then the value 10 is used." | |
320 :type 'integer | |
321 :set 'msb-custom-set | |
322 :group 'msb) | |
323 | |
324 (defcustom msb-most-recently-used-sort-key -1010 | |
325 "*Where should the menu with the most recently used buffers be placed?" | |
326 :type 'integer | |
327 :set 'msb-custom-set | |
328 :group 'msb) | |
329 | |
330 (defcustom msb-display-most-recently-used 15 | |
331 "*How many buffers should be in the most-recently-used menu. | |
332 No buffers at all if less than 1 or nil (or any non-number)." | |
333 :type 'integer | |
334 :set 'msb-custom-set | |
335 :group 'msb) | |
10228 | 336 |
20901 | 337 (defcustom msb-most-recently-used-title "Most recently used (%d)" |
338 "*The title for the most-recently-used menu." | |
339 :type 'string | |
340 :set 'msb-custom-set | |
341 :group 'msb) | |
342 | |
343 (defvar msb-horizontal-shift-function '(lambda () 0) | |
344 "*Function that specifies how many pixels to shift the top menu leftwards.") | |
345 | |
346 (defcustom msb-display-invisible-buffers-p nil | |
347 "*Show invisible buffers or not. | |
348 Non-nil means that the buffer menu should include buffers that have | |
349 names that starts with a space character." | |
350 :type 'boolean | |
351 :set 'msb-custom-set | |
352 :group 'msb) | |
353 | |
354 (defvar msb-item-handling-function 'msb-item-handler | |
355 "*The appearance of a buffer menu. | |
356 | |
357 The default function to call for handling the appearance of a menu | |
358 item. It should take to arguments, BUFFER and MAX-BUFFER-NAME-LENGTH, | |
359 where the latter is the max length of all buffer names. | |
360 | |
361 The function should return the string to use in the menu. | |
362 | |
363 When the function is called, BUFFER is the current buffer. This | |
364 function is called for items in the variable `msb-menu-cond' that have | |
365 nil as ITEM-HANDLING-FUNCTION. See `msb-menu-cond' for more | |
366 information.") | |
367 | |
368 (defcustom msb-item-sort-function 'msb-sort-by-name | |
369 "*The order of items in a buffer menu. | |
370 | |
371 The default function to call for handling the order of items in a menu | |
372 item. This function is called like a sort function. The items look | |
373 like (ITEM-NAME . BUFFER). | |
374 | |
375 ITEM-NAME is the name of the item that will appear in the menu. | |
376 BUFFER is the buffer, this is not necessarily the current buffer. | |
377 | |
378 Set this to nil or t if you don't want any sorting (faster)." | |
379 :type '(choice (const msb-sort-by-name) | |
380 (const :tag "Newest first" t) | |
381 (const :tag "Oldest first" nil)) | |
382 :set 'msb-custom-set | |
383 :group 'msb | |
384 ) | |
385 | |
386 (defcustom msb-files-by-directory nil | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
387 "*Non-nil means that files should be sorted by directory. |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
388 This is instead of the groups in `msb-menu-cond'." |
20901 | 389 :type 'boolean |
390 :set 'msb-custom-set | |
391 :group 'msb) | |
392 | |
393 (defcustom msb-after-load-hooks nil | |
394 "Hooks to be run after the msb package has been loaded." | |
395 :type 'hook | |
396 :set 'msb-custom-set | |
397 :group 'msb) | |
10228 | 398 |
399 ;;; | |
400 ;;; Internal variables | |
401 ;;; | |
402 | |
403 ;; The last calculated menu. | |
404 (defvar msb--last-buffer-menu nil) | |
405 | |
406 ;; If this is non-nil, then it is a string that describes the error. | |
407 (defvar msb--error nil) | |
408 | |
409 ;;; | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
410 ;;; Some example function to be used for `msb-item-handling-function'. |
10228 | 411 ;;; |
412 (defun msb-item-handler (buffer &optional maxbuf) | |
413 "Create one string item, concerning BUFFER, for the buffer menu. | |
414 The item looks like: | |
415 *% <buffer-name> | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
416 The `*' appears only if the buffer is marked as modified. |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
417 The `%' appears only if the buffer is read-only. |
10228 | 418 Optional second argument MAXBUF is completely ignored." |
419 (let ((name (buffer-name)) | |
420 (modified (if (buffer-modified-p) "*" " ")) | |
421 (read-only (if buffer-read-only "%" " "))) | |
422 (format "%s%s %s" modified read-only name))) | |
423 | |
424 | |
425 (eval-when-compile (require 'dired)) | |
426 | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
427 ;; `dired' can be called with a list of the form (directory file1 file2 ...) |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
428 ;; which causes `dired-directory' to be in the same form. |
10228 | 429 (defun msb--dired-directory () |
430 (cond ((stringp dired-directory) | |
431 (abbreviate-file-name (expand-file-name dired-directory))) | |
432 ((consp dired-directory) | |
433 (abbreviate-file-name (expand-file-name (car dired-directory)))) | |
434 (t | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
435 (error "Unknown type of `dired-directory' in buffer %s" |
10228 | 436 (buffer-name))))) |
437 | |
438 (defun msb-dired-item-handler (buffer &optional maxbuf) | |
439 "Create one string item, concerning a dired BUFFER, for the buffer menu. | |
440 The item looks like: | |
441 *% <buffer-name> | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
442 The `*' appears only if the buffer is marked as modified. |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
443 The `%' appears only if the buffer is read-only. |
10228 | 444 Optional second argument MAXBUF is completely ignored." |
445 (let ((name (msb--dired-directory)) | |
446 (modified (if (buffer-modified-p) "*" " ")) | |
447 (read-only (if buffer-read-only "%" " "))) | |
448 (format "%s%s %s" modified read-only name))) | |
449 | |
450 (defun msb-alon-item-handler (buffer maxbuf) | |
451 "Create one string item for the buffer menu. | |
452 The item looks like: | |
453 <buffer-name> *%# <file-name> | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
454 The `*' appears only if the buffer is marked as modified. |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
455 The `%' appears only if the buffer is read-only. |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
456 The `#' appears only version control file (SCCS/RCS)." |
10228 | 457 (format (format "%%%ds %%s%%s%%s %%s" maxbuf) |
458 (buffer-name buffer) | |
459 (if (buffer-modified-p) "*" " ") | |
460 (if buffer-read-only "%" " ") | |
461 (if (and (boundp 'vc-mode) vc-mode) "#" " ") | |
462 (or buffer-file-name ""))) | |
463 | |
464 ;;; | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
465 ;;; Some example function to be used for `msb-item-sort-function'. |
10228 | 466 ;;; |
467 (defun msb-sort-by-name (item1 item2) | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
468 "Sort the items ITEM1 and ITEM2 by their `buffer-name'. |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
469 An item looks like (NAME . BUFFER)." |
10228 | 470 (string-lessp (buffer-name (cdr item1)) |
471 (buffer-name (cdr item2)))) | |
472 | |
473 | |
474 (defun msb-sort-by-directory (item1 item2) | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
475 "Sort the items ITEM1 and ITEM2 by directory name. Made for dired. |
10228 | 476 An item look like (NAME . BUFFER)." |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
477 (string-lessp (save-excursion (set-buffer (cdr item1)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
478 (msb--dired-directory)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
479 (save-excursion (set-buffer (cdr item2)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
480 (msb--dired-directory)))) |
10228 | 481 |
482 ;;; | |
483 ;;; msb | |
484 ;;; | |
485 ;;; This function can be used instead of (mouse-buffer-menu EVENT) | |
486 ;;; function in "mouse.el". | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
487 ;;; |
10228 | 488 (defun msb (event) |
489 "Pop up several menus of buffers for selection with the mouse. | |
490 This command switches buffers in the window that you clicked on, and | |
491 selects that window. | |
492 | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
493 See the function `mouse-select-buffer' and the variable |
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
494 `msb-menu-cond' for more information about how the menus are split." |
10228 | 495 (interactive "e") |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
496 (let ((old-window (selected-window)) |
10228 | 497 (window (posn-window (event-start event)))) |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
498 (unless (framep window) (select-window window)) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
499 (let ((buffer (mouse-select-buffer event))) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
500 (if buffer |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
501 (switch-to-buffer buffer) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
502 (select-window old-window)))) |
10228 | 503 nil) |
504 | |
505 ;;; | |
506 ;;; Some supportive functions | |
507 ;;; | |
508 (defun msb-invisible-buffer-p (&optional buffer) | |
509 "Return t if optional BUFFER is an \"invisible\" buffer. | |
510 If the argument is left out or nil, then the current buffer is considered." | |
511 (and (> (length (buffer-name buffer)) 0) | |
512 (eq ?\ (aref (buffer-name buffer) 0)))) | |
513 | |
20505 | 514 (defun msb--strip-dir (dir) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
515 "Strip one hierarchy level from the end of DIR." |
20758
f5a113b108ff
(msb--strip-dir): Use Emacs filename primitives, not regexps.
Richard M. Stallman <rms@gnu.org>
parents:
20506
diff
changeset
|
516 (file-name-directory (directory-file-name dir))) |
10228 | 517 |
518 ;; Create an alist with all buffers from LIST that lies under the same | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
519 ;; directory will be in the same item as the directory string. |
20506
c096aa581013
Fix mailer-introduced garbling.
Richard M. Stallman <rms@gnu.org>
parents:
20505
diff
changeset
|
520 ;; ((PATH1 . (BUFFER-1 BUFFER-2 ...)) (PATH2 . (BUFFER-K BUFFER-K+1...)) ...) |
10228 | 521 (defun msb--init-file-alist (list) |
522 (let ((buffer-alist | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
523 ;; Make alist that looks like |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
524 ;; ((PATH-1 BUFFER-1) (PATH-2 BUFFER-2) ...) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
525 ;; sorted on PATH-x |
10228 | 526 (sort (mapcan |
20901 | 527 (lambda (buffer) |
528 (let ((file-name (expand-file-name (buffer-file-name buffer)))) | |
529 (when file-name | |
530 (list (cons (msb--strip-dir file-name) buffer))))) | |
10228 | 531 list) |
20901 | 532 (lambda (item1 item2) |
533 (string< (car item1) (car item2)))))) | |
20884
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
534 ;; Now clump buffers together that have the same path |
10228 | 535 ;; Make alist that looks like |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
536 ;; ((PATH1 . (BUFFER-1 BUFFER-2 ...)) (PATH2 . (BUFFER-K)) ...) |
10228 | 537 (let ((path nil) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
538 (buffers nil)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
539 (nconc |
20901 | 540 (mapcan (lambda (item) |
541 (cond | |
542 ((and path | |
543 (string= path (car item))) | |
544 ;; The same path as earlier: Add to current list of | |
545 ;; buffers. | |
546 (push (cdr item) buffers) | |
547 ;; This item should not be added to list | |
548 nil) | |
549 (t | |
550 ;; New path | |
551 (let ((result (and path (cons path buffers)))) | |
552 (setq path (car item)) | |
553 (setq buffers (list (cdr item))) | |
554 ;; Add the last result the list. | |
555 (and result (list result)))))) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
556 buffer-alist) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
557 ;; Add the last result to the list |
10228 | 558 (list (cons path buffers)))))) |
559 | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
560 (defun msb--format-title (top-found-p path number-of-items) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
561 "Format a suitable title for the menu item." |
25095 | 562 (format (if top-found-p "%s... (%d)" "%s (%d)") |
563 (abbreviate-file-name path) number-of-items)) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
564 |
20884
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
565 ;; Variables for debugging. |
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
566 (defvar msb--choose-file-menu-list) |
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
567 (defvar msb--choose-file-menu-arg-list) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
568 |
10228 | 569 (defun msb--choose-file-menu (list) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
570 "Choose file-menu with respect to directory for every buffer in LIST." |
20884
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
571 (setq msb--choose-file-menu-arg-list list) |
10228 | 572 (let ((buffer-alist (msb--init-file-alist list)) |
573 (final-list nil) | |
574 (max-clumped-together (if (numberp msb-max-file-menu-items) | |
575 msb-max-file-menu-items | |
576 10)) | |
577 (top-found-p nil) | |
578 (last-path nil) | |
20901 | 579 first rest path buffers old-path) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
580 ;; Prepare for looping over all items in buffer-alist |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
581 (setq first (car buffer-alist) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
582 rest (cdr buffer-alist) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
583 path (car first) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
584 buffers (cdr first)) |
20884
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
585 (setq msb--choose-file-menu-list (copy-list rest)) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
586 ;; This big loop tries to clump buffers together that have a |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
587 ;; similar name. Remember that buffer-alist is sorted based on the |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
588 ;; path for the buffers. |
10228 | 589 (while rest |
590 (let ((found-p nil) | |
591 (tmp-rest rest) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
592 result |
10228 | 593 new-path item) |
594 (setq item (car tmp-rest)) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
595 ;; Clump together the "rest"-buffers that have a path that is |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
596 ;; a subpath of the current one. |
10228 | 597 (while (and tmp-rest |
598 (<= (length buffers) max-clumped-together) | |
599 (>= (length (car item)) (length path)) | |
25281
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
600 ;; `completion-ignore-case' seems to default to t |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
601 ;; on the systems with case-insensitive file names. |
25123
abf35a5606f6
(msb--choose-file-menu): Fix previous change.
Dave Love <fx@gnu.org>
parents:
25095
diff
changeset
|
602 (eq t (compare-strings path 0 nil |
25281
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
603 (car item) 0 (length path) |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
604 completion-ignore-case))) |
10228 | 605 (setq found-p t) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
606 (setq buffers (append buffers (cdr item))) ;nconc is faster than append |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
607 (setq tmp-rest (cdr tmp-rest) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
608 item (car tmp-rest))) |
10228 | 609 (cond |
610 ((> (length buffers) max-clumped-together) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
611 ;; Oh, we failed. Too many buffers clumped together. |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
612 ;; Just use the original ones for the result. |
10228 | 613 (setq last-path (car first)) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
614 (push (cons (msb--format-title top-found-p |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
615 (car first) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
616 (length (cdr first))) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
617 (cdr first)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
618 final-list) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
619 (setq top-found-p nil) |
10228 | 620 (setq first (car rest) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
621 rest (cdr rest) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
622 path (car first) |
10228 | 623 buffers (cdr first))) |
624 (t | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
625 ;; The first pass of clumping together worked out, go ahead |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
626 ;; with this result. |
10228 | 627 (when found-p |
628 (setq top-found-p t) | |
629 (setq first (cons path buffers) | |
630 rest tmp-rest)) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
631 ;; Now see if we can clump more buffers together if we go up |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
632 ;; one step in the file hierarchy. |
20901 | 633 ;; If path isn't changed by msb--strip-dir, we are looking |
634 ;; at the machine name component of an ange-ftp filename. | |
635 (setq old-path path) | |
20505 | 636 (setq path (msb--strip-dir path) |
10228 | 637 buffers (cdr first)) |
20901 | 638 (if (equal old-path path) |
639 (setq last-path path)) | |
10228 | 640 (when (and last-path |
641 (or (and (>= (length path) (length last-path)) | |
25281
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
642 (eq t (compare-strings |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
643 last-path 0 nil path 0 |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
644 (length last-path) |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
645 completion-ignore-case))) |
10228 | 646 (and (< (length path) (length last-path)) |
25281
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
647 (eq t (compare-strings |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
648 path 0 nil last-path 0 (length path) |
26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
Dave Love <fx@gnu.org>
parents:
25278
diff
changeset
|
649 completion-ignore-case))))) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
650 ;; We have reached the same place in the file hierarchy as |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
651 ;; the last result, so we should quit at this point and |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
652 ;; take what we have as result. |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
653 (push (cons (msb--format-title top-found-p |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
654 (car first) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
655 (length (cdr first))) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
656 (cdr first)) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
657 final-list) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
658 (setq top-found-p nil) |
10228 | 659 (setq first (car rest) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
660 rest (cdr rest) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
661 path (car first) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
662 buffers (cdr first))))))) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
663 ;; Now take care of the last item. |
20901 | 664 (when first |
665 (push (cons (msb--format-title top-found-p | |
666 (car first) | |
667 (length (cdr first))) | |
668 (cdr first)) | |
669 final-list)) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
670 (setq top-found-p nil) |
10228 | 671 (nreverse final-list))) |
672 | |
673 (defun msb--create-function-info (menu-cond-elt) | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
674 "Create a vector from an element MENU-COND-ELT of `msb-menu-cond'. |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
675 This takes the form: |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
676 \]BUFFER-LIST-VARIABLE CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLER SORTER) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
677 See `msb-menu-cond' for a description of its elements." |
10228 | 678 (let* ((list-symbol (make-symbol "-msb-buffer-list")) |
679 (tmp-ih (and (> (length menu-cond-elt) 3) | |
680 (nth 3 menu-cond-elt))) | |
681 (item-handler (if (and tmp-ih (fboundp tmp-ih)) | |
682 tmp-ih | |
683 msb-item-handling-function)) | |
684 (tmp-s (if (> (length menu-cond-elt) 4) | |
685 (nth 4 menu-cond-elt) | |
686 msb-item-sort-function)) | |
687 (sorter (if (or (fboundp tmp-s) | |
688 (null tmp-s) | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
689 (eq tmp-s t)) |
10228 | 690 tmp-s |
691 msb-item-sort-function))) | |
692 (when (< (length menu-cond-elt) 3) | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
693 (error "Wrong format of msb-menu-cond")) |
10228 | 694 (when (and (> (length menu-cond-elt) 3) |
695 (not (fboundp tmp-ih))) | |
696 (signal 'invalid-function (list tmp-ih))) | |
697 (when (and (> (length menu-cond-elt) 4) | |
698 tmp-s | |
699 (not (fboundp tmp-s)) | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
700 (not (eq tmp-s t))) |
10228 | 701 (signal 'invalid-function (list tmp-s))) |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
702 (set list-symbol ()) |
10228 | 703 (vector list-symbol ;BUFFER-LIST-VARIABLE |
704 (nth 0 menu-cond-elt) ;CONDITION | |
705 (nth 1 menu-cond-elt) ;SORT-KEY | |
706 (nth 2 menu-cond-elt) ;MENU-TITLE | |
707 item-handler ;ITEM-HANDLER | |
708 sorter) ;SORTER | |
709 )) | |
710 | |
711 ;; This defsubst is only used in `msb--choose-menu' below. It was | |
20901 | 712 ;; pulled out merely to make the code somewhat clearer. The indentation |
10228 | 713 ;; level was too big. |
714 (defsubst msb--collect (function-info-vector) | |
715 (let ((result nil) | |
716 (multi-flag nil) | |
717 function-info-list) | |
718 (setq function-info-list | |
719 (loop for fi | |
720 across function-info-vector | |
721 if (and (setq result | |
722 (eval (aref fi 1))) ;Test CONDITION | |
723 (not (and (eq result 'no-multi) | |
724 multi-flag)) | |
725 (progn (when (eq result 'multi) | |
726 (setq multi-flag t)) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
727 t)) |
10228 | 728 collect fi |
729 until (and result | |
730 (not (eq result 'multi))))) | |
731 (when (and (not function-info-list) | |
732 (not result)) | |
733 (error "No catch-all in msb-menu-cond!")) | |
734 function-info-list)) | |
735 | |
736 (defun msb--add-to-menu (buffer function-info max-buffer-name-length) | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
737 "Add BUFFER to the menu depicted by FUNCTION-INFO. |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
738 All side-effects. Adds an element of form (BUFFER-TITLE . BUFFER) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
739 to the buffer-list variable in function-info." |
10228 | 740 (let ((list-symbol (aref function-info 0))) ;BUFFER-LIST-VARIABLE |
741 ;; Here comes the hairy side-effect! | |
742 (set list-symbol | |
743 (cons (cons (funcall (aref function-info 4) ;ITEM-HANDLER | |
744 buffer | |
745 max-buffer-name-length) | |
746 buffer) | |
747 (eval list-symbol))))) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
748 |
10228 | 749 (defsubst msb--choose-menu (buffer function-info-vector max-buffer-name-length) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
750 "Select the appropriate menu for BUFFER." |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
751 ;; This is all side-effects, folks! |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
752 ;; This should be optimized. |
10228 | 753 (unless (and (not msb-display-invisible-buffers-p) |
754 (msb-invisible-buffer-p buffer)) | |
755 (condition-case nil | |
756 (save-excursion | |
757 (set-buffer buffer) | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
758 ;; Menu found. Add to this menu |
20901 | 759 (mapc (lambda (function-info) |
760 (msb--add-to-menu buffer function-info max-buffer-name-length)) | |
10228 | 761 (msb--collect function-info-vector))) |
762 (error (unless msb--error | |
763 (setq msb--error | |
764 (format | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
765 "In msb-menu-cond, error for buffer `%s'." |
10228 | 766 (buffer-name buffer))) |
14427
ac3101efc47e
(msb--choose-menu): Fix error format string.
Karl Heuer <kwzh@gnu.org>
parents:
14292
diff
changeset
|
767 (error "%s" msb--error)))))) |
10228 | 768 |
769 (defun msb--create-sort-item (function-info) | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
770 "Return (SORT-KEY TITLE . BUFFER-LIST) or nil if the buffer-list is empty." |
10228 | 771 (let ((buffer-list (eval (aref function-info 0)))) |
772 (when buffer-list | |
773 (let ((sorter (aref function-info 5)) ;SORTER | |
774 (sort-key (aref function-info 2))) ;MENU-SORT-KEY | |
775 (when sort-key | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
776 (cons sort-key |
10228 | 777 (cons (format (aref function-info 3) ;MENU-TITLE |
778 (length buffer-list)) | |
779 (cond | |
780 ((null sorter) | |
781 buffer-list) | |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
782 ((eq sorter t) |
10228 | 783 (nreverse buffer-list)) |
784 (t | |
785 (sort buffer-list sorter)))))))))) | |
786 | |
20901 | 787 (defun msb--aggregate-alist (alist same-predicate sort-predicate) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
788 "Return ALIST as a sorted, aggregated alist. |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
789 |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
790 In the result all items with the same car element (according to |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
791 SAME-PREDICATE) are aggregated together. The alist is first sorted by |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
792 SORT-PREDICATE. |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
793 |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
794 Example: |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
795 (msb--aggregate-alist |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
796 '((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2)) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
797 (function string=) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
798 (lambda (item1 item2) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
799 (string< (symbol-name item1) (symbol-name item2)))) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
800 results in |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
801 ((a a1 a2 a4 a3) (b b1 b3 b2) (c c3))" |
20901 | 802 (when (not (null alist)) |
803 (let (result | |
804 same | |
805 tmp-old-car | |
806 tmp-same | |
807 (first-time-p t) | |
808 old-car) | |
809 (nconc | |
810 (mapcan (lambda (item) | |
811 (cond | |
812 (first-time-p | |
813 (push (cdr item) same) | |
814 (setq first-time-p nil) | |
815 (setq old-car (car item)) | |
816 nil) | |
817 ((funcall same-predicate (car item) old-car) | |
818 (push (cdr item) same) | |
819 nil) | |
820 (t | |
821 (setq tmp-same same | |
822 tmp-old-car old-car) | |
823 (setq same (list (cdr item)) | |
824 old-car (car item)) | |
825 (list (cons tmp-old-car (nreverse tmp-same)))))) | |
826 (sort alist (lambda (item1 item2) | |
827 (funcall sort-predicate (car item1) (car item2))))) | |
828 (list (cons old-car (nreverse same))))))) | |
829 | |
830 | |
831 (defun msb--mode-menu-cond () | |
832 (let ((key msb-modes-key)) | |
833 (mapcar (lambda (item) | |
834 (incf key) | |
835 (list `( eq major-mode (quote ,(car item))) | |
836 key | |
837 (concat (cdr item) " (%d)"))) | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
838 (sort |
20901 | 839 (let ((mode-list nil)) |
840 (mapc (lambda (buffer) | |
841 (save-excursion | |
842 (set-buffer buffer) | |
843 (when (and (not (msb-invisible-buffer-p)) | |
844 (not (assq major-mode mode-list)) | |
845 (push (cons major-mode mode-name) | |
846 mode-list))))) | |
847 (cdr (buffer-list))) | |
848 mode-list) | |
849 (lambda (item1 item2) | |
850 (string< (cdr item1) (cdr item2))))))) | |
851 | |
10228 | 852 (defun msb--most-recently-used-menu (max-buffer-name-length) |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
853 "Return a list for the most recently used buffers. |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
854 It takes the form ((TITLE . BUFFER-LIST)...)." |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
855 (when (and (numberp msb-display-most-recently-used) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
856 (> msb-display-most-recently-used 0)) |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
857 (let* ((buffers (cdr (buffer-list))) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
858 (most-recently-used |
10228 | 859 (loop with n = 0 |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
860 for buffer in buffers |
10228 | 861 if (save-excursion |
862 (set-buffer buffer) | |
863 (and (not (msb-invisible-buffer-p)) | |
864 (not (eq major-mode 'dired-mode)))) | |
865 collect (save-excursion | |
866 (set-buffer buffer) | |
867 (cons (funcall msb-item-handling-function | |
868 buffer | |
869 max-buffer-name-length) | |
870 buffer)) | |
871 and do (incf n) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
872 until (>= n msb-display-most-recently-used)))) |
10228 | 873 (cons (if (stringp msb-most-recently-used-title) |
874 (format msb-most-recently-used-title | |
875 (length most-recently-used)) | |
876 (signal 'wrong-type-argument (list msb-most-recently-used-title))) | |
877 most-recently-used)))) | |
878 | |
879 (defun msb--create-buffer-menu-2 () | |
880 (let ((max-buffer-name-length 0) | |
881 file-buffers | |
882 function-info-vector) | |
883 ;; Calculate the longest buffer name. | |
884 (mapc | |
20901 | 885 (lambda (buffer) |
886 (if (or msb-display-invisible-buffers-p | |
887 (not (msb-invisible-buffer-p))) | |
888 (setq max-buffer-name-length | |
889 (max max-buffer-name-length | |
890 (length (buffer-name buffer)))))) | |
10228 | 891 (buffer-list)) |
892 ;; Make a list with elements of type | |
893 ;; (BUFFER-LIST-VARIABLE | |
894 ;; CONDITION | |
895 ;; MENU-SORT-KEY | |
896 ;; MENU-TITLE | |
897 ;; ITEM-HANDLER | |
898 ;; SORTER) | |
899 ;; Uses "function-global" variables: | |
900 ;; function-info-vector | |
901 (setq function-info-vector | |
902 (apply (function vector) | |
903 (mapcar (function msb--create-function-info) | |
20901 | 904 (append msb-menu-cond (msb--mode-menu-cond))))) |
10228 | 905 ;; Split the buffer-list into several lists; one list for each |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
906 ;; criteria. This is the most critical part with respect to time. |
20901 | 907 (mapc (lambda (buffer) |
908 (cond ((and msb-files-by-directory | |
909 (buffer-file-name buffer) | |
910 ;; exclude ange-ftp buffers | |
911 ;;(not (string-match "\\/[^/:]+:" | |
912 ;; (buffer-file-name buffer))) | |
913 ) | |
914 (push buffer file-buffers)) | |
915 (t | |
916 (msb--choose-menu buffer | |
917 function-info-vector | |
918 max-buffer-name-length)))) | |
10228 | 919 (buffer-list)) |
920 (when file-buffers | |
921 (setq file-buffers | |
20901 | 922 (mapcar (lambda (buffer-list) |
923 (cons msb-files-by-directory-sort-key | |
924 (cons (car buffer-list) | |
925 (sort | |
926 (mapcar (function | |
927 (lambda (buffer) | |
928 (cons (save-excursion | |
929 (set-buffer buffer) | |
930 (funcall msb-item-handling-function | |
931 buffer | |
932 max-buffer-name-length)) | |
933 buffer))) | |
934 (cdr buffer-list)) | |
935 (function | |
936 (lambda (item1 item2) | |
937 (string< (car item1) (car item2)))))))) | |
10228 | 938 (msb--choose-file-menu file-buffers)))) |
939 ;; Now make the menu - a list of (TITLE . BUFFER-LIST) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
940 (let* (menu |
10228 | 941 (most-recently-used |
942 (msb--most-recently-used-menu max-buffer-name-length)) | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
943 (others (nconc file-buffers |
10228 | 944 (loop for elt |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
945 across function-info-vector |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
946 for value = (msb--create-sort-item elt) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
947 if value collect value)))) |
10228 | 948 (setq menu |
949 (mapcar 'cdr ;Remove the SORT-KEY | |
950 ;; Sort the menus - not the items. | |
951 (msb--add-separators | |
952 (sort | |
953 ;; Get a list of (SORT-KEY TITLE . BUFFER-LIST) | |
954 ;; Also sorts the items within the menus. | |
955 (if (cdr most-recently-used) | |
956 (cons | |
957 ;; Add most recent used buffers | |
958 (cons msb-most-recently-used-sort-key | |
959 most-recently-used) | |
960 others) | |
961 others) | |
20901 | 962 (lambda (elt1 elt2) |
963 (< (car elt1) (car elt2))))))) | |
10228 | 964 ;; Now make it a keymap menu |
965 (append | |
966 '(keymap "Select Buffer") | |
967 (msb--make-keymap-menu menu) | |
968 (when msb-separator-diff | |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
969 (list (list 'separator "--"))) |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
970 (list (cons 'toggle |
10228 | 971 (cons |
972 (if msb-files-by-directory | |
973 "*Files by type*" | |
974 "*Files by directory*") | |
975 'msb--toggle-menu-type))))))) | |
976 | |
977 (defun msb--create-buffer-menu () | |
978 (save-match-data | |
979 (save-excursion | |
980 (msb--create-buffer-menu-2)))) | |
981 | |
982 (defun msb--toggle-menu-type () | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
983 "Multi purpose function for selecting a buffer with the mouse." |
10228 | 984 (interactive) |
985 (setq msb-files-by-directory (not msb-files-by-directory)) | |
20884
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
986 ;; This gets a warning, but it is correct, |
91f9c828fc1a
(msb--choose-file-menu): Save some debugging info.
Richard M. Stallman <rms@gnu.org>
parents:
20758
diff
changeset
|
987 ;; because this file redefines menu-bar-update-buffers. |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
988 (msb-menu-bar-update-buffers t)) |
10228 | 989 |
990 (defun mouse-select-buffer (event) | |
991 "Pop up several menus of buffers, for selection with the mouse. | |
992 Returns the selected buffer or nil if no buffer is selected. | |
993 | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
994 The way the buffers are split is conveniently handled with the |
10239
52a1e5ef144c
Fix quoting conventions and spaces at end of sentence.
Richard M. Stallman <rms@gnu.org>
parents:
10228
diff
changeset
|
995 variable `msb-menu-cond'." |
10228 | 996 ;; Popup the menu and return the selected buffer. |
997 (when (or msb--error | |
998 (not msb--last-buffer-menu) | |
999 (not (fboundp 'frame-or-buffer-changed-p)) | |
1000 (frame-or-buffer-changed-p)) | |
1001 (setq msb--error nil) | |
1002 (setq msb--last-buffer-menu (msb--create-buffer-menu))) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1003 (let ((position event) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1004 choice) |
10228 | 1005 (when (and (fboundp 'posn-x-y) |
1006 (fboundp 'posn-window)) | |
1007 (let ((posX (car (posn-x-y (event-start event)))) | |
1008 (posY (cdr (posn-x-y (event-start event)))) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1009 (posWind (posn-window (event-start event)))) |
10228 | 1010 ;; adjust position |
1011 (setq posX (- posX (funcall msb-horizontal-shift-function)) | |
1012 position (list (list posX posY) posWind)))) | |
10823
abd2a268ed88
(mouse-select-buffer): Do sit-for before x-popup-menu.
Richard M. Stallman <rms@gnu.org>
parents:
10821
diff
changeset
|
1013 ;; This `sit-for' magically makes the menu stay up if the mouse |
13998
2f2d3995b57f
(msb-max-file-menu-items, msb-menu-cond): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13372
diff
changeset
|
1014 ;; button is released within 0.1 second. |
10823
abd2a268ed88
(mouse-select-buffer): Do sit-for before x-popup-menu.
Richard M. Stallman <rms@gnu.org>
parents:
10821
diff
changeset
|
1015 (sit-for 0 100) |
abd2a268ed88
(mouse-select-buffer): Do sit-for before x-popup-menu.
Richard M. Stallman <rms@gnu.org>
parents:
10821
diff
changeset
|
1016 ;; Popup the menu |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1017 (setq choice (x-popup-menu position msb--last-buffer-menu)) |
10228 | 1018 (cond |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1019 ((eq (car choice) 'toggle) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1020 ;; Bring up the menu again with type toggled. |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1021 (msb--toggle-menu-type) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1022 (mouse-select-buffer event)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1023 ((and (numberp (car choice)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1024 (null (cdr choice))) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1025 (let ((msb--last-buffer-menu (nthcdr 3 (assq (car choice) msb--last-buffer-menu)))) |
10228 | 1026 (mouse-select-buffer event))) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1027 ((while (numberp (car choice)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1028 (setq choice (cdr choice)))) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1029 ((and (stringp (car choice)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1030 (null (cdr choice))) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1031 (car choice)) |
10403
c0e27466fb3f
(mouse-select-buffer) Handle an aborted selection.
Richard M. Stallman <rms@gnu.org>
parents:
10371
diff
changeset
|
1032 ((null choice) |
c0e27466fb3f
(mouse-select-buffer) Handle an aborted selection.
Richard M. Stallman <rms@gnu.org>
parents:
10371
diff
changeset
|
1033 choice) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1034 (t |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1035 (error "Unknown form for buffer: %s" choice))))) |
20901 | 1036 |
10228 | 1037 ;; Add separators |
1038 (defun msb--add-separators (sorted-list) | |
1039 (cond | |
1040 ((or (not msb-separator-diff) | |
1041 (not (numberp msb-separator-diff))) | |
1042 sorted-list) | |
1043 (t | |
1044 (let ((last-key nil)) | |
1045 (mapcan | |
20901 | 1046 (lambda (item) |
1047 (cond | |
1048 ((and msb-separator-diff | |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1049 last-key |
20901 | 1050 (> (- (car item) last-key) |
1051 msb-separator-diff)) | |
1052 (setq last-key (car item)) | |
1053 (list (cons last-key 'separator) | |
1054 item)) | |
1055 (t | |
1056 (setq last-key (car item)) | |
1057 (list item)))) | |
10228 | 1058 sorted-list))))) |
1059 | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1060 (defun msb--split-menus-2 (list mcount result) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1061 (cond |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1062 ((> (length list) msb-max-menu-items) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1063 (let ((count 0) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1064 sub-name |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1065 (tmp-list nil)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1066 (while (< count msb-max-menu-items) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1067 (push (pop list) tmp-list) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1068 (incf count)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1069 (setq tmp-list (nreverse tmp-list)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1070 (setq sub-name (concat (car (car tmp-list)) "...")) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1071 (push (nconc (list mcount sub-name |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1072 'keymap sub-name) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1073 tmp-list) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1074 result)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1075 (msb--split-menus-2 list (1+ mcount) result)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1076 ((null result) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1077 list) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1078 (t |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1079 (let (sub-name) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1080 (setq sub-name (concat (car (car list)) "...")) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1081 (push (nconc (list mcount sub-name |
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1082 'keymap sub-name) |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1083 list) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1084 result)) |
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1085 (nreverse result)))) |
20901 | 1086 |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1087 (defun msb--split-menus (list) |
20901 | 1088 (if (and (integerp msb-max-menu-items) |
1089 (> msb-max-menu-items 0)) | |
1090 (msb--split-menus-2 list 0 nil) | |
1091 list)) | |
10371
629821e2b42e
Better format of files-by-directory menus.
Richard M. Stallman <rms@gnu.org>
parents:
10239
diff
changeset
|
1092 |
10228 | 1093 (defun msb--make-keymap-menu (raw-menu) |
1094 (let ((end (cons '(nil) 'menu-bar-select-buffer)) | |
1095 (mcount 0)) | |
1096 (mapcar | |
20901 | 1097 (lambda (sub-menu) |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1098 (cond |
20901 | 1099 ((eq 'separator sub-menu) |
1100 (list 'separator "--")) | |
1101 (t | |
1102 (let ((buffers (mapcar (function | |
1103 (lambda (item) | |
1104 (let ((string (car item)) | |
1105 (buffer (cdr item))) | |
1106 (cons (buffer-name buffer) | |
1107 (cons string end))))) | |
1108 (cdr sub-menu)))) | |
1109 (nconc (list (incf mcount) (car sub-menu) | |
1110 'keymap (car sub-menu)) | |
1111 (msb--split-menus buffers)))))) | |
10228 | 1112 raw-menu))) |
1113 | |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1114 (defun msb-menu-bar-update-buffers (&optional arg) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1115 "A re-written version of `menu-bar-update-buffers'." |
10228 | 1116 ;; If user discards the Buffers item, play along. |
1117 (when (and (lookup-key (current-global-map) [menu-bar buffer]) | |
1118 (or (not (fboundp 'frame-or-buffer-changed-p)) | |
1119 (frame-or-buffer-changed-p) | |
1120 arg)) | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1121 (let ((frames (frame-list)) |
10228 | 1122 buffers-menu frames-menu) |
1123 ;; Make the menu of buffers proper. | |
1124 (setq msb--last-buffer-menu (msb--create-buffer-menu)) | |
1125 (setq buffers-menu msb--last-buffer-menu) | |
1126 ;; Make a Frames menu if we have more than one frame. | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1127 (when (cdr frames) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1128 (let* ((frame-length (length frames)) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1129 (f-title (format "Frames (%d)" frame-length))) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1130 ;; List only the N most recently selected frames |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1131 (when (and (integerp msb-max-menu-items) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1132 (> msb-max-menu-items 1) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1133 (> frame-length msb-max-menu-items)) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1134 (setcdr (nthcdr msb-max-menu-items frames) nil)) |
10228 | 1135 (setq frames-menu |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1136 (nconc |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1137 (list 'frame f-title '(nil) 'keymap f-title) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1138 (mapcar |
20901 | 1139 (lambda (frame) |
1140 (nconc | |
1141 (list frame | |
1142 (cdr (assq 'name | |
1143 (frame-parameters frame))) | |
1144 (cons nil nil)) | |
1145 'menu-bar-select-frame)) | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1146 frames))))) |
10228 | 1147 (define-key (current-global-map) [menu-bar buffer] |
1148 (cons "Buffers" | |
1149 (if (and buffers-menu frames-menu) | |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1150 ;; Combine Frame and Buffers menus with separator between |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1151 (nconc (list 'keymap "Buffers and Frames" frames-menu |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1152 (and msb-separator-diff '(separator "--"))) |
10821
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1153 (cddr buffers-menu)) |
1ff0ed96a4c0
(msb): Select the window that the mouse is in before
Richard M. Stallman <rms@gnu.org>
parents:
10403
diff
changeset
|
1154 (or buffers-menu 'undefined))))))) |
10228 | 1155 |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1156 ;; Snarf current bindings of `mouse-buffer-menu' (normally |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1157 ;; C-down-mouse-1). |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1158 (defvar msb-mode-map |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1159 (let ((map (make-sparse-keymap))) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1160 (mapcar (lambda (key) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1161 (define-key map key #'msb)) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1162 (where-is-internal 'mouse-buffer-menu (make-sparse-keymap))) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1163 map)) |
20504
1b8aec1c12f1
Doc fixes. Changed `append' to `nconc'
Richard M. Stallman <rms@gnu.org>
parents:
16833
diff
changeset
|
1164 |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1165 ;;;###autoload |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1166 (defun msb-mode (&optional arg) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1167 "Toggle Msb mode. |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1168 With arg, turn Msb mode on if and only if arg is positive. |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1169 This mode overrides the binding(s) of `mouse-buffer-menu' to provide a |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1170 different buffer menu using the function `msb'." |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1171 (interactive "P") |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1172 (setq msb-mode (if arg |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1173 (> (prefix-numeric-value arg) 0) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1174 (not msb-mode))) |
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1175 (if msb-mode |
25050
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1176 (progn |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1177 (add-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1178 (remove-hook 'menu-bar-update-hook 'menu-bar-update-buffers)) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1179 (remove-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1180 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)) |
1539c0070dd3
(msb-menu-bar-update-buffers): Renamed from
Dave Love <fx@gnu.org>
parents:
24796
diff
changeset
|
1181 (run-hooks 'menu-bar-update-hook)) |
10228 | 1182 |
24796
19424321d8e1
Add to minor-mode-map-alist. Remove hook installation
Dave Love <fx@gnu.org>
parents:
21670
diff
changeset
|
1183 (add-to-list 'minor-mode-map-alist (cons 'msb-mode msb-mode-map)) |
10228 | 1184 |
1185 (provide 'msb) | |
1186 (eval-after-load 'msb (run-hooks 'msb-after-load-hooks)) | |
16833
052a9f2e21e5
(frame-or-buffer-changed-p): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
16428
diff
changeset
|
1187 |
10228 | 1188 ;;; msb.el ends here |