annotate lisp/recentf.el @ 109085:6a23dfd2048b

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