38436
|
1 ;;; recentf.el --- setup a menu of recently opened files
|
30416
|
2
|
64762
|
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
|
100908
|
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
30416
|
5
|
|
6 ;; Author: David Ponce <david@dponce.com>
|
|
7 ;; Created: July 19 1999
|
50715
|
8 ;; Keywords: files
|
|
9
|
30416
|
10 ;; This file is part of GNU Emacs.
|
|
11
|
94678
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
13 ;; it under the terms of the GNU General Public License as published by
|
|
14 ;; the Free Software Foundation, either version 3 of the License, or
|
|
15 ;; (at your option) any later version.
|
30416
|
16
|
|
17 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
20 ;; GNU General Public License for more details.
|
|
21
|
|
22 ;; You should have received a copy of the GNU General Public License
|
94678
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
30416
|
24
|
|
25 ;;; Commentary:
|
|
26
|
|
27 ;; This package maintains a menu for visiting files that were operated
|
63781
|
28 ;; on recently. When enabled a new "Open Recent" sub menu is
|
|
29 ;; displayed in the "Files" menu. The recent files list is
|
|
30 ;; automatically saved across Emacs sessions. You can customize the
|
|
31 ;; number of recent files displayed, the location of the menu and
|
|
32 ;; others options (see the source code for details).
|
50715
|
33
|
|
34 ;;; History:
|
30416
|
35 ;;
|
|
36
|
|
37 ;;; Code:
|
|
38 (require 'easymenu)
|
63781
|
39 (require 'tree-widget)
|
50715
|
40 (require 'timer)
|
30416
|
41
|
50715
|
42 ;;; Internal data
|
|
43 ;;
|
30416
|
44 (defvar recentf-list nil
|
|
45 "List of recently opened files.")
|
|
46
|
67417
|
47 (defsubst recentf-enabled-p ()
|
|
48 "Return non-nil if recentf mode is currently enabled."
|
|
49 (memq 'recentf-save-list kill-emacs-hook))
|
50715
|
50
|
|
51 ;;; Customization
|
|
52 ;;
|
30416
|
53 (defgroup recentf nil
|
|
54 "Maintain a menu of recently opened files."
|
|
55 :version "21.1"
|
|
56 :group 'files)
|
|
57
|
|
58 (defgroup recentf-filters nil
|
|
59 "Group to customize recentf menu filters.
|
|
60 You should define the options of your own filters in this group."
|
|
61 :group 'recentf)
|
|
62
|
|
63 (defcustom recentf-max-saved-items 20
|
84657
|
64 "Maximum number of items of the recent list that will be saved.
|
64664
3161d6027fd7
(recentf-menu-append-commands-p): Declare with `define-obsolete-variable-alias'.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
65 A nil value means to save the whole list.
|
50715
|
66 See the command `recentf-save-list'."
|
30416
|
67 :group 'recentf
|
|
68 :type 'integer)
|
|
69
|
98865
|
70 (defcustom recentf-save-file (convert-standard-filename "~/.recentf")
|
84657
|
71 "File to save the recent list into."
|
30416
|
72 :group 'recentf
|
76773
|
73 :type 'file
|
|
74 :initialize 'custom-initialize-default
|
|
75 :set (lambda (symbol value)
|
|
76 (let ((oldvalue (eval symbol)))
|
|
77 (custom-set-default symbol value)
|
|
78 (and (not (equal value oldvalue))
|
|
79 recentf-mode
|
|
80 (recentf-load-list)))))
|
30416
|
81
|
65525
|
82 (defcustom recentf-save-file-modes 384 ;; 0600
|
|
83 "Mode bits of recentf save file, as an integer, or nil.
|
|
84 If non-nil, after writing `recentf-save-file', set its mode bits to
|
|
85 this value. By default give R/W access only to the user who owns that
|
|
86 file. See also the function `set-file-modes'."
|
|
87 :group 'recentf
|
|
88 :type '(choice (const :tag "Don't change" nil)
|
|
89 integer))
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
90
|
30416
|
91 (defcustom recentf-exclude nil
|
84657
|
92 "List of regexps and predicates for filenames excluded from the recent list.
|
52509
|
93 When a filename matches any of the regexps or satisfies any of the
|
|
94 predicates it is excluded from the recent list.
|
|
95 A predicate is a function that is passed a filename to check and that
|
|
96 must return non-nil to exclude it."
|
30416
|
97 :group 'recentf
|
52509
|
98 :type '(repeat (choice regexp function)))
|
30416
|
99
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
100 (defun recentf-keep-default-predicate (file)
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
101 "Return non-nil if FILE should be kept in the recent list.
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
102 It handles the case of remote files as well."
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
103 (cond
|
81935
66d338352087
* recentf.el (recentf-keep-default-predicate): Adapt call of
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
104 ((file-remote-p file nil t) (file-readable-p file))
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
105 ((file-remote-p file))
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
106 ((file-readable-p file))))
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
107
|
60844
|
108 (defcustom recentf-keep
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
109 '(recentf-keep-default-predicate)
|
84657
|
110 "List of regexps and predicates for filenames kept in the recent list.
|
60844
|
111 Regexps and predicates are tried in the specified order.
|
|
112 When nil all filenames are kept in the recent list.
|
|
113 When a filename matches any of the regexps or satisfies any of the
|
|
114 predicates it is kept in the recent list.
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
115 The default is to keep readable files. Remote files are checked
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
116 for readability only in case a connection is established to that
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
117 remote system, otherwise they are kept in the recent list without
|
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
118 checking their readability.
|
60844
|
119 A predicate is a function that is passed a filename to check and that
|
81893
5608c829dbac
* recentf.el (recentf-keep-default-predicate): New defun.
Michael Albinus <michael.albinus@gmx.de>
diff
changeset
|
120 must return non-nil to keep it."
|
60844
|
121 :group 'recentf
|
|
122 :type '(repeat (choice regexp function)))
|
|
123
|
50715
|
124 (defun recentf-menu-customization-changed (variable value)
|
|
125 "Function called when the recentf menu customization has changed.
|
|
126 Set VARIABLE with VALUE, and force a rebuild of the recentf menu."
|
67417
|
127 (if (and (featurep 'recentf) (recentf-enabled-p))
|
|
128 (progn
|
|
129 ;; Unavailable until recentf has been loaded.
|
|
130 (recentf-hide-menu)
|
|
131 (set-default variable value)
|
|
132 (recentf-show-menu))
|
|
133 (set-default variable value)))
|
50715
|
134
|
30416
|
135 (defcustom recentf-menu-title "Open Recent"
|
84657
|
136 "Name of the recentf menu."
|
30416
|
137 :group 'recentf
|
|
138 :type 'string
|
|
139 :set 'recentf-menu-customization-changed)
|
|
140
|
57993
|
141 (defcustom recentf-menu-path '("File")
|
84657
|
142 "Path where to add the recentf menu.
|
52468
|
143 If nil add it at top level (see also `easy-menu-add-item')."
|
30416
|
144 :group 'recentf
|
|
145 :type '(choice (const :tag "Top Level" nil)
|
|
146 (sexp :tag "Menu Path"))
|
|
147 :set 'recentf-menu-customization-changed)
|
|
148
|
44915
|
149 (defcustom recentf-menu-before "Open File..."
|
84657
|
150 "Name of the menu before which the recentf menu will be added.
|
52468
|
151 If nil add it at end of menu (see also `easy-menu-add-item')."
|
30416
|
152 :group 'recentf
|
|
153 :type '(choice (string :tag "Name")
|
|
154 (const :tag "Last" nil))
|
|
155 :set 'recentf-menu-customization-changed)
|
|
156
|
60844
|
157 (defcustom recentf-menu-action 'find-file
|
84657
|
158 "Function to invoke with a filename item of the recentf menu.
|
60844
|
159 The default is to call `find-file' to edit the selected file."
|
30416
|
160 :group 'recentf
|
67417
|
161 :type 'function)
|
30416
|
162
|
|
163 (defcustom recentf-max-menu-items 10
|
84657
|
164 "Maximum number of items in the recentf menu."
|
30416
|
165 :group 'recentf
|
67417
|
166 :type 'integer)
|
30416
|
167
|
|
168 (defcustom recentf-menu-filter nil
|
84657
|
169 "Function used to filter files displayed in the recentf menu.
|
64664
3161d6027fd7
(recentf-menu-append-commands-p): Declare with `define-obsolete-variable-alias'.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
170 A nil value means no filter. The following functions are predefined:
|
30416
|
171
|
50715
|
172 - `recentf-sort-ascending'
|
|
173 Sort menu items in ascending order.
|
|
174 - `recentf-sort-descending'
|
|
175 Sort menu items in descending order.
|
|
176 - `recentf-sort-basenames-ascending'
|
|
177 Sort menu items by filenames sans directory in ascending order.
|
|
178 - `recentf-sort-basenames-descending'
|
|
179 Sort menu items by filenames sans directory in descending order.
|
|
180 - `recentf-sort-directories-ascending'
|
|
181 Sort menu items by directories in ascending order.
|
|
182 - `recentf-sort-directories-descending'
|
|
183 Sort menu items by directories in descending order.
|
|
184 - `recentf-show-basenames'
|
|
185 Show filenames sans directory in menu items.
|
|
186 - `recentf-show-basenames-ascending'
|
|
187 Show filenames sans directory in ascending order.
|
|
188 - `recentf-show-basenames-descending'
|
|
189 Show filenames sans directory in descending order.
|
|
190 - `recentf-relative-filter'
|
|
191 Show filenames relative to `default-directory'.
|
|
192 - `recentf-arrange-by-rule'
|
|
193 Show sub-menus following user defined rules.
|
|
194 - `recentf-arrange-by-mode'
|
|
195 Show a sub-menu for each major mode.
|
|
196 - `recentf-arrange-by-dir'
|
|
197 Show a sub-menu for each directory.
|
|
198 - `recentf-filter-changer'
|
67417
|
199 Manage a menu of filters.
|
30416
|
200
|
50715
|
201 The filter function is called with one argument, the list of menu
|
|
202 elements used to build the menu and must return a new list of menu
|
|
203 elements (see `recentf-make-menu-element' for menu element form)."
|
30416
|
204 :group 'recentf
|
49549
|
205 :type '(radio (const nil)
|
50715
|
206 (function-item recentf-sort-ascending)
|
|
207 (function-item recentf-sort-descending)
|
|
208 (function-item recentf-sort-basenames-ascending)
|
|
209 (function-item recentf-sort-basenames-descending)
|
|
210 (function-item recentf-sort-directories-ascending)
|
|
211 (function-item recentf-sort-directories-descending)
|
|
212 (function-item recentf-show-basenames)
|
|
213 (function-item recentf-show-basenames-ascending)
|
|
214 (function-item recentf-show-basenames-descending)
|
|
215 (function-item recentf-relative-filter)
|
|
216 (function-item recentf-arrange-by-rule)
|
|
217 (function-item recentf-arrange-by-mode)
|
|
218 (function-item recentf-arrange-by-dir)
|
|
219 (function-item recentf-filter-changer)
|
67417
|
220 function))
|
30416
|
221
|
65894
|
222 (defcustom recentf-menu-open-all-flag nil
|
84657
|
223 "Non-nil means to show an \"All...\" item in the menu.
|
65894
|
224 This item will replace the \"More...\" item."
|
|
225 :group 'recentf
|
67417
|
226 :type 'boolean)
|
65894
|
227
|
94032
|
228 (define-obsolete-variable-alias 'recentf-menu-append-commands-p
|
|
229 'recentf-menu-append-commands-flag
|
|
230 "22.1")
|
|
231
|
50715
|
232 (defcustom recentf-menu-append-commands-flag t
|
84657
|
233 "Non-nil means to append command items to the menu."
|
30416
|
234 :group 'recentf
|
67417
|
235 :type 'boolean)
|
30416
|
236
|
50715
|
237 (defcustom recentf-auto-cleanup 'mode
|
84657
|
238 "Define when to automatically cleanup the recent list.
|
50715
|
239 The following values can be set:
|
|
240
|
|
241 - `mode'
|
|
242 Cleanup when turning the mode on (default).
|
|
243 - `never'
|
|
244 Never cleanup the list automatically.
|
|
245 - A number
|
|
246 Cleanup each time Emacs has been idle that number of seconds.
|
|
247 - A time string
|
|
248 Cleanup at specified time string, for example at \"11:00pm\".
|
|
249
|
|
250 Setting this variable directly does not take effect;
|
|
251 use \\[customize].
|
|
252
|
|
253 See also the command `recentf-cleanup', that can be used to manually
|
|
254 cleanup the list."
|
|
255 :group 'recentf
|
|
256 :type '(radio (const :tag "When mode enabled"
|
|
257 :value mode)
|
|
258 (const :tag "Never"
|
|
259 :value never)
|
|
260 (number :tag "When idle that seconds"
|
|
261 :value 300)
|
|
262 (string :tag "At time"
|
|
263 :value "11:00pm"))
|
|
264 :set (lambda (variable value)
|
|
265 (set-default variable value)
|
|
266 (when (featurep 'recentf)
|
|
267 ;; Unavailable until recentf has been loaded.
|
|
268 (recentf-auto-cleanup))))
|
30416
|
269
|
52638
|
270 (defcustom recentf-initialize-file-name-history t
|
84657
|
271 "Non-nil means to initialize `file-name-history' with the recent list.
|
52638
|
272 If `file-name-history' is not empty, do nothing."
|
|
273 :group 'recentf
|
|
274 :type 'boolean)
|
|
275
|
30416
|
276 (defcustom recentf-load-hook nil
|
84657
|
277 "Normal hook run at end of loading the `recentf' package."
|
30416
|
278 :group 'recentf
|
|
279 :type 'hook)
|
|
280
|
65744
|
281 (defcustom recentf-filename-handlers nil
|
|
282 "Functions to post process recent file names.
|
|
283 They are successively passed a file name to transform it."
|
50715
|
284 :group 'recentf
|
65744
|
285 :type '(choice
|
|
286 (const :tag "None" nil)
|
|
287 (repeat :tag "Functions"
|
|
288 (choice
|
|
289 (const file-truename)
|
|
290 (const abbreviate-file-name)
|
|
291 (function :tag "Other function")))))
|
65365
|
292
|
|
293 (defcustom recentf-show-file-shortcuts-flag t
|
|
294 "Whether to show ``[N]'' for the Nth item up to 10.
|
|
295 If non-nil, `recentf-open-files' will show labels for keys that can be
|
|
296 used as shortcuts to open the Nth file."
|
|
297 :group 'recentf
|
|
298 :type 'boolean)
|
50715
|
299
|
|
300 ;;; Utilities
|
|
301 ;;
|
30416
|
302 (defconst recentf-case-fold-search
|
97142
|
303 (memq system-type '(windows-nt cygwin))
|
30416
|
304 "Non-nil if recentf searches and matches should ignore case.")
|
|
305
|
50715
|
306 (defsubst recentf-string-equal (s1 s2)
|
|
307 "Return non-nil if strings S1 and S2 have identical contents.
|
|
308 Ignore case if `recentf-case-fold-search' is non-nil."
|
|
309 (if recentf-case-fold-search
|
|
310 (string-equal (downcase s1) (downcase s2))
|
|
311 (string-equal s1 s2)))
|
|
312
|
|
313 (defsubst recentf-string-lessp (s1 s2)
|
|
314 "Return non-nil if string S1 is less than S2 in lexicographic order.
|
|
315 Ignore case if `recentf-case-fold-search' is non-nil."
|
|
316 (if recentf-case-fold-search
|
|
317 (string-lessp (downcase s1) (downcase s2))
|
|
318 (string-lessp s1 s2)))
|
|
319
|
|
320 (defun recentf-string-member (elt list)
|
|
321 "Return non-nil if ELT is an element of LIST.
|
|
322 The value is actually the tail of LIST whose car is ELT.
|
|
323 ELT must be a string and LIST a list of strings.
|
|
324 Ignore case if `recentf-case-fold-search' is non-nil."
|
|
325 (while (and list (not (recentf-string-equal elt (car list))))
|
|
326 (setq list (cdr list)))
|
|
327 list)
|
|
328
|
|
329 (defsubst recentf-trunc-list (l n)
|
|
330 "Return from L the list of its first N elements."
|
|
331 (let (nl)
|
|
332 (while (and l (> n 0))
|
|
333 (setq nl (cons (car l) nl)
|
|
334 n (1- n)
|
|
335 l (cdr l)))
|
|
336 (nreverse nl)))
|
|
337
|
|
338 (defun recentf-dump-variable (variable &optional limit)
|
|
339 "Insert a \"(setq VARIABLE value)\" in the current buffer.
|
|
340 When the value of VARIABLE is a list, optional argument LIMIT
|
|
341 specifies a maximum number of elements to insert. By default insert
|
|
342 the full list."
|
|
343 (let ((value (symbol-value variable)))
|
|
344 (if (atom value)
|
67417
|
345 (insert (format "\n(setq %S '%S)\n" variable value))
|
50715
|
346 (when (and (integerp limit) (> limit 0))
|
|
347 (setq value (recentf-trunc-list value limit)))
|
|
348 (insert (format "\n(setq %S\n '(" variable))
|
|
349 (dolist (e value)
|
|
350 (insert (format "\n %S" e)))
|
|
351 (insert "\n ))\n"))))
|
|
352
|
|
353 (defvar recentf-auto-cleanup-timer nil
|
|
354 "Timer used to automatically cleanup the recent list.
|
|
355 See also the option `recentf-auto-cleanup'.")
|
|
356
|
|
357 (defun recentf-auto-cleanup ()
|
|
358 "Automatic cleanup of the recent list."
|
|
359 (when (timerp recentf-auto-cleanup-timer)
|
|
360 (cancel-timer recentf-auto-cleanup-timer))
|
|
361 (when recentf-mode
|
|
362 (setq recentf-auto-cleanup-timer
|
|
363 (cond
|
|
364 ((eq 'mode recentf-auto-cleanup)
|
|
365 (recentf-cleanup)
|
|
366 nil)
|
|
367 ((numberp recentf-auto-cleanup)
|
|
368 (run-with-idle-timer
|
|
369 recentf-auto-cleanup t 'recentf-cleanup))
|
|
370 ((stringp recentf-auto-cleanup)
|
|
371 (run-at-time
|
|
372 recentf-auto-cleanup nil 'recentf-cleanup))))))
|
|
373
|
|
374 ;;; File functions
|
|
375 ;;
|
|
376 (defsubst recentf-push (filename)
|
|
377 "Push FILENAME into the recent list, if it isn't there yet.
|
|
378 If it is there yet, move it at the beginning of the list.
|
|
379 If `recentf-case-fold-search' is non-nil, ignore case when comparing
|
|
380 filenames."
|
|
381 (let ((m (recentf-string-member filename recentf-list)))
|
|
382 (and m (setq recentf-list (delq (car m) recentf-list)))
|
|
383 (push filename recentf-list)))
|
|
384
|
65744
|
385 (defun recentf-apply-filename-handlers (name)
|
|
386 "Apply `recentf-filename-handlers' to file NAME.
|
|
387 Return the transformed file name, or NAME if any handler failed, or
|
|
388 returned nil."
|
|
389 (or (condition-case nil
|
|
390 (let ((handlers recentf-filename-handlers)
|
|
391 (filename name))
|
|
392 (while (and filename handlers)
|
|
393 (setq filename (funcall (car handlers) filename)
|
|
394 handlers (cdr handlers)))
|
|
395 filename)
|
|
396 (error nil))
|
|
397 name))
|
|
398
|
50715
|
399 (defsubst recentf-expand-file-name (name)
|
65744
|
400 "Convert file NAME to absolute, and canonicalize it.
|
|
401 NAME is first passed to the function `expand-file-name', then to
|
|
402 `recentf-filename-handlers' to post process it."
|
|
403 (recentf-apply-filename-handlers (expand-file-name name)))
|
50715
|
404
|
30416
|
405 (defun recentf-include-p (filename)
|
52509
|
406 "Return non-nil if FILENAME should be included in the recent list.
|
|
407 That is, if it doesn't match any of the `recentf-exclude' checks."
|
30416
|
408 (let ((case-fold-search recentf-case-fold-search)
|
52509
|
409 (checks recentf-exclude)
|
60844
|
410 (keepit t))
|
52509
|
411 (while (and checks keepit)
|
60844
|
412 (setq keepit (condition-case nil
|
|
413 (not (if (stringp (car checks))
|
|
414 ;; A regexp
|
|
415 (string-match (car checks) filename)
|
|
416 ;; A predicate
|
|
417 (funcall (car checks) filename)))
|
|
418 (error nil))
|
|
419 checks (cdr checks)))
|
|
420 keepit))
|
|
421
|
|
422 (defun recentf-keep-p (filename)
|
|
423 "Return non-nil if FILENAME should be kept in the recent list.
|
|
424 That is, if it matches any of the `recentf-keep' checks."
|
|
425 (let* ((case-fold-search recentf-case-fold-search)
|
|
426 (checks recentf-keep)
|
|
427 (keepit (null checks)))
|
|
428 (while (and checks (not keepit))
|
|
429 (setq keepit (condition-case nil
|
|
430 (if (stringp (car checks))
|
|
431 ;; A regexp
|
|
432 (string-match (car checks) filename)
|
|
433 ;; A predicate
|
|
434 (funcall (car checks) filename))
|
|
435 (error nil))
|
|
436 checks (cdr checks)))
|
52509
|
437 keepit))
|
30416
|
438
|
50715
|
439 (defsubst recentf-add-file (filename)
|
|
440 "Add or move FILENAME at the beginning of the recent list.
|
60844
|
441 Does nothing if the name satisfies any of the `recentf-exclude'
|
|
442 regexps or predicates."
|
50715
|
443 (setq filename (recentf-expand-file-name filename))
|
|
444 (when (recentf-include-p filename)
|
|
445 (recentf-push filename)))
|
30416
|
446
|
60844
|
447 (defsubst recentf-remove-if-non-kept (filename)
|
|
448 "Remove FILENAME from the recent list, if file is not kept.
|
50715
|
449 Return non-nil if FILENAME has been removed."
|
60844
|
450 (unless (recentf-keep-p filename)
|
50715
|
451 (let ((m (recentf-string-member
|
|
452 (recentf-expand-file-name filename) recentf-list)))
|
|
453 (and m (setq recentf-list (delq (car m) recentf-list))))))
|
30416
|
454
|
50715
|
455 (defsubst recentf-directory-compare (f1 f2)
|
|
456 "Compare absolute filenames F1 and F2.
|
|
457 First compare directories, then filenames sans directory.
|
|
458 Return non-nil if F1 is less than F2."
|
|
459 (let ((d1 (file-name-directory f1))
|
|
460 (d2 (file-name-directory f2)))
|
|
461 (if (recentf-string-equal d1 d2)
|
|
462 (recentf-string-lessp (file-name-nondirectory f1)
|
|
463 (file-name-nondirectory f2))
|
|
464 (recentf-string-lessp d1 d2))))
|
|
465
|
|
466 ;;; Menu building
|
|
467 ;;
|
65894
|
468 (defsubst recentf-digit-shortcut-command-name (n)
|
|
469 "Return a command name to open the Nth most recent file.
|
|
470 See also the command `recentf-open-most-recent-file'."
|
|
471 (intern (format "recentf-open-most-recent-file-%d" n)))
|
|
472
|
|
473 (defvar recentf--shortcuts-keymap
|
|
474 (let ((km (make-sparse-keymap)))
|
|
475 (dolist (k '(0 9 8 7 6 5 4 3 2 1))
|
|
476 (let ((cmd (recentf-digit-shortcut-command-name k)))
|
|
477 ;; Define a shortcut command.
|
|
478 (defalias cmd
|
|
479 `(lambda ()
|
|
480 (interactive)
|
|
481 (recentf-open-most-recent-file ,k)))
|
|
482 ;; Bind it to a digit key.
|
|
483 (define-key km (vector (+ k ?0)) cmd)))
|
|
484 km)
|
|
485 "Digit shortcuts keymap.")
|
|
486
|
30416
|
487 (defvar recentf-menu-items-for-commands
|
65744
|
488 (list
|
|
489 ["Cleanup list"
|
|
490 recentf-cleanup
|
|
491 :help "Remove duplicates, and obsoletes files from the recent list"
|
|
492 :active t]
|
|
493 ["Edit list..."
|
|
494 recentf-edit-list
|
|
495 :help "Manually remove files from the recent list"
|
|
496 :active t]
|
|
497 ["Save list now"
|
|
498 recentf-save-list
|
|
499 :help "Save the list of recently opened files now"
|
|
500 :active t]
|
|
501 ["Options..."
|
|
502 (customize-group "recentf")
|
|
503 :help "Customize recently opened files menu and options"
|
|
504 :active t]
|
|
505 )
|
30416
|
506 "List of menu items for recentf commands.")
|
|
507
|
|
508 (defvar recentf-menu-filter-commands nil
|
|
509 "This variable can be used by menu filters to setup their own command menu.
|
|
510 If non-nil it must contain a list of valid menu-items to be appended
|
|
511 to the recent file list part of the menu. Before calling a menu
|
|
512 filter function this variable is reset to nil.")
|
|
513
|
50715
|
514 (defsubst recentf-elements (n)
|
|
515 "Return a list of the first N elements of the recent list."
|
|
516 (recentf-trunc-list recentf-list n))
|
|
517
|
|
518 (defsubst recentf-make-menu-element (menu-item menu-value)
|
|
519 "Create a new menu-element.
|
|
520 A menu element is a pair (MENU-ITEM . MENU-VALUE), where MENU-ITEM is
|
|
521 the menu item string displayed. MENU-VALUE is the file to be open
|
|
522 when the corresponding MENU-ITEM is selected. Or it is a
|
|
523 pair (SUB-MENU-TITLE . MENU-ELEMENTS) where SUB-MENU-TITLE is a
|
|
524 sub-menu title and MENU-ELEMENTS is the list of menu elements in the
|
|
525 sub-menu."
|
|
526 (cons menu-item menu-value))
|
|
527
|
|
528 (defsubst recentf-menu-element-item (e)
|
|
529 "Return the item part of the menu-element E."
|
|
530 (car e))
|
|
531
|
|
532 (defsubst recentf-menu-element-value (e)
|
|
533 "Return the value part of the menu-element E."
|
|
534 (cdr e))
|
|
535
|
|
536 (defsubst recentf-set-menu-element-item (e item)
|
|
537 "Change the item part of menu-element E to ITEM."
|
|
538 (setcar e item))
|
|
539
|
|
540 (defsubst recentf-set-menu-element-value (e value)
|
|
541 "Change the value part of menu-element E to VALUE."
|
|
542 (setcdr e value))
|
|
543
|
|
544 (defsubst recentf-sub-menu-element-p (e)
|
|
545 "Return non-nil if menu-element E defines a sub-menu."
|
|
546 (consp (recentf-menu-element-value e)))
|
|
547
|
|
548 (defsubst recentf-make-default-menu-element (file)
|
|
549 "Make a new default menu element with FILE.
|
|
550 This a menu element (FILE . FILE)."
|
|
551 (recentf-make-menu-element file file))
|
|
552
|
|
553 (defsubst recentf-menu-elements (n)
|
|
554 "Return a list of the first N default menu elements from the recent list.
|
|
555 See also `recentf-make-default-menu-element'."
|
|
556 (mapcar 'recentf-make-default-menu-element
|
|
557 (recentf-elements n)))
|
|
558
|
|
559 (defun recentf-apply-menu-filter (filter l)
|
|
560 "Apply function FILTER to the list of menu-elements L.
|
|
561 It takes care of sub-menu elements in L and recursively apply FILTER
|
|
562 to them. It is guaranteed that FILTER receives only a list of single
|
|
563 menu-elements (no sub-menu)."
|
|
564 (if (and l (functionp filter))
|
|
565 (let ((case-fold-search recentf-case-fold-search)
|
|
566 elts others)
|
|
567 ;; split L into two sub-listes, one of sub-menus elements and
|
|
568 ;; another of single menu elements.
|
|
569 (dolist (elt l)
|
|
570 (if (recentf-sub-menu-element-p elt)
|
|
571 (push elt elts)
|
|
572 (push elt others)))
|
|
573 ;; Apply FILTER to single elements.
|
|
574 (when others
|
|
575 (setq others (funcall filter (nreverse others))))
|
|
576 ;; Apply FILTER to sub-menu elements.
|
|
577 (setq l nil)
|
|
578 (dolist (elt elts)
|
|
579 (recentf-set-menu-element-value
|
|
580 elt (recentf-apply-menu-filter
|
|
581 filter (recentf-menu-element-value elt)))
|
|
582 (push elt l))
|
|
583 ;; Return the new filtered menu element list.
|
|
584 (nconc l others))
|
|
585 l))
|
|
586
|
65894
|
587 ;; Count the number of assigned menu shortcuts.
|
|
588 (defvar recentf-menu-shortcuts)
|
|
589
|
67417
|
590 (defun recentf-make-menu-items (&optional menu)
|
|
591 "Make menu items from the recent list.
|
|
592 This is a menu filter function which ignores the MENU argument."
|
30416
|
593 (setq recentf-menu-filter-commands nil)
|
65894
|
594 (let* ((recentf-menu-shortcuts 0)
|
|
595 (file-items
|
67417
|
596 (condition-case err
|
|
597 (mapcar 'recentf-make-menu-item
|
|
598 (recentf-apply-menu-filter
|
|
599 recentf-menu-filter
|
|
600 (recentf-menu-elements recentf-max-menu-items)))
|
|
601 (error
|
|
602 (message "recentf update menu failed: %s"
|
|
603 (error-message-string err))))))
|
|
604 (append
|
|
605 (or file-items
|
|
606 '(["No files" t
|
|
607 :help "No recent file to open"
|
|
608 :active nil]))
|
|
609 (if recentf-menu-open-all-flag
|
|
610 '(["All..." recentf-open-files
|
|
611 :help "Open recent files through a dialog"
|
|
612 :active t])
|
|
613 (and (< recentf-max-menu-items (length recentf-list))
|
|
614 '(["More..." recentf-open-more-files
|
|
615 :help "Open files not in the menu through a dialog"
|
|
616 :active t])))
|
|
617 (and recentf-menu-filter-commands '("---"))
|
|
618 recentf-menu-filter-commands
|
|
619 (and recentf-menu-items-for-commands '("---"))
|
|
620 recentf-menu-items-for-commands)))
|
30416
|
621
|
65894
|
622 (defun recentf-menu-value-shortcut (name)
|
67417
|
623 "Return a shortcut digit for file NAME.
|
65894
|
624 Return nil if file NAME is not one of the ten more recent."
|
|
625 (let ((i 0) k)
|
|
626 (while (and (not k) (< i 10))
|
|
627 (if (string-equal name (nth i recentf-list))
|
|
628 (progn
|
|
629 (setq recentf-menu-shortcuts (1+ recentf-menu-shortcuts))
|
|
630 (setq k (% (1+ i) 10)))
|
|
631 (setq i (1+ i))))
|
|
632 k))
|
|
633
|
|
634 (defun recentf-make-menu-item (elt)
|
50715
|
635 "Make a menu item from menu element ELT."
|
|
636 (let ((item (recentf-menu-element-item elt))
|
|
637 (value (recentf-menu-element-value elt)))
|
|
638 (if (recentf-sub-menu-element-p elt)
|
|
639 (cons item (mapcar 'recentf-make-menu-item value))
|
65894
|
640 (let ((k (and (< recentf-menu-shortcuts 10)
|
|
641 (recentf-menu-value-shortcut value))))
|
|
642 (vector item
|
|
643 ;; If the file name is one of the ten more recent, use
|
|
644 ;; a digit shortcut command to open it, else use an
|
|
645 ;; anonymous command.
|
|
646 (if k
|
|
647 (recentf-digit-shortcut-command-name k)
|
|
648 `(lambda ()
|
|
649 (interactive)
|
|
650 (,recentf-menu-action ,value)))
|
|
651 :help (concat "Open " value)
|
|
652 :active t)))))
|
30416
|
653
|
52468
|
654 (defsubst recentf-menu-bar ()
|
|
655 "Return the keymap of the global menu bar."
|
|
656 (lookup-key global-map [menu-bar]))
|
|
657
|
67417
|
658 (defun recentf-show-menu ()
|
|
659 "Show the menu of recently opened files."
|
|
660 (easy-menu-add-item
|
|
661 (recentf-menu-bar) recentf-menu-path
|
|
662 (list recentf-menu-title :filter 'recentf-make-menu-items)
|
|
663 recentf-menu-before))
|
|
664
|
|
665 (defun recentf-hide-menu ()
|
|
666 "Hide the menu of recently opened files."
|
|
667 (easy-menu-remove-item (recentf-menu-bar) recentf-menu-path
|
|
668 recentf-menu-title))
|
50715
|
669
|
|
670 ;;; Predefined menu filters
|
|
671 ;;
|
|
672 (defsubst recentf-sort-ascending (l)
|
30416
|
673 "Sort the list of menu elements L in ascending order.
|
|
674 The MENU-ITEM part of each menu element is compared."
|
|
675 (sort (copy-sequence l)
|
50715
|
676 #'(lambda (e1 e2)
|
|
677 (recentf-string-lessp
|
|
678 (recentf-menu-element-item e1)
|
|
679 (recentf-menu-element-item e2)))))
|
30416
|
680
|
50715
|
681 (defsubst recentf-sort-descending (l)
|
30416
|
682 "Sort the list of menu elements L in descending order.
|
|
683 The MENU-ITEM part of each menu element is compared."
|
|
684 (sort (copy-sequence l)
|
50715
|
685 #'(lambda (e1 e2)
|
|
686 (recentf-string-lessp
|
|
687 (recentf-menu-element-item e2)
|
|
688 (recentf-menu-element-item e1)))))
|
30416
|
689
|
50715
|
690 (defsubst recentf-sort-basenames-ascending (l)
|
30416
|
691 "Sort the list of menu elements L in ascending order.
|
50715
|
692 Only filenames sans directory are compared."
|
30416
|
693 (sort (copy-sequence l)
|
50715
|
694 #'(lambda (e1 e2)
|
|
695 (recentf-string-lessp
|
|
696 (file-name-nondirectory (recentf-menu-element-value e1))
|
|
697 (file-name-nondirectory (recentf-menu-element-value e2))))))
|
30416
|
698
|
50715
|
699 (defsubst recentf-sort-basenames-descending (l)
|
|
700 "Sort the list of menu elements L in descending order.
|
|
701 Only filenames sans directory are compared."
|
|
702 (sort (copy-sequence l)
|
|
703 #'(lambda (e1 e2)
|
|
704 (recentf-string-lessp
|
|
705 (file-name-nondirectory (recentf-menu-element-value e2))
|
|
706 (file-name-nondirectory (recentf-menu-element-value e1))))))
|
30416
|
707
|
50715
|
708 (defsubst recentf-sort-directories-ascending (l)
|
30416
|
709 "Sort the list of menu elements L in ascending order.
|
|
710 Compares directories then filenames to order the list."
|
|
711 (sort (copy-sequence l)
|
50715
|
712 #'(lambda (e1 e2)
|
|
713 (recentf-directory-compare
|
|
714 (recentf-menu-element-value e1)
|
|
715 (recentf-menu-element-value e2)))))
|
30416
|
716
|
50715
|
717 (defsubst recentf-sort-directories-descending (l)
|
30416
|
718 "Sort the list of menu elements L in descending order.
|
|
719 Compares directories then filenames to order the list."
|
|
720 (sort (copy-sequence l)
|
50715
|
721 #'(lambda (e1 e2)
|
|
722 (recentf-directory-compare
|
|
723 (recentf-menu-element-value e2)
|
|
724 (recentf-menu-element-value e1)))))
|
30416
|
725
|
50715
|
726 (defun recentf-show-basenames (l &optional no-dir)
|
|
727 "Filter the list of menu elements L to show filenames sans directory.
|
|
728 When a filename is duplicated, it is appended a sequence number if
|
|
729 optional argument NO-DIR is non-nil, or its directory otherwise."
|
|
730 (let (filtered-names filtered-list full name counters sufx)
|
|
731 (dolist (elt l (nreverse filtered-list))
|
|
732 (setq full (recentf-menu-element-value elt)
|
|
733 name (file-name-nondirectory full))
|
|
734 (if (not (member name filtered-names))
|
|
735 (push name filtered-names)
|
|
736 (if no-dir
|
|
737 (if (setq sufx (assoc name counters))
|
|
738 (setcdr sufx (1+ (cdr sufx)))
|
|
739 (setq sufx 1)
|
|
740 (push (cons name sufx) counters))
|
|
741 (setq sufx (file-name-directory full)))
|
|
742 (setq name (format "%s(%s)" name sufx)))
|
|
743 (push (recentf-make-menu-element name full) filtered-list))))
|
30416
|
744
|
50715
|
745 (defsubst recentf-show-basenames-ascending (l)
|
|
746 "Filter the list of menu elements L to show filenames sans directory.
|
|
747 Filenames are sorted in ascending order.
|
|
748 This filter combines the `recentf-sort-basenames-ascending' and
|
32292
|
749 `recentf-show-basenames' filters."
|
30416
|
750 (recentf-show-basenames (recentf-sort-basenames-ascending l)))
|
|
751
|
50715
|
752 (defsubst recentf-show-basenames-descending (l)
|
|
753 "Filter the list of menu elements L to show filenames sans directory.
|
|
754 Filenames are sorted in descending order.
|
|
755 This filter combines the `recentf-sort-basenames-descending' and
|
32292
|
756 `recentf-show-basenames' filters."
|
30416
|
757 (recentf-show-basenames (recentf-sort-basenames-descending l)))
|
|
758
|
|
759 (defun recentf-relative-filter (l)
|
50715
|
760 "Filter the list of menu-elements L to show relative filenames.
|
|
761 Filenames are relative to the `default-directory'."
|
|
762 (mapcar #'(lambda (menu-element)
|
|
763 (let* ((ful (recentf-menu-element-value menu-element))
|
|
764 (rel (file-relative-name ful default-directory)))
|
|
765 (if (string-match "^\\.\\." rel)
|
|
766 menu-element
|
|
767 (recentf-make-menu-element rel ful))))
|
30416
|
768 l))
|
50715
|
769
|
|
770 ;;; Rule based menu filters
|
|
771 ;;
|
30416
|
772 (defcustom recentf-arrange-rules
|
|
773 '(
|
67417
|
774 ("Elisp files (%d)" ".\\.el\\'")
|
|
775 ("Java files (%d)" ".\\.java\\'")
|
|
776 ("C/C++ files (%d)" "c\\(pp\\)?\\'")
|
30416
|
777 )
|
84657
|
778 "List of rules used by `recentf-arrange-by-rule' to build sub-menus.
|
32292
|
779 A rule is a pair (SUB-MENU-TITLE . MATCHER). SUB-MENU-TITLE is the
|
30416
|
780 displayed title of the sub-menu where a '%d' `format' pattern is
|
32292
|
781 replaced by the number of items in the sub-menu. MATCHER is a regexp
|
|
782 or a list of regexps. Items matching one of the regular expressions in
|
67417
|
783 MATCHER are added to the corresponding sub-menu.
|
|
784 SUB-MENU-TITLE can be a function. It is passed every items that
|
|
785 matched the corresponding MATCHER, and it must return a
|
|
786 pair (SUB-MENU-TITLE . ITEM). SUB-MENU-TITLE is a computed sub-menu
|
|
787 title that can be another function. ITEM is the received item which
|
|
788 may have been modified to match another rule."
|
30416
|
789 :group 'recentf-filters
|
67417
|
790 :type '(repeat (cons (choice string function)
|
|
791 (repeat regexp))))
|
30416
|
792
|
|
793 (defcustom recentf-arrange-by-rule-others "Other files (%d)"
|
84657
|
794 "Title of the `recentf-arrange-by-rule' sub-menu.
|
32292
|
795 This is for the menu where items that don't match any
|
|
796 `recentf-arrange-rules' are displayed. If nil these items are
|
|
797 displayed in the main recent files menu. A '%d' `format' pattern in
|
|
798 the title is replaced by the number of items in the sub-menu."
|
30416
|
799 :group 'recentf-filters
|
|
800 :type '(choice (const :tag "Main menu" nil)
|
67417
|
801 (string :tag "Title")))
|
30416
|
802
|
|
803 (defcustom recentf-arrange-by-rules-min-items 0
|
84657
|
804 "Minimum number of items in a `recentf-arrange-by-rule' sub-menu.
|
30416
|
805 If the number of items in a sub-menu is less than this value the
|
|
806 corresponding sub-menu items are displayed in the main recent files
|
|
807 menu or in the `recentf-arrange-by-rule-others' sub-menu if
|
|
808 defined."
|
|
809 :group 'recentf-filters
|
67417
|
810 :type 'number)
|
30416
|
811
|
|
812 (defcustom recentf-arrange-by-rule-subfilter nil
|
84657
|
813 "Function called by a rule based filter to filter sub-menu elements.
|
64664
3161d6027fd7
(recentf-menu-append-commands-p): Declare with `define-obsolete-variable-alias'.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
814 A nil value means no filter. See also `recentf-menu-filter'.
|
50715
|
815 You can't use another rule based filter here."
|
30416
|
816 :group 'recentf-filters
|
35971
|
817 :type '(choice (const nil) function)
|
50715
|
818 :set (lambda (variable value)
|
|
819 (when (memq value '(recentf-arrange-by-rule
|
|
820 recentf-arrange-by-mode
|
|
821 recentf-arrange-by-dir))
|
|
822 (error "Recursive use of a rule based filter"))
|
67417
|
823 (set-default variable value)))
|
30416
|
824
|
67417
|
825 (defun recentf-match-rule (file)
|
|
826 "Return the rule that match FILE."
|
|
827 (let ((rules recentf-arrange-rules)
|
|
828 match found)
|
|
829 (while (and (not found) rules)
|
|
830 (setq match (cdar rules))
|
|
831 (when (stringp match)
|
|
832 (setq match (list match)))
|
|
833 (while (and match (not (string-match (car match) file)))
|
|
834 (setq match (cdr match)))
|
|
835 (if match
|
|
836 (setq found (cons (caar rules) file))
|
|
837 (setq rules (cdr rules))))
|
|
838 found))
|
30416
|
839
|
|
840 (defun recentf-arrange-by-rule (l)
|
32292
|
841 "Filter the list of menu-elements L.
|
|
842 Arrange them in sub-menus following rules in `recentf-arrange-rules'."
|
67417
|
843 (when recentf-arrange-rules
|
|
844 (let (menus others menu file min count)
|
67119
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
845 ;; Put menu items into sub-menus as defined by rules.
|
50715
|
846 (dolist (elt l)
|
67417
|
847 (setq file (recentf-menu-element-value elt)
|
|
848 menu (recentf-match-rule file))
|
|
849 (while (functionp (car menu))
|
|
850 (setq menu (funcall (car menu) (cdr menu))))
|
|
851 (if (not (stringp (car menu)))
|
|
852 (push elt others)
|
|
853 (setq menu (or (assoc (car menu) menus)
|
|
854 (car (push (list (car menu)) menus))))
|
|
855 (recentf-set-menu-element-value
|
|
856 menu (cons elt (recentf-menu-element-value menu)))))
|
|
857 ;; Finalize each sub-menu:
|
67119
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
858 ;; - truncate it depending on the value of
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
859 ;; `recentf-arrange-by-rules-min-items',
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
860 ;; - replace %d by the number of menu items,
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
861 ;; - apply `recentf-arrange-by-rule-subfilter' to menu items.
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
862 (setq min (if (natnump recentf-arrange-by-rules-min-items)
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
863 recentf-arrange-by-rules-min-items 0)
|
67417
|
864 l nil)
|
|
865 (dolist (elt menus)
|
|
866 (setq menu (recentf-menu-element-value elt)
|
|
867 count (length menu))
|
|
868 (if (< count min)
|
|
869 (setq others (nconc menu others))
|
|
870 (recentf-set-menu-element-item
|
|
871 elt (format (recentf-menu-element-item elt) count))
|
|
872 (recentf-set-menu-element-value
|
|
873 elt (recentf-apply-menu-filter
|
|
874 recentf-arrange-by-rule-subfilter (nreverse menu)))
|
|
875 (push elt l)))
|
67119
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
876 ;; Add the menu items remaining in the `others' bin.
|
67417
|
877 (when (setq others (nreverse others))
|
|
878 (setq l (nconc
|
|
879 l
|
|
880 ;; Put items in an sub menu.
|
|
881 (if (stringp recentf-arrange-by-rule-others)
|
|
882 (list
|
|
883 (recentf-make-menu-element
|
|
884 (format recentf-arrange-by-rule-others
|
|
885 (length others))
|
|
886 (recentf-apply-menu-filter
|
|
887 recentf-arrange-by-rule-subfilter others)))
|
|
888 ;; Append items to the main menu.
|
|
889 (recentf-apply-menu-filter
|
|
890 recentf-arrange-by-rule-subfilter others)))))))
|
|
891 l)
|
50715
|
892
|
|
893 ;;; Predefined rule based menu filters
|
|
894 ;;
|
67417
|
895 (defun recentf-indirect-mode-rule (file)
|
|
896 "Apply a second level `auto-mode-alist' regexp to FILE."
|
|
897 (recentf-match-rule (substring file 0 (match-beginning 0))))
|
|
898
|
30416
|
899 (defun recentf-build-mode-rules ()
|
50715
|
900 "Convert `auto-mode-alist' to menu filter rules.
|
|
901 Rules obey `recentf-arrange-rules' format."
|
30416
|
902 (let ((case-fold-search recentf-case-fold-search)
|
50715
|
903 regexp rule-name rule rules)
|
|
904 (dolist (mode auto-mode-alist)
|
|
905 (setq regexp (car mode)
|
|
906 mode (cdr mode))
|
67119
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
907 (when mode
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
908 (cond
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
909 ;; Build a special "strip suffix" rule from entries of the
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
910 ;; form (REGEXP FUNCTION NON-NIL). Notice that FUNCTION is
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
911 ;; ignored by the menu filter. So in some corner cases a
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
912 ;; wrong mode could be guessed.
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
913 ((and (consp mode) (cadr mode))
|
67417
|
914 (setq rule-name 'recentf-indirect-mode-rule))
|
67119
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
915 ((and mode (symbolp mode))
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
916 (setq rule-name (symbol-name mode))
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
917 (if (string-match "\\(.*\\)-mode$" rule-name)
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
918 (setq rule-name (match-string 1 rule-name)))
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
919 (setq rule-name (concat rule-name " (%d)"))))
|
c4aae786a4e4
(recentf-arrange-by-rule): Handle a special `auto-mode-alist'-like
David Ponce <david@dponce.com>
diff
changeset
|
920 (setq rule (assoc rule-name rules))
|
30416
|
921 (if rule
|
|
922 (setcdr rule (cons regexp (cdr rule)))
|
50715
|
923 (push (list rule-name regexp) rules))))
|
30416
|
924 ;; It is important to preserve auto-mode-alist order
|
|
925 ;; to ensure the right file <-> mode association
|
|
926 (nreverse rules)))
|
49549
|
927
|
30416
|
928 (defun recentf-arrange-by-mode (l)
|
50715
|
929 "Split the list of menu-elements L into sub-menus by major mode."
|
30416
|
930 (let ((recentf-arrange-rules (recentf-build-mode-rules))
|
|
931 (recentf-arrange-by-rule-others "others (%d)"))
|
|
932 (recentf-arrange-by-rule l)))
|
|
933
|
|
934 (defun recentf-file-name-nondir (l)
|
50715
|
935 "Filter the list of menu-elements L to show filenames sans directory.
|
32292
|
936 This simplified version of `recentf-show-basenames' does not handle
|
|
937 duplicates. It is used by `recentf-arrange-by-dir' as its
|
30416
|
938 `recentf-arrange-by-rule-subfilter'."
|
50715
|
939 (mapcar #'(lambda (e)
|
|
940 (recentf-make-menu-element
|
|
941 (file-name-nondirectory (recentf-menu-element-value e))
|
|
942 (recentf-menu-element-value e)))
|
30416
|
943 l))
|
|
944
|
67417
|
945 (defun recentf-dir-rule (file)
|
|
946 "Return as a sub-menu, the directory FILE belongs to."
|
|
947 (cons (file-name-directory file) file))
|
|
948
|
30416
|
949 (defun recentf-arrange-by-dir (l)
|
50715
|
950 "Split the list of menu-elements L into sub-menus by directory."
|
67417
|
951 (let ((recentf-arrange-rules '((recentf-dir-rule . ".*")))
|
30416
|
952 (recentf-arrange-by-rule-subfilter 'recentf-file-name-nondir)
|
|
953 recentf-arrange-by-rule-others)
|
67417
|
954 (recentf-arrange-by-rule l)))
|
50715
|
955
|
67417
|
956 ;;; Menu of menu filters
|
50715
|
957 ;;
|
67417
|
958 (defvar recentf-filter-changer-current nil
|
|
959 "Current filter used by `recentf-filter-changer'.")
|
30416
|
960
|
|
961 (defcustom recentf-filter-changer-alist
|
|
962 '(
|
67417
|
963 (recentf-arrange-by-mode . "Grouped by Mode")
|
|
964 (recentf-arrange-by-dir . "Grouped by Directory")
|
|
965 (recentf-arrange-by-rule . "Grouped by Custom Rules")
|
30416
|
966 )
|
84657
|
967 "List of filters managed by `recentf-filter-changer'.
|
50715
|
968 Each filter is defined by a pair (FUNCTION . LABEL), where FUNCTION is
|
|
969 the filter function, and LABEL is the menu item displayed to select
|
|
970 that filter."
|
30416
|
971 :group 'recentf-filters
|
|
972 :type '(repeat (cons function string))
|
50715
|
973 :set (lambda (variable value)
|
67417
|
974 (setq recentf-filter-changer-current nil)
|
|
975 (set-default variable value)))
|
30416
|
976
|
67417
|
977 (defun recentf-filter-changer-select (filter)
|
|
978 "Select FILTER as the current menu filter.
|
50715
|
979 See `recentf-filter-changer'."
|
67417
|
980 (setq recentf-filter-changer-current filter))
|
49549
|
981
|
30416
|
982 (defun recentf-filter-changer (l)
|
67417
|
983 "Manage a sub-menu of menu filters.
|
|
984 `recentf-filter-changer-alist' defines the filters in the menu.
|
|
985 Filtering of L is delegated to the selected filter in the menu."
|
|
986 (unless recentf-filter-changer-current
|
|
987 (setq recentf-filter-changer-current
|
|
988 (caar recentf-filter-changer-alist)))
|
|
989 (if (not recentf-filter-changer-current)
|
|
990 l
|
|
991 (setq recentf-menu-filter-commands
|
|
992 (list
|
|
993 `("Show files"
|
|
994 ,@(mapcar
|
|
995 #'(lambda (f)
|
|
996 `[,(cdr f)
|
|
997 (setq recentf-filter-changer-current ',(car f))
|
|
998 ;;:active t
|
|
999 :style radio ;;radio Don't work with GTK :-(
|
|
1000 :selected (eq recentf-filter-changer-current
|
|
1001 ',(car f))
|
|
1002 ;;:help ,(cdr f)
|
|
1003 ])
|
|
1004 recentf-filter-changer-alist))))
|
|
1005 (recentf-apply-menu-filter recentf-filter-changer-current l)))
|
50715
|
1006
|
|
1007 ;;; Hooks
|
|
1008 ;;
|
|
1009 (defun recentf-track-opened-file ()
|
|
1010 "Insert the name of the file just opened or written into the recent list."
|
|
1011 (and buffer-file-name
|
|
1012 (recentf-add-file buffer-file-name))
|
|
1013 ;; Must return nil because it is run from `write-file-functions'.
|
30416
|
1014 nil)
|
|
1015
|
50715
|
1016 (defun recentf-track-closed-file ()
|
|
1017 "Update the recent list when a buffer is killed.
|
60844
|
1018 That is, remove a non kept file from the recent list."
|
50715
|
1019 (and buffer-file-name
|
60844
|
1020 (recentf-remove-if-non-kept buffer-file-name)))
|
30416
|
1021
|
50715
|
1022 (defconst recentf-used-hooks
|
|
1023 '(
|
|
1024 (find-file-hook recentf-track-opened-file)
|
|
1025 (write-file-functions recentf-track-opened-file)
|
|
1026 (kill-buffer-hook recentf-track-closed-file)
|
|
1027 (kill-emacs-hook recentf-save-list)
|
|
1028 )
|
|
1029 "Hooks used by recentf.")
|
|
1030
|
|
1031 ;;; Commands
|
|
1032 ;;
|
30416
|
1033
|
66083
|
1034 ;;; Common dialog stuff
|
|
1035 ;;
|
|
1036 (defun recentf-cancel-dialog (&rest ignore)
|
|
1037 "Cancel the current dialog.
|
|
1038 IGNORE arguments."
|
|
1039 (interactive)
|
|
1040 (kill-buffer (current-buffer))
|
|
1041 (message "Dialog canceled"))
|
|
1042
|
|
1043 (defun recentf-dialog-goto-first (widget-type)
|
|
1044 "Move the cursor to the first WIDGET-TYPE in current dialog.
|
|
1045 Go to the beginning of buffer if not found."
|
|
1046 (goto-char (point-min))
|
|
1047 (condition-case nil
|
|
1048 (let (done)
|
|
1049 (widget-move 1)
|
|
1050 (while (not done)
|
|
1051 (if (eq widget-type (widget-type (widget-at (point))))
|
|
1052 (setq done t)
|
|
1053 (widget-move 1))))
|
67589
|
1054 (error
|
|
1055 (goto-char (point-min)))))
|
66083
|
1056
|
|
1057 (defvar recentf-dialog-mode-map
|
|
1058 (let ((km (copy-keymap recentf--shortcuts-keymap)))
|
|
1059 (set-keymap-parent km widget-keymap)
|
|
1060 (define-key km "q" 'recentf-cancel-dialog)
|
|
1061 (define-key km [follow-link] "\C-m")
|
|
1062 km)
|
|
1063 "Keymap used in recentf dialogs.")
|
|
1064
|
|
1065 (define-derived-mode recentf-dialog-mode nil "recentf-dialog"
|
|
1066 "Major mode of recentf dialogs.
|
|
1067
|
|
1068 \\{recentf-dialog-mode-map}"
|
|
1069 :syntax-table nil
|
|
1070 :abbrev-table nil
|
|
1071 (setq truncate-lines t))
|
|
1072
|
|
1073 (defmacro recentf-dialog (name &rest forms)
|
|
1074 "Show a dialog buffer with NAME, setup with FORMS."
|
|
1075 (declare (indent 1) (debug t))
|
|
1076 `(with-current-buffer (get-buffer-create ,name)
|
|
1077 ;; Cleanup buffer
|
|
1078 (let ((inhibit-read-only t)
|
|
1079 (ol (overlay-lists)))
|
|
1080 (mapc 'delete-overlay (car ol))
|
|
1081 (mapc 'delete-overlay (cdr ol))
|
|
1082 (erase-buffer))
|
|
1083 (recentf-dialog-mode)
|
|
1084 ,@forms
|
|
1085 (widget-setup)
|
|
1086 (switch-to-buffer (current-buffer))))
|
|
1087
|
63781
|
1088 ;;; Edit list dialog
|
|
1089 ;;
|
|
1090 (defvar recentf-edit-list nil)
|
|
1091
|
|
1092 (defun recentf-edit-list-select (widget &rest ignore)
|
|
1093 "Toggle a file selection based on the checkbox WIDGET state.
|
50715
|
1094 IGNORE other arguments."
|
63781
|
1095 (let ((value (widget-get widget :tag))
|
|
1096 (check (widget-value widget)))
|
|
1097 (if check
|
|
1098 (add-to-list 'recentf-edit-list value)
|
|
1099 (setq recentf-edit-list (delq value recentf-edit-list)))
|
|
1100 (message "%s %sselected" value (if check "" "un"))))
|
|
1101
|
|
1102 (defun recentf-edit-list-validate (&rest ignore)
|
|
1103 "Process the recent list when the edit list dialog is committed.
|
|
1104 IGNORE arguments."
|
|
1105 (if recentf-edit-list
|
|
1106 (let ((i 0))
|
|
1107 (dolist (e recentf-edit-list)
|
|
1108 (setq recentf-list (delq e recentf-list)
|
|
1109 i (1+ i)))
|
|
1110 (kill-buffer (current-buffer))
|
67417
|
1111 (message "%S file(s) removed from the list" i))
|
63781
|
1112 (message "No file selected")))
|
49549
|
1113
|
30416
|
1114 (defun recentf-edit-list ()
|
63781
|
1115 "Show a dialog to delete selected files from the recent list."
|
30416
|
1116 (interactive)
|
67589
|
1117 (unless recentf-list
|
|
1118 (error "The list of recent files is empty"))
|
63781
|
1119 (recentf-dialog (format "*%s - Edit list*" recentf-menu-title)
|
|
1120 (set (make-local-variable 'recentf-edit-list) nil)
|
50715
|
1121 (widget-insert
|
63781
|
1122 "Click on OK to delete selected files from the recent list.
|
|
1123 Click on Cancel or type `q' to cancel.\n")
|
30416
|
1124 ;; Insert the list of files as checkboxes
|
50715
|
1125 (dolist (item recentf-list)
|
63781
|
1126 (widget-create 'checkbox
|
|
1127 :value nil ; unselected checkbox
|
|
1128 :format "\n %[%v%] %t"
|
|
1129 :tag item
|
|
1130 :notify 'recentf-edit-list-select))
|
30416
|
1131 (widget-insert "\n\n")
|
50715
|
1132 (widget-create
|
|
1133 'push-button
|
63781
|
1134 :notify 'recentf-edit-list-validate
|
|
1135 :help-echo "Delete selected files from the recent list"
|
65894
|
1136 "Ok")
|
30416
|
1137 (widget-insert " ")
|
50715
|
1138 (widget-create
|
|
1139 'push-button
|
|
1140 :notify 'recentf-cancel-dialog
|
|
1141 "Cancel")
|
63781
|
1142 (recentf-dialog-goto-first 'checkbox)))
|
66083
|
1143
|
63781
|
1144 ;;; Open file dialog
|
|
1145 ;;
|
30416
|
1146 (defun recentf-open-files-action (widget &rest ignore)
|
63781
|
1147 "Open the file stored in WIDGET's value when notified.
|
50715
|
1148 IGNORE other arguments."
|
30416
|
1149 (kill-buffer (current-buffer))
|
|
1150 (funcall recentf-menu-action (widget-value widget)))
|
|
1151
|
65365
|
1152 ;; List of files associated to a digit shortcut key.
|
|
1153 (defvar recentf--files-with-key nil)
|
|
1154
|
|
1155 (defun recentf-show-digit-shortcut-filter (l)
|
|
1156 "Filter the list of menu-elements L to show digit shortcuts."
|
|
1157 (let ((i 0))
|
|
1158 (dolist (e l)
|
|
1159 (setq i (1+ i))
|
|
1160 (recentf-set-menu-element-item
|
|
1161 e (format "[%d] %s" (% i 10) (recentf-menu-element-item e))))
|
|
1162 l))
|
|
1163
|
30416
|
1164 (defun recentf-open-files-item (menu-element)
|
63781
|
1165 "Return a widget to display MENU-ELEMENT in a dialog buffer."
|
|
1166 (if (consp (cdr menu-element))
|
|
1167 ;; Represent a sub-menu with a tree widget
|
|
1168 `(tree-widget
|
|
1169 :open t
|
|
1170 :match ignore
|
|
1171 :node (item :tag ,(car menu-element)
|
|
1172 :sample-face bold
|
|
1173 :format "%{%t%}:\n")
|
|
1174 ,@(mapcar 'recentf-open-files-item
|
|
1175 (cdr menu-element)))
|
|
1176 ;; Represent a single file with a link widget
|
|
1177 `(link :tag ,(car menu-element)
|
|
1178 :button-prefix ""
|
|
1179 :button-suffix ""
|
|
1180 :button-face default
|
69778
|
1181 :format "%[%t\n%]"
|
63781
|
1182 :help-echo ,(concat "Open " (cdr menu-element))
|
|
1183 :action recentf-open-files-action
|
|
1184 ,(cdr menu-element))))
|
30416
|
1185
|
65365
|
1186 (defun recentf-open-files-items (files)
|
|
1187 "Return a list of widgets to display FILES in a dialog buffer."
|
|
1188 (set (make-local-variable 'recentf--files-with-key)
|
|
1189 (recentf-trunc-list files 10))
|
|
1190 (mapcar 'recentf-open-files-item
|
|
1191 (append
|
|
1192 ;; When requested group the files with shortcuts together
|
|
1193 ;; at the top of the list.
|
|
1194 (when recentf-show-file-shortcuts-flag
|
|
1195 (setq files (nthcdr 10 files))
|
|
1196 (recentf-apply-menu-filter
|
|
1197 'recentf-show-digit-shortcut-filter
|
|
1198 (mapcar 'recentf-make-default-menu-element
|
|
1199 recentf--files-with-key)))
|
|
1200 ;; Then the other files.
|
|
1201 (recentf-apply-menu-filter
|
|
1202 recentf-menu-filter
|
|
1203 (mapcar 'recentf-make-default-menu-element
|
|
1204 files)))))
|
|
1205
|
30416
|
1206 (defun recentf-open-files (&optional files buffer-name)
|
63781
|
1207 "Show a dialog to open a recent file.
|
|
1208 If optional argument FILES is non-nil, it is a list of recently-opened
|
|
1209 files to choose from. It defaults to the whole recent list.
|
|
1210 If optional argument BUFFER-NAME is non-nil, it is a buffer name to
|
|
1211 use for the dialog. It defaults to \"*`recentf-menu-title'*\"."
|
30416
|
1212 (interactive)
|
67589
|
1213 (unless (or files recentf-list)
|
|
1214 (error "There is no recent file to open"))
|
63781
|
1215 (recentf-dialog (or buffer-name (format "*%s*" recentf-menu-title))
|
65365
|
1216 (widget-insert "Click on a file"
|
|
1217 (if recentf-show-file-shortcuts-flag
|
|
1218 ", or type the corresponding digit key,"
|
|
1219 "")
|
|
1220 " to open it.\n"
|
|
1221 "Click on Cancel or type `q' to cancel.\n")
|
63781
|
1222 ;; Use a L&F that looks like the recentf menu.
|
|
1223 (tree-widget-set-theme "folder")
|
|
1224 (apply 'widget-create
|
|
1225 `(group
|
|
1226 :indent 2
|
|
1227 :format "\n%v\n"
|
65365
|
1228 ,@(recentf-open-files-items (or files recentf-list))))
|
50715
|
1229 (widget-create
|
|
1230 'push-button
|
|
1231 :notify 'recentf-cancel-dialog
|
|
1232 "Cancel")
|
63781
|
1233 (recentf-dialog-goto-first 'link)))
|
30416
|
1234
|
|
1235 (defun recentf-open-more-files ()
|
63781
|
1236 "Show a dialog to open a recent file that is not in the menu."
|
30416
|
1237 (interactive)
|
|
1238 (recentf-open-files (nthcdr recentf-max-menu-items recentf-list)
|
50715
|
1239 (format "*%s - More*" recentf-menu-title)))
|
|
1240
|
65894
|
1241 (defun recentf-open-most-recent-file (&optional n)
|
|
1242 "Open the Nth most recent file.
|
|
1243 Optional argument N must be a valid digit number. It defaults to 1.
|
|
1244 1 opens the most recent file, 2 the second most recent one, etc..
|
|
1245 0 opens the tenth most recent file."
|
|
1246 (interactive "p")
|
|
1247 (cond
|
|
1248 ((zerop n) (setq n 10))
|
|
1249 ((and (> n 0) (< n 10)))
|
|
1250 ((error "Recent file number out of range [0-9], %d" n)))
|
|
1251 (let ((file (nth (1- n) (or recentf--files-with-key recentf-list))))
|
|
1252 (unless file (error "Not that many recent files"))
|
|
1253 ;; Close the open files dialog.
|
|
1254 (when recentf--files-with-key
|
|
1255 (kill-buffer (current-buffer)))
|
|
1256 (funcall recentf-menu-action file)))
|
66083
|
1257
|
63781
|
1258 ;;; Save/load/cleanup the recent list
|
|
1259 ;;
|
50715
|
1260 (defconst recentf-save-file-header
|
|
1261 ";;; Automatically generated by `recentf' on %s.\n"
|
|
1262 "Header to be written into the `recentf-save-file'.")
|
30416
|
1263
|
61733
|
1264 (defconst recentf-save-file-coding-system
|
|
1265 (if (coding-system-p 'utf-8-emacs)
|
|
1266 'utf-8-emacs
|
|
1267 'emacs-mule)
|
|
1268 "Coding system of the file `recentf-save-file'.")
|
|
1269
|
50715
|
1270 (defun recentf-save-list ()
|
|
1271 "Save the recent list.
|
|
1272 Write data into the file specified by `recentf-save-file'."
|
|
1273 (interactive)
|
55012
|
1274 (condition-case error
|
|
1275 (with-temp-buffer
|
63781
|
1276 (erase-buffer)
|
|
1277 (set-buffer-file-coding-system recentf-save-file-coding-system)
|
|
1278 (insert (format recentf-save-file-header (current-time-string)))
|
|
1279 (recentf-dump-variable 'recentf-list recentf-max-saved-items)
|
67417
|
1280 (recentf-dump-variable 'recentf-filter-changer-current)
|
84657
|
1281 (insert "\n\n;; Local Variables:\n"
|
|
1282 (format ";; coding: %s\n" recentf-save-file-coding-system)
|
|
1283 ";; End:\n")
|
63781
|
1284 (write-file (expand-file-name recentf-save-file))
|
65525
|
1285 (when recentf-save-file-modes
|
|
1286 (set-file-modes recentf-save-file recentf-save-file-modes))
|
63781
|
1287 nil)
|
55012
|
1288 (error
|
|
1289 (warn "recentf mode: %s" (error-message-string error)))))
|
32866
|
1290
|
50715
|
1291 (defun recentf-load-list ()
|
|
1292 "Load a previously saved recent list.
|
52638
|
1293 Read data from the file specified by `recentf-save-file'.
|
|
1294 When `recentf-initialize-file-name-history' is non-nil, initialize an
|
|
1295 empty `file-name-history' with the recent list."
|
50715
|
1296 (interactive)
|
|
1297 (let ((file (expand-file-name recentf-save-file)))
|
|
1298 (when (file-readable-p file)
|
52638
|
1299 (load-file file)
|
|
1300 (and recentf-initialize-file-name-history
|
|
1301 (not file-name-history)
|
|
1302 (setq file-name-history (mapcar 'abbreviate-file-name
|
|
1303 recentf-list))))))
|
50715
|
1304
|
|
1305 (defun recentf-cleanup ()
|
65744
|
1306 "Cleanup the recent list.
|
|
1307 That is, remove duplicates, non-kept, and excluded files."
|
50715
|
1308 (interactive)
|
|
1309 (message "Cleaning up the recentf list...")
|
60844
|
1310 (let ((n 0) newlist)
|
50715
|
1311 (dolist (f recentf-list)
|
65744
|
1312 (setq f (recentf-expand-file-name f))
|
60740
|
1313 (if (and (recentf-include-p f)
|
65744
|
1314 (recentf-keep-p f)
|
|
1315 (not (recentf-string-member f newlist)))
|
50715
|
1316 (push f newlist)
|
60844
|
1317 (setq n (1+ n))
|
50715
|
1318 (message "File %s removed from the recentf list" f)))
|
60844
|
1319 (message "Cleaning up the recentf list...done (%d removed)" n)
|
|
1320 (setq recentf-list (nreverse newlist))))
|
66083
|
1321
|
|
1322 ;;; The minor mode
|
|
1323 ;;
|
65894
|
1324 (defvar recentf-mode-map (make-sparse-keymap)
|
|
1325 "Keymap to use in recentf mode.")
|
|
1326
|
30416
|
1327 ;;;###autoload
|
32866
|
1328 (define-minor-mode recentf-mode
|
30416
|
1329 "Toggle recentf mode.
|
32866
|
1330 With prefix argument ARG, turn on if positive, otherwise off.
|
|
1331 Returns non-nil if the new state is enabled.
|
30416
|
1332
|
50715
|
1333 When recentf mode is enabled, it maintains a menu for visiting files
|
73413
|
1334 that were operated on recently."
|
32866
|
1335 :global t
|
|
1336 :group 'recentf
|
65894
|
1337 :keymap recentf-mode-map
|
50715
|
1338 (unless (and recentf-mode (recentf-enabled-p))
|
|
1339 (if recentf-mode
|
67417
|
1340 (progn
|
|
1341 (recentf-load-list)
|
|
1342 (recentf-show-menu))
|
|
1343 (recentf-hide-menu)
|
50715
|
1344 (recentf-save-list))
|
|
1345 (recentf-auto-cleanup)
|
|
1346 (let ((hook-setup (if recentf-mode 'add-hook 'remove-hook)))
|
|
1347 (dolist (hook recentf-used-hooks)
|
|
1348 (apply hook-setup hook)))
|
|
1349 (run-hooks 'recentf-mode-hook)
|
|
1350 (when (interactive-p)
|
|
1351 (message "Recentf mode %sabled" (if recentf-mode "en" "dis"))))
|
|
1352 recentf-mode)
|
30416
|
1353
|
|
1354 (provide 'recentf)
|
|
1355
|
|
1356 (run-hooks 'recentf-load-hook)
|
61733
|
1357
|
63781
|
1358 ;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
|
32429
|
1359 ;;; recentf.el ends here
|