|
0
|
1 ;;; recent-files.el --- Maintain menu of recently opened files.
|
|
70
|
2 ;;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.1.1.1 1996/12/18 22:42:54 steve Exp $
|
|
0
|
3 ;;;
|
|
|
4 ;;; Copyright (C) 1994, 1995 Juergen Nickelsen <nickel@cs.tu-berlin.de>
|
|
|
5 ;;;
|
|
|
6 ;; Keywords: menu, file
|
|
|
7
|
|
|
8 ;; This file is part of XEmacs.
|
|
|
9
|
|
|
10 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
11 ;; under the terms of the GNU General Public License as published by
|
|
|
12 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
15 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
18 ;; General Public License for more details.
|
|
|
19
|
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
70
|
21 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
23 ;; Boston, MA 02111-1307, USA.
|
|
0
|
24
|
|
|
25 ;;; Synched up with: Not in FSF.
|
|
|
26 ;;;
|
|
|
27 ;;; recent-files.el is free software; you can redistribute it and/or
|
|
|
28 ;;; modify it under the terms of the GNU General Public License as
|
|
|
29 ;;; published by the Free Software Foundation; either version 2, or
|
|
|
30 ;;; (at your option) any later version.
|
|
|
31 ;;;
|
|
|
32 ;;; It is distributed in the hope that it will be useful, but WITHOUT
|
|
|
33 ;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
|
34 ;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
|
|
35 ;;; License for more details.
|
|
|
36 ;;;
|
|
|
37 ;;; You should have received a copy of the GNU General Public License
|
|
|
38 ;;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
39 ;;; Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
40 ;;; ------------------------------------------------------------------
|
|
|
41 ;;;
|
|
|
42 ;;; Enough of this boring stuff. To install recent-files, put the
|
|
|
43 ;;; following statements into your .emacs file
|
|
|
44 ;;; (load "recent-files")
|
|
|
45 ;;; (recent-files-initialize)
|
|
|
46 ;;; and place the file recent-files.el in a directory in your XEmacs's
|
|
|
47 ;;; load-path. In order to use recent-files with dired, dired has to
|
|
|
48 ;;; be loaded first. recent-files is known to work with Lucid Emacs /
|
|
|
49 ;;; XEmacs 19.8 and higher; it does not work correctly with 19.6 or
|
|
|
50 ;;; earlier versions due to a bug in add-menu.
|
|
|
51 ;;;
|
|
|
52 ;;; recent-files adds the menu "Recent Files" (or whatever name you
|
|
|
53 ;;; choose, see "Customization:" below) to Emacs's menubar. Its
|
|
|
54 ;;; entries are the files (and directories) that have recently been
|
|
|
55 ;;; opened by Emacs. You can open one of these files again by
|
|
|
56 ;;; selecting its entry in the "Recent Files" menu. The list of file
|
|
|
57 ;;; entries in this menu is preserved from one Emacs session to
|
|
|
58 ;;; another. You can prevent Emacs from saving this list by selecting
|
|
|
59 ;;; "Don't save recent-files list on exit" from the menu. If you have
|
|
|
60 ;;; disabled saving, you can re-enable it by selecting "Save
|
|
|
61 ;;; recent-files list on exit".
|
|
|
62 ;;;
|
|
|
63 ;;; The menu has permanent and non-permanent entries. Permanent
|
|
|
64 ;;; entries are marked with an asterisk in front of the filename. The
|
|
|
65 ;;; non-permanent entries are hidden in a submenu.
|
|
|
66 ;;;
|
|
|
67 ;;; Each time you open a file in Emacs, it is added as a non-permanent
|
|
|
68 ;;; entry to the menu. The value of `recent-files-number-of-entries'
|
|
|
69 ;;; determines how many non-permanent entries are held in the
|
|
|
70 ;;; menu. When the number of non-permanent entries reaches this value,
|
|
|
71 ;;; the least recently added non-permanent entry is removed from the
|
|
|
72 ;;; menu when another non-permanent entry is added. It is not removed
|
|
|
73 ;;; from the list, though; it may reappear when entries are deleted
|
|
|
74 ;;; from the list. The number of entries saved to disk is the value of
|
|
|
75 ;;; the variable `recent-files-number-of-saved-entries'.
|
|
|
76 ;;;
|
|
|
77 ;;; Permanent entries are not removed from the menu. You can make a
|
|
|
78 ;;; file entry permanent by selecting "Make <buffer> permanent" (where
|
|
|
79 ;;; <buffer> is the name of the current buffer) when the current
|
|
|
80 ;;; buffer holds this file. "Make <buffer> non-permanent" makes the
|
|
|
81 ;;; file entry of the current buffer non-permanent.
|
|
|
82 ;;;
|
|
|
83 ;;; The command "Kill buffer <buffer> and delete entry" is handy when
|
|
|
84 ;;; you have accidently opened a file but want to keep neither the
|
|
|
85 ;;; buffer nor the entry.
|
|
|
86 ;;;
|
|
|
87 ;;; You can erase the list of non-permanent entries by selecting
|
|
|
88 ;;; "Erase non-permanent entries" from the menu.
|
|
|
89 ;;;
|
|
|
90 ;;; Customization:
|
|
|
91 ;;;
|
|
|
92 ;;; There are lots of variables to control the behaviour of
|
|
|
93 ;;; recent-files. You do not have to change any of them if you like it
|
|
|
94 ;;; as it comes out of the box. However, you may want to look at these
|
|
|
95 ;;; options to make it behave different.
|
|
|
96 ;;;
|
|
|
97 ;;; `recent-files-number-of-entries'
|
|
|
98 ;;; Controls how many non-permanent entries are shown in the
|
|
|
99 ;;; recent-files list. The default is 15.
|
|
|
100 ;;;
|
|
|
101 ;;; `recent-files-number-of-saved-entries'
|
|
|
102 ;;; Controls how many non-permanent entries are saved to disk when
|
|
|
103 ;;; Emacs exits or recent-files-save-the-list is called. The
|
|
|
104 ;;; default is 50.
|
|
|
105 ;;;
|
|
|
106 ;;; `recent-files-save-file'
|
|
|
107 ;;; The name of the file where the recent-files list is saved
|
|
|
108 ;;; between Emacs session. You probably don't need to change this.
|
|
|
109 ;;; The default is ".recent-files.el" in your home directory.
|
|
|
110 ;;;
|
|
|
111 ;;; `recent-files-dont-include'
|
|
|
112 ;;; A list of regular expressions for files that should not be
|
|
|
113 ;;; included into the recent-files list. This list is empty by
|
|
|
114 ;;; default. For instance, a list to exclude all .newsrc
|
|
|
115 ;;; files, all auto-save-files, and all files in the /tmp
|
|
|
116 ;;; directory (but not the /tmp directory itself) would look
|
|
|
117 ;;; like this:
|
|
|
118 ;;; (setq recent-files-dont-include
|
|
|
119 ;;; '("/\\.newsrc" "~$" "^/tmp/."))
|
|
|
120 ;;; The default is empty.
|
|
|
121 ;;;
|
|
|
122 ;;; `recent-files-use-full-names'
|
|
|
123 ;;; If the value of this variable is non-nil, the full pathnames of
|
|
|
124 ;;; the files are shown in the recent-files menu. Otherwise only
|
|
|
125 ;;; the filename part (or the last name component if it is a
|
|
|
126 ;;; directory) is shown in the menu. The default it t, i.e. show
|
|
|
127 ;;; full names.
|
|
|
128 ;;;
|
|
|
129 ;;; `recent-files-filename-replacements'
|
|
|
130 ;;; This is a list of pairs of regular expressions and replacement
|
|
|
131 ;;; strings. If a filename matches one of the regular expressions,
|
|
|
132 ;;; the matching part is replaced by the replacement string for
|
|
|
133 ;;; display in the recent-files menu.
|
|
|
134 ;;; Example: My home directory is "/users/mmc/nickel/". I want to
|
|
|
135 ;;; replace it with "~/". I also want to replace the directory
|
|
|
136 ;;; "/imports/teleservices/mmc/avc2/", where I work a lot, with
|
|
|
137 ;;; ".../avc2/". The list then looks like
|
|
|
138 ;;; (setq recent-files-filename-replacements
|
|
|
139 ;;; '(("/users/mmc/nickel/" . "~/")
|
|
|
140 ;;; ("/imports/teleservices/mmc/avc2/" . ".../avc2/")))
|
|
|
141 ;;; Only the first match is replaced. So, if you have several
|
|
|
142 ;;; entries in this list that may match a filename simultaneously,
|
|
|
143 ;;; put the one you want to match (usually the most special) in
|
|
|
144 ;;; front of the others. The default is to replace the home
|
|
|
145 ;;; directory with "~".
|
|
|
146 ;;;
|
|
|
147 ;;; `recent-files-sort-function'
|
|
|
148 ;;; Contains a function symbol to sort the display of filenames in
|
|
|
149 ;;; the recent-files menu. Supplied are two functions,
|
|
|
150 ;;; 'recent-files-dont-sort and 'recent-files-sort-alphabetically.
|
|
|
151 ;;; The first, which is the default, preserves the order of "most
|
|
|
152 ;;; recent on top".
|
|
|
153 ;;;
|
|
|
154 ;;; `recent-files-permanent-submenu'
|
|
|
155 ;;; If this variable is non-nil, the permanent entries are put into
|
|
|
156 ;;; a separate submenu of the recent-files menu. The default is
|
|
|
157 ;;; nil.
|
|
|
158 ;;;
|
|
|
159 ;;; `recent-files-non-permanent-submenu'
|
|
|
160 ;;; If this variable is non-nil, the non-permanent entries are put
|
|
|
161 ;;; into a separate submenu of the recent-files menu. The default
|
|
|
162 ;;; is nil. (You can set both `recent-files-permanent-submenu' and
|
|
|
163 ;;; `recent-files-non-permanent-submenu' to t to have both lists in
|
|
|
164 ;;; separate submenus.)
|
|
|
165 ;;;
|
|
|
166 ;;; `recent-files-commands-submenu'
|
|
|
167 ;;; If this variable is non-nil, the commands if recent-files are
|
|
|
168 ;;; placed in a submenu of the recent-files menu. The default is
|
|
|
169 ;;; nil.
|
|
|
170 ;;;
|
|
|
171 ;;; `recent-files-commands-submenu-title'
|
|
|
172 ;;; If the commands are placed in a submenu, this string is used as
|
|
|
173 ;;; the title of the submenu. The default is "Commands...".
|
|
|
174 ;;;
|
|
|
175 ;;; `recent-files-actions-on-top'
|
|
|
176 ;;; If this variable is non-nil, the "action" menu entries ("Make
|
|
|
177 ;;; <buffer> permanent" etc.) are put on top of the menu. Otherwise
|
|
|
178 ;;; they appear below the file entries or submenus. The default is
|
|
|
179 ;;; nil.
|
|
|
180 ;;;
|
|
|
181 ;;; `recent-files-permanent-first'
|
|
|
182 ;;; If this variable is t, the permanent entries are put first in
|
|
|
183 ;;; the recent-files menu, i.e. above the non-permanent entries. If
|
|
|
184 ;;; the value is nil, non-permanent entries appear first. If the
|
|
|
185 ;;; value is neither t nor nil, the entries are sorted according to
|
|
|
186 ;;; recent-files-sort-function. The default is 'sort.
|
|
|
187 ;;;
|
|
|
188 ;;; `recent-files-find-file-command'
|
|
|
189 ;;; This variable contains to commandto execute when a file entry
|
|
|
190 ;;; is selected from the menu. Usually this will be `find-file',
|
|
|
191 ;;; which is the default.
|
|
|
192 ;;;
|
|
|
193 ;;; KNOWN BUG:
|
|
|
194 ;;; - recent-files overwrites the recent-files-save-file
|
|
|
195 ;;; unconditionally when Emacs exits. If you have two Emacs
|
|
|
196 ;;; processes running, the one exiting later will overwrite the
|
|
|
197 ;;; file without merging in the new entries from the other Emacs
|
|
|
198 ;;; process. This can be avoided by disabling the save on exit from
|
|
|
199 ;;; the menu.
|
|
|
200
|
|
|
201 (if (not (string-match "XEmacs" (emacs-version)))
|
|
|
202 (error "recent-files works with Lucid Emacs / XEmacs only."))
|
|
|
203
|
|
|
204 (provide 'recent-files)
|
|
|
205
|
|
|
206
|
|
|
207 ;;; User options
|
|
|
208
|
|
|
209 (defvar recent-files-number-of-entries 15
|
|
|
210 "*Maximum of non-permanent entries in the recent-files menu.")
|
|
|
211
|
|
|
212 (defvar recent-files-number-of-saved-entries 50
|
|
|
213 "*Maximum of non-permanent entries saved to `recent-files-save-file'.")
|
|
|
214
|
|
|
215 (defvar recent-files-save-file (expand-file-name "~/.recent-files.el")
|
|
|
216 "*File to save the recent-files list in.")
|
|
|
217
|
|
|
218 (defvar recent-files-dont-include nil
|
|
|
219 "*List of regexps for filenames *not* to keep in recent-files.")
|
|
|
220
|
|
|
221 (defvar recent-files-use-full-names t
|
|
|
222 "*If non-nil, use the full pathname of a file in the recent-files menu.
|
|
|
223 Otherwise use only the filename part. The `recent-files-filename-replacements'
|
|
|
224 are not applied in the latter case.")
|
|
|
225
|
|
|
226 (defvar recent-files-filename-replacements
|
|
|
227 (list (cons (expand-file-name "~") "~"))
|
|
|
228 "*List of regexp/replacement pairs for filename filenamees.
|
|
|
229 If a filename of a filename matches one of the regexps, it is replaced
|
|
|
230 by the corresponding replacement.")
|
|
|
231
|
|
|
232 (defvar recent-files-sort-function (function recent-files-dont-sort)
|
|
|
233 "*Function to sort the recent-files list with.
|
|
|
234 The value `recent-files-dont-sort' means to keep the \"most recent on top\"
|
|
|
235 order.")
|
|
|
236
|
|
|
237 (defvar recent-files-permanent-submenu nil
|
|
|
238 "*If non-nil, put the permanent entries of recent-files into a submenu.")
|
|
|
239
|
|
|
240 (defvar recent-files-non-permanent-submenu t
|
|
|
241 "*If non-nil, put the non-permanent entries of recent-files into a submenu.")
|
|
|
242
|
|
|
243 (defvar recent-files-commands-submenu nil
|
|
|
244 "*If non-nil, put the commands of recent-files into a submenu.")
|
|
|
245
|
|
|
246 (defvar recent-files-commands-submenu-title "Commands..."
|
|
|
247 "*Title of the commands submenu of recent-files.")
|
|
|
248
|
|
|
249 (defvar recent-files-menu-title "Recent Files"
|
|
|
250 "*Name to be displayed as title of the recent-files menu.")
|
|
|
251
|
|
|
252 (defvar recent-files-menu-path nil
|
|
|
253 "*Path where to add the recent-files menu.
|
|
|
254 A value of nil means add it as top-level menu.
|
|
|
255 For more information look up the documentation of `add-menu'.")
|
|
|
256
|
|
|
257 (defvar recent-files-add-menu-before nil
|
|
|
258 "*Name of the menu before which the recent-files menu shall be added.
|
|
|
259 A value of nil means add it as the last menu in recent-files-menu-path.
|
|
|
260 For more information look up the documentation of `add-menu'.")
|
|
|
261
|
|
|
262 (defvar recent-files-actions-on-top nil
|
|
|
263 "*If non-nil, put the actions on top of the recent-files menu.")
|
|
|
264
|
|
|
265 (defvar recent-files-permanent-first 'sort
|
|
|
266 "*Control the placement of entries in the recent-files menu.
|
|
|
267 If the value is t, permanent entries are put first.
|
|
|
268 If the value is nil, non-permanent entries are put first.
|
|
|
269 If the value is neither, the entries are mixed following
|
|
|
270 recent-files-sort-function if neither appear in a submenu.")
|
|
|
271
|
|
|
272 (defvar recent-files-find-file-command (function find-file)
|
|
|
273 "*Command to invoke with an entry of the recent-files list.")
|
|
|
274
|
|
|
275 (defvar recent-files-include-save-now nil
|
|
|
276 "*If non-nil, have a menu entry to save the recent-files list immediately.")
|
|
|
277
|
|
|
278 ;;; Internal variables
|
|
|
279
|
|
|
280 (defconst recent-files-save-list-on-exit t
|
|
|
281 "If non-nil, save the recent-files list on exit.
|
|
|
282 This value is toggled by a menu entry.")
|
|
|
283
|
|
|
284 (defvar recent-files-list nil
|
|
|
285 "List of recently opened files.
|
|
|
286 Entries are pairs like (<filename> . <permant-p>).
|
|
|
287 If <permanent-p> is non-nil, the file stays permanently in the list.")
|
|
|
288
|
|
|
289 (defvar recent-files-commands-menu
|
|
|
290 '(list (vector (concat "Make " lastpart " permanent")
|
|
|
291 (function recent-files-make-permanent)
|
|
|
292 (and lastpart
|
|
|
293 (not (recent-files-permanent-p filename))
|
|
|
294 ;; (not (not ...)) is needed to enforce t for non-nil
|
|
|
295 (not (not (recent-files-retrieve-entry filename)))))
|
|
|
296 (vector (concat "Make " lastpart " non-permanent")
|
|
|
297 (function recent-files-make-non-permanent)
|
|
|
298 (and lastpart
|
|
|
299 (recent-files-permanent-p filename)
|
|
|
300 (not (not (recent-files-retrieve-entry filename)))))
|
|
|
301 (vector "Erase non-permanent entries"
|
|
|
302 (function recent-files-erase-non-permanent)
|
|
|
303 t)
|
|
|
304 (vector (if recent-files-save-list-on-exit
|
|
|
305 "Don't save recent-files list on exit"
|
|
|
306 "Save recent-files list on exit")
|
|
|
307 ;; for some weird reason a (function (lambda ...))
|
|
|
308 ;; doesn't work here
|
|
|
309 (function recent-files-toggle-save-list-on-exit)
|
|
|
310 t)
|
|
|
311 (vector "Save recent-files list now"
|
|
|
312 (function recent-files-save-the-list)
|
|
|
313 t)
|
|
|
314 (vector (concat "Kill buffer " lastpart
|
|
|
315 " and delete entry")
|
|
|
316 (function recent-files-kill-buffer-delete-entry)
|
|
|
317 lastpart))
|
|
|
318 "Command menu definition for recent-files.
|
|
|
319 This definition is evaluated in a context where `filename' holds the file
|
|
|
320 name of the current buffer and `lastpart' holds the last component of
|
|
|
321 `filename'.")
|
|
|
322
|
|
|
323
|
|
|
324 (defconst recent-files-save-file-header
|
|
|
325 ";; This file is generated by recent-files.
|
|
|
326 ;; The car of each entry of recent-files-save-list is to appear in the
|
|
|
327 ;; `recent-files' menu. If the cdr of an entry is t, the file is to stay
|
|
|
328 ;; in the menu permanently.
|
|
|
329 ;; Saved at %s.
|
|
|
330
|
|
|
331 " "Header to be written into the `recent-files-save-file'.")
|
|
|
332
|
|
|
333
|
|
|
334 (defconst recent-files-buffer-name " *recent files save list*"
|
|
|
335 "Name of the buffer to build the save file in.")
|
|
|
336
|
|
|
337 (defvar recent-files-list-changed-p t
|
|
|
338 "Non-nil if the recent-files-list has changed after last menubar update.")
|
|
|
339
|
|
|
340 (defvar recent-files-last-buffer nil
|
|
|
341 "Buffer at the time of last recent-files menu rebuild.
|
|
|
342 If the buffer has changed, the menu must be rebuilt.")
|
|
|
343
|
|
|
344 ;;; Module initialization
|
|
|
345
|
|
|
346 (defun recent-files-initialize ()
|
|
|
347 "Initialize the recent-files menu."
|
|
|
348 (interactive)
|
|
|
349 (add-hook 'find-file-hooks (function recent-files-find-and-write-file-hook))
|
|
|
350 (add-hook 'dired-after-readin-hook
|
|
|
351 (function recent-files-find-and-write-file-hook))
|
|
|
352 (add-hook 'kill-emacs-hook (function recent-files-save-the-list))
|
|
|
353 (add-hook 'activate-menubar-hook (function recent-files-update-menu))
|
|
|
354 (add-hook 'write-file-hooks (function recent-files-find-and-write-file-hook))
|
|
|
355 ;; Initialize recent-files-list only if it is non-nil.
|
|
|
356 (cond (recent-files-list
|
|
|
357 (message "recent-files is already initialized."))
|
|
|
358 ((file-readable-p recent-files-save-file)
|
|
|
359 (setq recent-files-list-changed-p t)
|
|
|
360 (load-file recent-files-save-file)))
|
|
|
361 (recent-files-update-menu))
|
|
|
362
|
|
|
363
|
|
|
364 (defun recent-files-version ()
|
|
|
365 "Return a string identifying the current verion of recent-files.
|
|
|
366 If called interactively, show it in the echo area."
|
|
|
367 (interactive)
|
|
70
|
368 (let ((version "$Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.1.1.1 1996/12/18 22:42:54 steve Exp $"))
|
|
0
|
369 (if (interactive-p)
|
|
|
370 (message version)
|
|
|
371 version)))
|
|
|
372
|
|
|
373
|
|
|
374 ;;; Hook functions
|
|
|
375
|
|
|
376 (defun recent-files-find-and-write-file-hook ()
|
|
|
377 "Find-file-hook, write-file-hook, and dired-mode-hook for recent-files.
|
|
|
378 Inserts the name of the file just opened or written into the
|
|
|
379 `recent-files-list' and updates the recent-files menu."
|
|
|
380 (recent-files-add-file (recent-files-get-file-name))
|
|
|
381 nil)
|
|
|
382
|
|
|
383
|
|
|
384 (defun recent-files-get-file-name ()
|
|
|
385 "Return the filename of the current buffer or nil, if there is none.
|
|
|
386 This functions is supposed to do \"the right thing\" also for some modes
|
|
|
387 with no buffer-file-name. Currently supported: 'dired-mode."
|
|
|
388 (cond (buffer-file-name
|
|
|
389 buffer-file-name)
|
|
|
390 ((eq major-mode 'dired-mode)
|
|
|
391 (dired-current-directory))))
|
|
|
392
|
|
|
393
|
|
|
394 (defun recent-files-save-the-list ()
|
|
|
395 "Save the current `recent-files-list' to the file `recent-files-save-file'.
|
|
|
396 This is done by writing a `setq' statement to `recent-files-list' into
|
|
|
397 the file."
|
|
|
398 (interactive)
|
|
|
399 (if recent-files-save-list-on-exit
|
|
|
400 (let ((l (recent-files-enforce-max-length
|
|
|
401 recent-files-number-of-saved-entries
|
|
|
402 recent-files-list)))
|
|
|
403 (save-excursion
|
|
|
404 (set-buffer (get-buffer-create recent-files-buffer-name))
|
|
|
405 (erase-buffer)
|
|
|
406 (insert (format recent-files-save-file-header (current-time-string)))
|
|
|
407 (insert "(setq recent-files-list \n '(")
|
|
|
408 (if l
|
|
|
409 (progn
|
|
|
410 (while l
|
|
|
411 (if (bolp)
|
|
|
412 (insert " "))
|
|
|
413 (prin1 (car l) (current-buffer))
|
|
|
414 (insert "\n")
|
|
|
415 (setq l (cdr l)))
|
|
|
416 (forward-line -1)))
|
|
|
417 (end-of-line)
|
|
|
418 (insert "))")
|
|
|
419 (if (file-writable-p recent-files-save-file)
|
|
|
420 (write-region (point-min) (point-max) recent-files-save-file))
|
|
|
421 (kill-buffer (current-buffer))))))
|
|
|
422
|
|
|
423
|
|
|
424 ;;; Construct the menu
|
|
|
425
|
|
|
426 (defun recent-files-update-menu ()
|
|
|
427 "Update the recent-files menu from the recent-files-list."
|
|
|
428 (if (or recent-files-list-changed-p
|
|
|
429 (not recent-files-last-buffer)
|
|
|
430 (not (eq recent-files-last-buffer
|
|
|
431 (current-buffer))))
|
|
|
432 ;; This is an ugly mess...
|
|
|
433 (let ((action-menu-entries
|
|
|
434 (let ((entries
|
|
|
435 (let* ((filename (recent-files-get-file-name))
|
|
|
436 (lastpart (recent-files-last-part-of-name
|
|
|
437 filename)))
|
|
|
438 (eval recent-files-commands-menu))))
|
|
|
439 (if recent-files-commands-submenu
|
|
|
440 (list (cons recent-files-commands-submenu-title
|
|
|
441 entries))
|
|
|
442 entries)))
|
|
|
443 permanent non-permanent all)
|
|
|
444 ;; ... getting weirder by the minute ...
|
|
|
445 (if (or recent-files-permanent-submenu
|
|
|
446 recent-files-non-permanent-submenu
|
|
|
447 (null recent-files-permanent-first)
|
|
|
448 (eq t recent-files-permanent-first))
|
|
|
449 (progn
|
|
|
450 (setq permanent (recent-files-make-file-menu-entries
|
|
|
451 recent-files-list
|
|
|
452 (function recent-files-filter-permanent)))
|
|
|
453 (setq non-permanent (recent-files-make-file-menu-entries
|
|
|
454 recent-files-list
|
|
|
455 (function
|
|
|
456 recent-files-filter-non-permanent))))
|
|
|
457 (setq all (recent-files-make-file-menu-entries
|
|
|
458 recent-files-list
|
|
|
459 (function (lambda (l) l)))))
|
|
|
460 (if recent-files-permanent-submenu
|
|
|
461 (setq permanent (list (cons "Permanent entries..." permanent))))
|
|
|
462 (if recent-files-non-permanent-submenu
|
|
|
463 (setq non-permanent (list (cons "Non-permanent entries..."
|
|
|
464 non-permanent))))
|
|
|
465 ;;; ... and now even uglier.
|
|
|
466 (add-menu recent-files-menu-path recent-files-menu-title
|
|
|
467 (nconc
|
|
|
468 (if recent-files-actions-on-top
|
|
|
469 (append action-menu-entries (list "-----")))
|
|
|
470 (if (or recent-files-permanent-submenu
|
|
|
471 recent-files-non-permanent-submenu)
|
|
|
472 (if recent-files-permanent-first
|
|
|
473 (nconc permanent non-permanent)
|
|
|
474 (nconc non-permanent permanent))
|
|
|
475 (cond ((eq t recent-files-permanent-first)
|
|
|
476 (nconc permanent non-permanent))
|
|
|
477 ((null recent-files-permanent-first)
|
|
|
478 (nconc non-permanent permanent))
|
|
|
479 (t all)))
|
|
|
480 (if (not recent-files-actions-on-top)
|
|
|
481 (cons "-----"
|
|
|
482 action-menu-entries)))
|
|
|
483 recent-files-add-menu-before)
|
|
|
484 (setq recent-files-list-changed-p nil)
|
|
|
485 (setq recent-files-last-buffer (current-buffer))))
|
|
|
486 nil)
|
|
|
487
|
|
|
488
|
|
|
489 (defun recent-files-retrieve-entry (filename)
|
|
|
490 "Retrieve an entry from the recent-files list."
|
|
|
491 (assoc filename recent-files-list))
|
|
|
492
|
|
|
493
|
|
|
494 (defun recent-files-make-file-menu-entries (recent-list filter)
|
|
|
495 "Make file menu entries for recent-files from RECENT-LIST using FILTER."
|
|
|
496 (mapcar (function recent-files-entry-to-menu-entry)
|
|
|
497 (funcall filter
|
|
|
498 (funcall recent-files-sort-function
|
|
|
499 (recent-files-enforce-max-length
|
|
|
500 recent-files-number-of-entries
|
|
|
501 recent-list)))))
|
|
|
502
|
|
|
503
|
|
|
504 (defun recent-files-last-part-of-name (filename)
|
|
|
505 "Return last part of FILENAME."
|
|
|
506 (if filename
|
|
|
507 (if (and (file-directory-p filename)
|
|
|
508 (equal (substring filename -1) "/"))
|
|
|
509 (concat (file-name-nondirectory
|
|
|
510 (substring filename 0 -1))
|
|
|
511 "/")
|
|
|
512 (file-name-nondirectory filename))))
|
|
|
513
|
|
|
514
|
|
|
515 (defun recent-files-filter-permanent (recent-list)
|
|
|
516 "Return list of permanent entries in RECENT-LIST."
|
|
|
517 (cond ((null recent-list) nil)
|
|
|
518 ((recent-files-permanent-p (car (car recent-list)))
|
|
|
519 (cons (car recent-list)
|
|
|
520 (recent-files-filter-permanent (cdr recent-list))))
|
|
|
521 (t (recent-files-filter-permanent (cdr recent-list)))))
|
|
|
522
|
|
|
523
|
|
|
524 (defun recent-files-filter-non-permanent (recent-list)
|
|
|
525 "Return list of non-permanent entries in RECENT-LIST."
|
|
|
526 (cond ((null recent-list) nil)
|
|
|
527 ((recent-files-permanent-p (car (car recent-list)))
|
|
|
528 (recent-files-filter-non-permanent (cdr recent-list)))
|
|
|
529 (t (cons (car recent-list)
|
|
|
530 (recent-files-filter-non-permanent (cdr recent-list))))))
|
|
|
531
|
|
|
532
|
|
|
533 (defun recent-files-permanent-p (filename)
|
|
|
534 "Return non-nil if FILENAME is a permanent entry in the recent-files menu."
|
|
|
535 (cdr (recent-files-retrieve-entry filename)))
|
|
|
536
|
|
|
537
|
|
|
538 (defun recent-files-entry-to-menu-entry (entry)
|
|
|
539 "Build a menu entry from an entry in `recent-files-list'."
|
|
|
540 (vector (concat (if (cdr entry)
|
|
|
541 "* "
|
|
|
542 " ")
|
|
|
543 (if recent-files-use-full-names
|
|
|
544 (recent-files-replace-filenames (car entry))
|
|
|
545 (recent-files-last-part-of-name (car entry))))
|
|
|
546 (list recent-files-find-file-command (car entry))
|
|
|
547 t))
|
|
|
548
|
|
|
549
|
|
|
550 (defun recent-files-replace-filenames (filename)
|
|
|
551 "Replace the part of FILENAME that matches a regular expression
|
|
|
552 in recent-files-filename-replacements with the corrensponding replacement.
|
|
|
553 If FILENAME does not match any regular expression, return it unchanged.
|
|
|
554 Only the first matching regexp/replacement pair is applied."
|
|
|
555 (let ((replist recent-files-filename-replacements)
|
|
|
556 (retval filename)
|
|
|
557 (matched nil))
|
|
|
558 (while (and replist
|
|
|
559 (not matched))
|
|
|
560 (if (string-match (car (car replist)) filename)
|
|
|
561 (progn
|
|
|
562 (setq matched t)
|
|
|
563 (setq retval (concat (substring filename 0 (match-beginning 0))
|
|
|
564 (cdr (car replist))
|
|
|
565 (substring filename (match-end 0))))))
|
|
|
566 (setq replist (cdr replist)))
|
|
|
567 retval))
|
|
|
568
|
|
|
569
|
|
|
570 ;;; add a new entry
|
|
|
571
|
|
|
572 (defun recent-files-add-file (filename)
|
|
|
573 "Add file FILENAME to `recent-files-list'.
|
|
|
574 FILENAME is not really added if it matches one of the regexps in
|
|
|
575 `recent-files-dont-include'."
|
|
|
576 (if (recent-files-no-match filename recent-files-dont-include)
|
|
|
577 (progn
|
|
|
578 (setq recent-files-list-changed-p t)
|
|
|
579 (setq recent-files-list
|
|
|
580 (cons (or (recent-files-retrieve-entry filename)
|
|
|
581 (cons filename nil))
|
|
|
582 (recent-files-remove-entry filename
|
|
|
583 recent-files-list))))))
|
|
|
584
|
|
|
585
|
|
|
586 (defun recent-files-dont-sort (recent-list)
|
|
|
587 "Return RECENT-LIST.
|
|
|
588 This is a dummy sorting function for the recent-files-list."
|
|
|
589 recent-list)
|
|
|
590
|
|
|
591 (defun recent-files-sort-alphabetically (recent-list)
|
|
|
592 "Return RECENT-LIST sorted alphabetically by the cars of the elements."
|
|
|
593 (sort recent-list (function
|
|
|
594 (lambda (e1 e2)
|
|
|
595 (string-lessp (car e1) (car e2))))))
|
|
|
596
|
|
|
597
|
|
|
598 (defun recent-files-enforce-max-length (n l)
|
|
|
599 "Return a list of all permanent and the first N non-permanent entries of L.
|
|
|
600 Preserve the order of the entries."
|
|
|
601 (let ((count 0)
|
|
|
602 (newlist nil))
|
|
|
603 (while l
|
|
|
604 (if (cdr (car l))
|
|
|
605 (setq newlist (cons (car l) newlist))
|
|
|
606 (if (< count n)
|
|
|
607 (setq newlist (cons (car l) newlist)))
|
|
|
608 (setq count (1+ count)))
|
|
|
609 (setq l (cdr l)))
|
|
|
610 (nreverse newlist)))
|
|
|
611
|
|
|
612
|
|
|
613 (defun recent-files-remove-entry (fname recent-list)
|
|
|
614 "Delete all elements that have FNAME as a car from RECENT-LIST.
|
|
|
615 The constructed list returned, RECENT-LIST is not changed.
|
|
|
616 Comparison is done with equal."
|
|
|
617 (let ((newlist nil))
|
|
|
618 (while recent-list
|
|
|
619 (if (not (equal (car (car recent-list)) fname))
|
|
|
620 (setq newlist (cons (car recent-list) newlist)))
|
|
|
621 (setq recent-list (cdr recent-list)))
|
|
|
622 (nreverse newlist)))
|
|
|
623
|
|
|
624 (defun recent-files-no-match (string re-list)
|
|
|
625 "Return t if STRING matches none of the regexps in RE-LIST."
|
|
|
626 (while (and re-list
|
|
|
627 (not (string-match (car re-list) string)))
|
|
|
628 (setq re-list (cdr re-list)))
|
|
|
629 (null re-list))
|
|
|
630
|
|
|
631
|
|
|
632 ;;; Menu commands
|
|
|
633
|
|
|
634 (defun recent-files-make-permanent ()
|
|
|
635 "Make the file in current buffer a permanent entry in recent-files."
|
|
|
636 (interactive)
|
|
|
637 (rplacd (recent-files-retrieve-entry (recent-files-get-file-name)) t)
|
|
|
638 (setq recent-files-list-changed-p t))
|
|
|
639
|
|
|
640
|
|
|
641 (defun recent-files-make-non-permanent ()
|
|
|
642 "Make the file in current buffer a non-permanent entry in recent-files."
|
|
|
643 (interactive)
|
|
|
644 (rplacd (recent-files-retrieve-entry (recent-files-get-file-name)) nil)
|
|
|
645 (setq recent-files-list-changed-p t))
|
|
|
646
|
|
|
647
|
|
|
648 (defun recent-files-kill-buffer-delete-entry ()
|
|
|
649 "Kill the current buffer and delete its entry in the recent-files menu."
|
|
|
650 (interactive)
|
|
|
651 (setq recent-files-list
|
|
|
652 (recent-files-remove-entry (recent-files-get-file-name)
|
|
|
653 recent-files-list))
|
|
|
654 (setq recent-files-list-changed-p t)
|
|
|
655 (kill-buffer (current-buffer)))
|
|
|
656
|
|
|
657 (defun recent-files-erase-non-permanent ()
|
|
|
658 "Erase all non-permanent entries from the recent-files menu."
|
|
|
659 (interactive)
|
|
|
660 (setq recent-files-list
|
|
|
661 (recent-files-filter-permanent recent-files-list))
|
|
|
662 (setq recent-files-list-changed-p t))
|
|
|
663
|
|
|
664 (defun recent-files-toggle-save-list-on-exit ()
|
|
|
665 "Toggle the value of `recent-files-save-list-on-exit'."
|
|
|
666 (interactive)
|
|
|
667 (setq recent-files-save-list-on-exit (not recent-files-save-list-on-exit))
|
|
|
668 (setq recent-files-list-changed-p t))
|
|
|
669
|
|
|
670 ;;; EOF
|
