mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
3493008d5a
(recentf-make-menu-items, recentf-make-menu-item) (recentf-filter-changer): Added :help and :active menu-item properties. (recentf-build-dir-rules, recentf-dump-variable) (recentf-edit-list, recentf-open-files-item) (recentf-open-files): Replaced unnecessary `mapcar' with new built-in `mapc'.
1069 lines
41 KiB
EmacsLisp
1069 lines
41 KiB
EmacsLisp
;; recentf.el --- setup a menu of recently opened files
|
|
|
|
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
|
|
|
;; Author: David Ponce <david@dponce.com>
|
|
;; Created: July 19 1999
|
|
;; Keywords: customization
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This package maintains a menu for visiting files that were operated
|
|
;; on recently. When enabled a new "Open Recent" submenu is displayed
|
|
;; in the "Files" menu. The recent files list is automatically saved
|
|
;; across Emacs sessions. You can customize the number of recent
|
|
;; files displayed, the location of the menu and others options (see
|
|
;; the source code for details). To install and use, put the file on
|
|
;; your Emacs-Lisp load path and add the following into your ~/.emacs
|
|
;; startup file:
|
|
;;
|
|
;; (require 'recentf)
|
|
;; (recentf-mode 1)
|
|
|
|
;;; Code:
|
|
|
|
(require 'easymenu)
|
|
(require 'wid-edit)
|
|
|
|
(defconst recentf-save-file-header
|
|
";;; Automatically generated by `recentf' on %s.\n"
|
|
"Header to be written into the `recentf-save-file'.")
|
|
|
|
(defvar recentf-list nil
|
|
"List of recently opened files.")
|
|
|
|
(defvar recentf-update-menu-p t
|
|
"Non-nil if the recentf menu must be updated.")
|
|
|
|
(defvar recentf-initialized-p nil
|
|
"Non-nil if recentf already initialized.")
|
|
|
|
;; IMPORTANT: This function must be defined before the following defcustoms
|
|
;; because it is used in their :set clause. To avoid byte-compiler warnings
|
|
;; the `symbol-value' function is used to access the `recentf-menu-path'
|
|
;; and `recentf-menu-title' values.
|
|
(defun recentf-menu-customization-changed (sym val)
|
|
"Function called when menu customization has changed.
|
|
It removes the recentf menu and forces its complete redrawing."
|
|
(when recentf-initialized-p
|
|
(easy-menu-remove-item nil
|
|
(symbol-value 'recentf-menu-path)
|
|
(symbol-value 'recentf-menu-title))
|
|
(setq recentf-update-menu-p t))
|
|
(custom-set-default sym val))
|
|
|
|
(defgroup recentf nil
|
|
"Maintain a menu of recently opened files."
|
|
:version "21.1"
|
|
:group 'files)
|
|
|
|
(defgroup recentf-filters nil
|
|
"Group to customize recentf menu filters.
|
|
You should define the options of your own filters in this group."
|
|
:group 'recentf)
|
|
|
|
(defcustom recentf-max-saved-items 20
|
|
"*Maximum number of items saved to `recentf-save-file'."
|
|
:group 'recentf
|
|
:type 'integer)
|
|
|
|
(defcustom recentf-save-file (expand-file-name "~/.recentf")
|
|
"*File to save `recentf-list' into."
|
|
:group 'recentf
|
|
:type 'file)
|
|
|
|
(defcustom recentf-exclude nil
|
|
"*List of regexps for filenames excluded from `recentf-list'."
|
|
:group 'recentf
|
|
:type '(repeat regexp))
|
|
|
|
(defcustom recentf-menu-title "Open Recent"
|
|
"*Name of the recentf menu."
|
|
:group 'recentf
|
|
:type 'string
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-menu-path '("files")
|
|
"*Path where to add the recentf menu.
|
|
If nil add it at top level (see also `easy-menu-change')."
|
|
:group 'recentf
|
|
:type '(choice (const :tag "Top Level" nil)
|
|
(sexp :tag "Menu Path"))
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-menu-before "open-file"
|
|
"*Name of the menu before which the recentf menu will be added.
|
|
If nil add it at end of menu (see also `easy-menu-change')."
|
|
:group 'recentf
|
|
:type '(choice (string :tag "Name")
|
|
(const :tag "Last" nil))
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-menu-action 'recentf-find-file
|
|
"*Function to invoke with a filename item of the recentf menu.
|
|
The default action `recentf-find-file' calls `find-file' to edit an
|
|
existing file. If the file does not exist or is not readable, it is
|
|
not edited and its name is removed from `recentf-list'. You can use
|
|
`find-file' instead to open non-existing files and keep them in the
|
|
list of recently opened files."
|
|
:group 'recentf
|
|
:type 'function
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-max-menu-items 10
|
|
"*Maximum number of items in the recentf menu."
|
|
:group 'recentf
|
|
:type 'integer
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-menu-filter nil
|
|
"*Function used to filter files displayed in the recentf menu.
|
|
Nil means no filter. The following functions are predefined:
|
|
|
|
- - `recentf-sort-ascending' to sort menu items in ascending order.
|
|
- - `recentf-sort-descending' to sort menu items in descending order.
|
|
- - `recentf-sort-basenames-ascending' to sort file names in descending order.
|
|
- - `recentf-sort-basenames-descending' to sort file names in descending order.
|
|
- - `recentf-sort-directories-ascending' to sort directories in ascending order.
|
|
- - `recentf-sort-directories-descending' to sort directories in descending order.
|
|
- - `recentf-show-basenames' to show file names (no directories) in menu items.
|
|
- - `recentf-show-basenames-ascending' to show file names in ascending order.
|
|
- - `recentf-show-basenames-descending' to show file names in descending order.
|
|
- - `recentf-relative-filter' to show file names relative to `default-directory'.
|
|
- - `recentf-arrange-by-rule' to show sub-menus following user defined rules.
|
|
- - `recentf-arrange-by-mode' to show a sub-menu for each major mode.
|
|
- - `recentf-arrange-by-dir' to show a sub-menu for each directory.
|
|
- - `recentf-filter-changer' to manage a ring of filters.
|
|
|
|
The filter function is called with one argument, the list of menu elements
|
|
used to build the menu and must return a new list of menu elements (see
|
|
`recentf-make-menu-element' for menu element form)."
|
|
:group 'recentf
|
|
:type 'function
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-menu-append-commands-p t
|
|
"*If not-nil command items are appended to the menu."
|
|
:group 'recentf
|
|
:type 'boolean
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-keep-non-readable-files-p nil
|
|
"*If nil (default), non-readable files are not kept in `recentf-list'."
|
|
:group 'recentf
|
|
:type 'boolean
|
|
:require 'recentf
|
|
:initialize 'custom-initialize-default
|
|
:set (lambda (sym val)
|
|
(if val
|
|
(remove-hook 'kill-buffer-hook 'recentf-remove-file-hook)
|
|
(add-hook 'kill-buffer-hook 'recentf-remove-file-hook))
|
|
(custom-set-default sym val)))
|
|
|
|
(defcustom recentf-load-hook nil
|
|
"*Normal hook run at end of loading the `recentf' package."
|
|
:group 'recentf
|
|
:type 'hook)
|
|
|
|
;;;;
|
|
;;;; Common functions
|
|
;;;;
|
|
(defconst recentf-case-fold-search
|
|
(memq system-type '(vax-vms windows-nt))
|
|
"Non-nil if recentf searches and matches should ignore case.")
|
|
|
|
(defun recentf-include-p (filename)
|
|
"Return t if FILENAME match none of the `recentf-exclude' regexps."
|
|
(let ((case-fold-search recentf-case-fold-search)
|
|
(rl recentf-exclude))
|
|
(while (and rl (not (string-match (car rl) filename)))
|
|
(setq rl (cdr rl)))
|
|
(null rl)))
|
|
|
|
(defun recentf-add-file (filename)
|
|
"Add or move FILENAME at the beginning of `recentf-list'.
|
|
Does nothing if FILENAME matches one of the `recentf-exclude' regexps."
|
|
(let ((filename (expand-file-name filename)))
|
|
(when (recentf-include-p filename)
|
|
(setq recentf-list (cons filename (delete filename recentf-list)))
|
|
(setq recentf-update-menu-p t))))
|
|
|
|
(defun recentf-remove-if-non-readable (filename)
|
|
"Remove FILENAME from `recentf-list' if not readable."
|
|
(unless (file-readable-p filename)
|
|
(setq recentf-list (delete filename recentf-list))
|
|
(setq recentf-update-menu-p t)))
|
|
|
|
(defun recentf-find-file (filename)
|
|
"Edit file FILENAME using `find-file'.
|
|
If FILENAME is not readable it is removed from `recentf-list'."
|
|
(if (file-readable-p filename)
|
|
(find-file filename)
|
|
(progn
|
|
(message "File `%s' not found." filename)
|
|
(setq recentf-list (delete filename recentf-list))
|
|
(setq recentf-update-menu-p t))))
|
|
|
|
(defun recentf-trunc-list (l n)
|
|
"Return a list of the first N elements of L."
|
|
(let ((lh nil))
|
|
(while (and l (> n 0))
|
|
(setq lh (cons (car l) lh))
|
|
(setq n (1- n))
|
|
(setq l (cdr l)))
|
|
(nreverse lh)))
|
|
|
|
(defun recentf-elements (n)
|
|
"Return a list of the first N elements of `recentf-list'."
|
|
(recentf-trunc-list recentf-list n))
|
|
|
|
(defun recentf-make-menu-element (menu-item menu-value)
|
|
"Create a new menu-element.
|
|
|
|
A menu element is a pair (MENU-ITEM . MENU-VALUE) where:
|
|
|
|
- - MENU-ITEM is the menu item string displayed.
|
|
- - MENU-VALUE is the path used to open the file when the
|
|
corresponding MENU-ITEM is selected. Or it is
|
|
a pair (SUB-MENU-TITLE . MENU-ELEMENTS) where
|
|
SUB-MENU-TITLE is a sub-menu title and
|
|
MENU-ELEMENTS is the list of menu elements in
|
|
the sub-menu."
|
|
(cons menu-item menu-value))
|
|
|
|
(defun recentf-menu-element-item (e)
|
|
"Return the item part of the menu-element E."
|
|
(car e))
|
|
|
|
(defun recentf-menu-element-value (e)
|
|
"Return the value part of the menu-element E."
|
|
(cdr e))
|
|
|
|
(defun recentf-set-menu-element-item (e item)
|
|
"Change the item part of menu-element E to ITEM."
|
|
(setcar e item))
|
|
|
|
(defun recentf-set-menu-element-value (e value)
|
|
"Change the value part of menu-element E to VALUE."
|
|
(setcdr e value))
|
|
|
|
(defun recentf-sub-menu-element-p (e)
|
|
"Return non-nil if menu-element E defines a sub-menu."
|
|
(consp (recentf-menu-element-value e)))
|
|
|
|
(defun recentf-make-default-menu-element (file-path)
|
|
"Make a new default menu element (MENU-ITEM . MENU-VALUE).
|
|
Do so for the given recent file path FILE-PATH. MENU-ITEM and
|
|
MENU-VALUE are set to FILE-PATH. See also
|
|
`recentf-make-menu-element'."
|
|
(recentf-make-menu-element file-path file-path))
|
|
|
|
(defun recentf-menu-elements (n)
|
|
"Return a list of the first N default menu elements from `recentf-list'.
|
|
See also `recentf-make-default-menu-element'."
|
|
(mapcar 'recentf-make-default-menu-element
|
|
(recentf-elements n)))
|
|
|
|
(defun recentf-apply-menu-filter (filter l)
|
|
"Apply function FILTER to the list of menu-elements L.
|
|
It takes care of sub-menu elements in L and recursively apply FILTER
|
|
to them. It is guaranteed that FILTER receives only a list of single
|
|
menu-elements (no sub-menu)."
|
|
(if (and (functionp filter) l)
|
|
(let ((case-fold-search recentf-case-fold-search)
|
|
menu-element sub-menu-elements single-elements)
|
|
;; split L in two sub-listes:
|
|
;; one of sub-menus elements and
|
|
;; one of single menu elements
|
|
(while l
|
|
(setq menu-element (car l))
|
|
(if (recentf-sub-menu-element-p menu-element)
|
|
(setq sub-menu-elements
|
|
(cons menu-element sub-menu-elements))
|
|
(setq single-elements
|
|
(cons menu-element single-elements)))
|
|
(setq l (cdr l)))
|
|
;; apply FILTER to the list of single menu elements
|
|
(if single-elements
|
|
(setq single-elements (funcall filter
|
|
(nreverse single-elements))))
|
|
;; apply FILTER to sub-menu menu element list
|
|
(setq l sub-menu-elements)
|
|
(setq sub-menu-elements nil)
|
|
(while l
|
|
(setq menu-element (car l))
|
|
(recentf-set-menu-element-value
|
|
menu-element
|
|
(recentf-apply-menu-filter
|
|
filter
|
|
(recentf-menu-element-value menu-element)))
|
|
(setq sub-menu-elements (cons menu-element sub-menu-elements))
|
|
(setq l (cdr l)))
|
|
;; build and return the new filtered menu element list
|
|
(nconc sub-menu-elements single-elements))
|
|
l))
|
|
|
|
(defvar recentf-menu-items-for-commands
|
|
(list ["Cleanup list"
|
|
recentf-cleanup
|
|
:help "Remove all non-readable and excluded files from the recent list"
|
|
:active t]
|
|
["Edit list..."
|
|
recentf-edit-list
|
|
:help "Edit the files that are kept in the recent list"
|
|
:active t]
|
|
["Save list now"
|
|
recentf-save-list
|
|
:help "Save the list of recently opened files now"
|
|
:active t]
|
|
["Options..."
|
|
(customize-group "recentf")
|
|
:help "Customize recently opened files menu and options"
|
|
:active t]
|
|
)
|
|
"List of menu items for recentf commands.")
|
|
|
|
(defvar recentf-menu-filter-commands nil
|
|
"This variable can be used by menu filters to setup their own command menu.
|
|
|
|
If non-nil it must contain a list of valid menu-items to be appended
|
|
to the recent file list part of the menu. Before calling a menu
|
|
filter function this variable is reset to nil.")
|
|
|
|
(defun recentf-make-menu-items ()
|
|
"Make menu items from `recentf-list'."
|
|
(setq recentf-menu-filter-commands nil)
|
|
(let ((file-items
|
|
(mapcar 'recentf-make-menu-item
|
|
(recentf-apply-menu-filter
|
|
recentf-menu-filter
|
|
(recentf-menu-elements recentf-max-menu-items)))))
|
|
(append (or file-items (list ["No files" t
|
|
:help "No recent file to open"
|
|
:active nil]))
|
|
(and (< recentf-max-menu-items (length recentf-list))
|
|
(list ["More..." recentf-open-more-files
|
|
:help "Open files that are not in the menu"
|
|
:active t]))
|
|
(and recentf-menu-filter-commands
|
|
(cons "---"
|
|
recentf-menu-filter-commands))
|
|
(and recentf-menu-append-commands-p
|
|
(cons "---"
|
|
recentf-menu-items-for-commands)))))
|
|
|
|
(defun recentf-make-menu-item (menu-element)
|
|
"Make a menu item from MENU-ELEMENT (see `recentf-make-menu-element')."
|
|
(let ((menu-item (recentf-menu-element-item menu-element))
|
|
(menu-value (recentf-menu-element-value menu-element)))
|
|
(if (recentf-sub-menu-element-p menu-element)
|
|
(cons menu-item (mapcar 'recentf-make-menu-item menu-value))
|
|
(vector menu-item
|
|
(list recentf-menu-action menu-value)
|
|
:help (concat "Open " menu-value)
|
|
:active t))))
|
|
|
|
;;;;
|
|
;;;; Predefined menu filter functions
|
|
;;;;
|
|
|
|
(defun recentf-sort-ascending (l)
|
|
"Sort the list of menu elements L in ascending order.
|
|
The MENU-ITEM part of each menu element is compared."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(string-lessp (recentf-menu-element-item e1)
|
|
(recentf-menu-element-item e2))))))
|
|
|
|
(defun recentf-sort-descending (l)
|
|
"Sort the list of menu elements L in descending order.
|
|
The MENU-ITEM part of each menu element is compared."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(string-lessp (recentf-menu-element-item e2)
|
|
(recentf-menu-element-item e1))))))
|
|
|
|
(defun recentf-sort-basenames-ascending (l)
|
|
"Sort the list of menu elements L in ascending order.
|
|
Only file names (without directories) are compared."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(string-lessp
|
|
(file-name-nondirectory (recentf-menu-element-value e1))
|
|
(file-name-nondirectory (recentf-menu-element-value e2)))))))
|
|
|
|
(defun recentf-sort-basenames-descending (l)
|
|
"Sort the list of menu elements L in descending order.
|
|
Only file names (without directories) are compared."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(string-lessp
|
|
(file-name-nondirectory (recentf-menu-element-value e2))
|
|
(file-name-nondirectory (recentf-menu-element-value e1)))))))
|
|
|
|
(defun recentf-directory-compare (p1 p2)
|
|
"Compare directories then filenames in paths P1 and P2.
|
|
Return non-nil if P1 is less than P2."
|
|
(let ((d1 (file-name-directory p1))
|
|
(f1 (file-name-nondirectory p1))
|
|
(d2 (file-name-directory p2))
|
|
(f2 (file-name-nondirectory p2)))
|
|
(if (string= d1 d2)
|
|
(string-lessp f1 f2)
|
|
(string-lessp d1 d2))))
|
|
|
|
(defun recentf-sort-directories-ascending (l)
|
|
"Sort the list of menu elements L in ascending order.
|
|
Compares directories then filenames to order the list."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(recentf-directory-compare (recentf-menu-element-value e1)
|
|
(recentf-menu-element-value e2))))))
|
|
|
|
(defun recentf-sort-directories-descending (l)
|
|
"Sort the list of menu elements L in descending order.
|
|
Compares directories then filenames to order the list."
|
|
(sort (copy-sequence l)
|
|
(function
|
|
(lambda (e1 e2)
|
|
(recentf-directory-compare (recentf-menu-element-value e2)
|
|
(recentf-menu-element-value e1))))))
|
|
|
|
(defun recentf-show-basenames (l)
|
|
"Filter the list of menu elements L to show only file names (no directories)
|
|
in the menu. When file names are duplicated their directory component is added."
|
|
(let ((names (mapcar (function
|
|
(lambda (item)
|
|
(file-name-nondirectory
|
|
(recentf-menu-element-value item))))
|
|
l))
|
|
(dirs (mapcar (function
|
|
(lambda (item)
|
|
(file-name-directory
|
|
(recentf-menu-element-value item))))
|
|
l))
|
|
(pathes (mapcar 'recentf-menu-element-value l))
|
|
(pos -1)
|
|
item filtered-items filtered-list)
|
|
(while names
|
|
(setq item (car names))
|
|
(setq names (cdr names))
|
|
(setq pos (1+ pos))
|
|
(setq filtered-list
|
|
(cons (recentf-make-menu-element
|
|
(if (or (member item names) (member item filtered-items))
|
|
(concat item " (" (nth pos dirs) ")")
|
|
item)
|
|
(nth pos pathes))
|
|
filtered-list))
|
|
(setq filtered-items (cons item filtered-items)))
|
|
(nreverse filtered-list)))
|
|
|
|
(defun recentf-show-basenames-ascending (l)
|
|
"Filter the list of menu elements L.
|
|
Show only file names in the menu, sorted in ascending order. This
|
|
filter combines the `recentf-sort-basenames-ascending' and
|
|
`recentf-show-basenames' filters."
|
|
(recentf-show-basenames (recentf-sort-basenames-ascending l)))
|
|
|
|
(defun recentf-show-basenames-descending (l)
|
|
"Filter the list of menu elements L.
|
|
Show only file names in the menu, sorted in descending order. This
|
|
filter combines the `recentf-sort-basenames-descending' and
|
|
`recentf-show-basenames' filters."
|
|
(recentf-show-basenames (recentf-sort-basenames-descending l)))
|
|
|
|
(defun recentf-relative-filter (l)
|
|
"Filter the list of `recentf-menu-elements' L.
|
|
Show filenames relative to `default-directory'."
|
|
(setq recentf-update-menu-p t) ; force menu update
|
|
(mapcar (function
|
|
(lambda (menu-element)
|
|
(let* ((ful-path (recentf-menu-element-value menu-element))
|
|
(rel-path (file-relative-name ful-path)))
|
|
(if (string-match "^\\.\\." rel-path)
|
|
menu-element
|
|
(recentf-make-menu-element rel-path ful-path)))))
|
|
l))
|
|
|
|
(defcustom recentf-arrange-rules
|
|
'(
|
|
("Elisp files (%d)" ".\\.el$")
|
|
("Java files (%d)" ".\\.java$")
|
|
("C/C++ files (%d)" "c\\(pp\\)?$")
|
|
)
|
|
"*List of rules used by `recentf-arrange-by-rule' to build sub-menus.
|
|
A rule is a pair (SUB-MENU-TITLE . MATCHER). SUB-MENU-TITLE is the
|
|
displayed title of the sub-menu where a '%d' `format' pattern is
|
|
replaced by the number of items in the sub-menu. MATCHER is a regexp
|
|
or a list of regexps. Items matching one of the regular expressions in
|
|
MATCHER are added to the corresponding sub-menu."
|
|
:group 'recentf-filters
|
|
:type '(repeat (cons string (repeat regexp)))
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-arrange-by-rule-others "Other files (%d)"
|
|
"*Title of the `recentf-arrange-by-rule' sub-menu.
|
|
This is for the menu where items that don't match any
|
|
`recentf-arrange-rules' are displayed. If nil these items are
|
|
displayed in the main recent files menu. A '%d' `format' pattern in
|
|
the title is replaced by the number of items in the sub-menu."
|
|
:group 'recentf-filters
|
|
:type '(choice (const :tag "Main menu" nil)
|
|
(string :tag "Title"))
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-arrange-by-rules-min-items 0
|
|
"*Minimum number of items in a `recentf-arrange-by-rule' sub-menu.
|
|
If the number of items in a sub-menu is less than this value the
|
|
corresponding sub-menu items are displayed in the main recent files
|
|
menu or in the `recentf-arrange-by-rule-others' sub-menu if
|
|
defined."
|
|
:group 'recentf-filters
|
|
:type 'number
|
|
:set 'recentf-menu-customization-changed)
|
|
|
|
(defcustom recentf-arrange-by-rule-subfilter nil
|
|
"*Function used by `recentf-arrange-by-rule' to filter sub-menu elements.
|
|
Nil means no filter. See also `recentf-menu-filter'. You can't use
|
|
`recentf-arrange-by-rule' itself here!"
|
|
:group 'recentf-filters
|
|
:type 'function
|
|
:set (lambda (sym val)
|
|
(if (eq val 'recentf-arrange-by-rule)
|
|
(error "Can't use `recentf-arrange-by-rule' itself here!")
|
|
(recentf-menu-customization-changed sym val))))
|
|
|
|
(defun recentf-match-rule-p (matcher file-path)
|
|
"Return non-nil if FILE-PATH match the rule specified by MATCHER.
|
|
See `recentf-arrange-rules' for details on MATCHER."
|
|
(if (stringp matcher)
|
|
(string-match matcher file-path)
|
|
(while (and (consp matcher)
|
|
(not (string-match (car matcher) file-path)))
|
|
(setq matcher (cdr matcher)))
|
|
matcher))
|
|
|
|
(defun recentf-arrange-by-rule (l)
|
|
"Filter the list of menu-elements L.
|
|
Arrange them in sub-menus following rules in `recentf-arrange-rules'."
|
|
(let ((sub-menus-number (length recentf-arrange-rules)))
|
|
(if (> sub-menus-number 0)
|
|
(let ((sub-menus (apply 'vector
|
|
(mapcar (function
|
|
(lambda (pair)
|
|
(list (car pair))))
|
|
recentf-arrange-rules)))
|
|
other-menu-elements index min-size)
|
|
(while l
|
|
(let* ((menu-element (car l))
|
|
(file-path (recentf-menu-element-value menu-element))
|
|
(rules recentf-arrange-rules)
|
|
(found nil))
|
|
(setq index 0)
|
|
(while (and (not found) rules)
|
|
(if (recentf-match-rule-p (cdar rules) file-path)
|
|
(let ((sub-menu (aref sub-menus index)))
|
|
(setq found t)
|
|
(recentf-set-menu-element-value
|
|
sub-menu
|
|
(cons menu-element (recentf-menu-element-value sub-menu)))
|
|
))
|
|
(setq index (1+ index))
|
|
(setq rules (cdr rules)))
|
|
(or found
|
|
(setq other-menu-elements
|
|
(cons menu-element other-menu-elements)))
|
|
(setq l (cdr l))))
|
|
(setq index 0)
|
|
(setq l nil)
|
|
(setq min-size (if (integerp recentf-arrange-by-rules-min-items)
|
|
(max 0 recentf-arrange-by-rules-min-items)
|
|
0))
|
|
(while (< index sub-menus-number)
|
|
(let* ((sub-menu (aref sub-menus index))
|
|
(sub-menu-title (recentf-menu-element-item sub-menu))
|
|
(sub-menu-elements (recentf-menu-element-value sub-menu))
|
|
(sub-menu-length (length sub-menu-elements)))
|
|
(if (> sub-menu-length 0)
|
|
(cond
|
|
((< sub-menu-length min-size)
|
|
(setq other-menu-elements
|
|
(nconc sub-menu-elements other-menu-elements)))
|
|
((>= sub-menu-length min-size)
|
|
(recentf-set-menu-element-item
|
|
sub-menu
|
|
(format sub-menu-title sub-menu-length))
|
|
(recentf-set-menu-element-value
|
|
sub-menu
|
|
(recentf-apply-menu-filter
|
|
recentf-arrange-by-rule-subfilter
|
|
(nreverse sub-menu-elements)))
|
|
(setq l (cons sub-menu l)))))
|
|
(setq index (1+ index))))
|
|
(if (and (stringp recentf-arrange-by-rule-others)
|
|
other-menu-elements)
|
|
(setq l
|
|
(nreverse
|
|
(cons (recentf-make-menu-element
|
|
(format recentf-arrange-by-rule-others
|
|
(length other-menu-elements))
|
|
(recentf-apply-menu-filter
|
|
recentf-arrange-by-rule-subfilter
|
|
(nreverse other-menu-elements)))
|
|
l)))
|
|
(setq l (nconc (nreverse l)
|
|
(recentf-apply-menu-filter
|
|
recentf-arrange-by-rule-subfilter
|
|
(nreverse other-menu-elements)))))))
|
|
l))
|
|
|
|
(defun recentf-build-mode-rules ()
|
|
"Convert `auto-mode-alist' to `recentf-arrange-rules' format."
|
|
(let ((case-fold-search recentf-case-fold-search)
|
|
(modes auto-mode-alist)
|
|
regexp mode rule-name rule rules)
|
|
(while modes
|
|
(setq regexp (caar modes))
|
|
(setq mode (cdar modes))
|
|
(when (symbolp mode)
|
|
(setq rule-name (symbol-name mode))
|
|
(if (string-match "\\(.*\\)-mode$" rule-name)
|
|
(setq rule-name (match-string 1 rule-name)))
|
|
(setq rule-name (concat rule-name " (%d)"))
|
|
(setq rule (assoc rule-name rules))
|
|
(if rule
|
|
(setcdr rule (cons regexp (cdr rule)))
|
|
(setq rules (cons (list rule-name regexp) rules))))
|
|
(setq modes (cdr modes)))
|
|
;; It is important to preserve auto-mode-alist order
|
|
;; to ensure the right file <-> mode association
|
|
(nreverse rules)))
|
|
|
|
(defun recentf-arrange-by-mode (l)
|
|
"Filter the list of menu-elements L to build sub-menus for each major mode."
|
|
(let ((recentf-arrange-rules (recentf-build-mode-rules))
|
|
(recentf-arrange-by-rule-others "others (%d)"))
|
|
(recentf-arrange-by-rule l)))
|
|
|
|
(defun recentf-build-dir-rules (l)
|
|
"Convert directories in menu-elements L to rules in `recentf-arrange-rules' format."
|
|
(let (dirs)
|
|
(mapc (function
|
|
(lambda (e)
|
|
(let ((dir (file-name-directory
|
|
(recentf-menu-element-value e))))
|
|
(or (member dir dirs)
|
|
(setq dirs (cons dir dirs))))))
|
|
l)
|
|
(mapcar (function
|
|
(lambda (d)
|
|
(cons (concat d " (%d)")
|
|
(concat "\\`" d))))
|
|
(nreverse (sort dirs 'string-lessp)))))
|
|
|
|
(defun recentf-file-name-nondir (l)
|
|
"Filter the list of menu-elements L to show only filenames.
|
|
This simplified version of `recentf-show-basenames' does not handle
|
|
duplicates. It is used by `recentf-arrange-by-dir' as its
|
|
`recentf-arrange-by-rule-subfilter'."
|
|
(mapcar (function
|
|
(lambda (e)
|
|
(recentf-make-menu-element
|
|
(file-name-nondirectory (recentf-menu-element-value e))
|
|
(recentf-menu-element-value e))))
|
|
l))
|
|
|
|
(defun recentf-arrange-by-dir (l)
|
|
"Filter the list of menu-elements L to build sub-menus for each directory."
|
|
(let ((recentf-arrange-rules (recentf-build-dir-rules l))
|
|
(recentf-arrange-by-rule-subfilter 'recentf-file-name-nondir)
|
|
recentf-arrange-by-rule-others)
|
|
(nreverse (recentf-arrange-by-rule l))))
|
|
|
|
(defvar recentf-filter-changer-state nil
|
|
"Used by `recentf-filter-changer' to hold its state.")
|
|
|
|
(defcustom recentf-filter-changer-alist
|
|
'(
|
|
(recentf-arrange-by-mode . "*Files by Mode*")
|
|
(recentf-arrange-by-dir . "*Files by Directory*")
|
|
(recentf-arrange-by-rule . "*Files by User Rule*")
|
|
)
|
|
"*List of filters managed by `recentf-filter-changer'.
|
|
Each filter is defined by a pair (FILTER-FUN . FILTER-LBL) where:
|
|
|
|
- - FILTER-FUN is the function that filters menu-elements
|
|
- - FILTER-LBL is the menu item used to activate the filter"
|
|
:group 'recentf-filters
|
|
:type '(repeat (cons function string))
|
|
:set (lambda (sym val)
|
|
(setq recentf-filter-changer-state nil)
|
|
(recentf-menu-customization-changed sym val)))
|
|
|
|
(defun recentf-filter-changer-goto-next ()
|
|
"Go to the next filter available (see `recentf-filter-changer')."
|
|
(and (consp recentf-filter-changer-state)
|
|
(setq recentf-filter-changer-state
|
|
(cdr recentf-filter-changer-state)))
|
|
(setq recentf-update-menu-p t))
|
|
|
|
(defun recentf-filter-changer-get-current ()
|
|
"Get the current filter available (see `recentf-filter-changer')."
|
|
(if (null recentf-filter-changer-state)
|
|
(setq recentf-filter-changer-state recentf-filter-changer-alist))
|
|
(and (consp recentf-filter-changer-state)
|
|
(car recentf-filter-changer-state)))
|
|
|
|
(defun recentf-filter-changer-get-next ()
|
|
"Get the next filter available (see `recentf-filter-changer')."
|
|
(let ((filters recentf-filter-changer-state))
|
|
(cond ((consp filters)
|
|
(setq filters (cdr filters))
|
|
(if (null filters)
|
|
(setq filters recentf-filter-changer-alist)))
|
|
(t
|
|
(setq filters recentf-filter-changer-alist)
|
|
(if (consp filters)
|
|
(setq filters (cdr filters)))))
|
|
(if (consp filters)
|
|
(car filters))))
|
|
|
|
(defun recentf-filter-changer (l)
|
|
"Manage a ring of filters.
|
|
`recentf-filter-changer-alist' defines the filters in the ring.
|
|
Actual filtering of L is delegated to the current filter in the
|
|
ring. A filter menu item is displayed allowing to dynamically activate
|
|
the next filter in the ring. If the filter ring is empty L is left
|
|
unchanged."
|
|
(let ((current-filter-item (recentf-filter-changer-get-current))
|
|
(next-filter-item (recentf-filter-changer-get-next)))
|
|
(when current-filter-item
|
|
(setq l (recentf-apply-menu-filter (car current-filter-item) l))
|
|
(if next-filter-item
|
|
(setq recentf-menu-filter-commands
|
|
(list (vector (cdr next-filter-item)
|
|
'(recentf-filter-changer-goto-next)
|
|
:active t)))))
|
|
l))
|
|
|
|
;;;;
|
|
;;;; Dialogs stuff
|
|
;;;;
|
|
|
|
(defun recentf-cancel-dialog (&rest ignore)
|
|
"Cancel the current dialog.
|
|
Used by `recentf-edit-list' and `recentf-open-files' dialogs."
|
|
(interactive)
|
|
(kill-buffer (current-buffer))
|
|
(message "Dialog canceled."))
|
|
|
|
(defvar recentf-dialog-mode-map nil
|
|
"`recentf-dialog-mode' keymap.")
|
|
|
|
(if recentf-dialog-mode-map
|
|
()
|
|
(setq recentf-dialog-mode-map (make-sparse-keymap))
|
|
(define-key recentf-dialog-mode-map "q" 'recentf-cancel-dialog)
|
|
(define-key recentf-dialog-mode-map [down-mouse-1] 'widget-button-click)
|
|
(set-keymap-parent recentf-dialog-mode-map widget-keymap))
|
|
|
|
(defun recentf-dialog-mode ()
|
|
"Major mode used in recentf dialogs.
|
|
|
|
These are the special commands of `recentf-dialog-mode' mode:
|
|
q -- cancel this dialog."
|
|
(interactive)
|
|
(setq major-mode 'recentf-dialog-mode)
|
|
(setq mode-name "recentf-dialog")
|
|
(use-local-map recentf-dialog-mode-map))
|
|
|
|
;;;;
|
|
;;;; Hooks and Commands
|
|
;;;;
|
|
|
|
(defun recentf-add-file-hook ()
|
|
"Insert the name of the file just opened or written into `recentf-list'."
|
|
(and buffer-file-name (recentf-add-file buffer-file-name))
|
|
nil)
|
|
|
|
(defun recentf-remove-file-hook ()
|
|
"When a buffer is killed remove a non readable file from `recentf-list'."
|
|
(and buffer-file-name (recentf-remove-if-non-readable buffer-file-name))
|
|
nil)
|
|
|
|
(defun recentf-update-menu-hook ()
|
|
"Update the recentf menu from the current `recentf-list'."
|
|
(when recentf-update-menu-p
|
|
(condition-case nil
|
|
(progn
|
|
(setq recentf-update-menu-p nil)
|
|
(easy-menu-change recentf-menu-path
|
|
recentf-menu-title
|
|
(recentf-make-menu-items)
|
|
recentf-menu-before))
|
|
(error nil))))
|
|
|
|
(defun recentf-dump-variable (variable &optional limit)
|
|
"Insert a \"(setq VARIABLE value)\" in the current buffer.
|
|
Optional argument LIMIT specifies a maximum length when VARIABLE value
|
|
is a list (default to the full list)."
|
|
(let ((value (symbol-value variable)))
|
|
(insert (format "(setq %S\n '(\n" variable))
|
|
(cond ((consp value)
|
|
(if (and (integerp limit) (> limit 0))
|
|
(setq value (recentf-trunc-list value limit)))
|
|
(mapc (function
|
|
(lambda (e)
|
|
(insert (format " %S\n" e))))
|
|
value))
|
|
(t
|
|
(insert (format " %S\n" value))))
|
|
(insert " ))\n")
|
|
))
|
|
|
|
;;;###autoload
|
|
(defun recentf-save-list ()
|
|
"Save the current `recentf-list' to the file `recentf-save-file'."
|
|
(interactive)
|
|
(with-temp-buffer
|
|
(erase-buffer)
|
|
(insert (format recentf-save-file-header (current-time-string)))
|
|
(recentf-dump-variable 'recentf-list recentf-max-saved-items)
|
|
(recentf-dump-variable 'recentf-filter-changer-state)
|
|
(if (file-writable-p recentf-save-file)
|
|
(write-region (point-min) (point-max) recentf-save-file))
|
|
(kill-buffer (current-buffer)))
|
|
nil)
|
|
|
|
(defvar recentf-edit-selected-items nil
|
|
"Used by `recentf-edit-list'.
|
|
Holds list of files to be deleted from `recentf-list'.")
|
|
|
|
(defun recentf-edit-list-action (widget &rest ignore)
|
|
"Checkbox WIDGET action used by `recentf-edit-list' to select/unselect a file."
|
|
(let ((value (widget-get widget ':tag)))
|
|
;; if value is already in the selected items
|
|
(if (memq value recentf-edit-selected-items)
|
|
;; then remove it
|
|
(progn
|
|
(setq recentf-edit-selected-items
|
|
(delq value recentf-edit-selected-items))
|
|
(message "%s removed from selection." value))
|
|
;; else add it
|
|
(progn
|
|
(setq recentf-edit-selected-items
|
|
(nconc (list value) recentf-edit-selected-items))
|
|
(message "%s added to selection." value)))))
|
|
|
|
;;;###autoload
|
|
(defun recentf-edit-list ()
|
|
"Allow the user to edit the files that are kept in the recent list."
|
|
(interactive)
|
|
(with-current-buffer (get-buffer-create (concat "*" recentf-menu-title " - Edit list*"))
|
|
(switch-to-buffer (current-buffer))
|
|
(kill-all-local-variables)
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer))
|
|
(let ((all (overlay-lists)))
|
|
;; Delete all the overlays.
|
|
(mapc 'delete-overlay (car all))
|
|
(mapc 'delete-overlay (cdr all)))
|
|
(setq recentf-edit-selected-items nil)
|
|
;; Insert the dialog header
|
|
(widget-insert "Select the files to be deleted from the 'recentf-list'.\n\n")
|
|
(widget-insert "Click on Ok to update the list. ")
|
|
(widget-insert "Click on Cancel or type \"q\" to quit.\n")
|
|
;; Insert the list of files as checkboxes
|
|
(mapc (function
|
|
(lambda (item)
|
|
(widget-create 'checkbox
|
|
:value nil ; unselected checkbox
|
|
:format "\n %[%v%] %t"
|
|
:tag item
|
|
:notify 'recentf-edit-list-action)))
|
|
recentf-list)
|
|
(widget-insert "\n\n")
|
|
;; Insert the Ok button
|
|
(widget-create 'push-button
|
|
:notify (lambda (&rest ignore)
|
|
(if recentf-edit-selected-items
|
|
(progn (kill-buffer (current-buffer))
|
|
(mapc (function
|
|
(lambda (item)
|
|
(setq recentf-list
|
|
(delq item recentf-list))))
|
|
recentf-edit-selected-items)
|
|
(message "%S file(s) removed from the list"
|
|
(length recentf-edit-selected-items))
|
|
(setq recentf-update-menu-p t))
|
|
(message "No file selected.")))
|
|
"Ok")
|
|
(widget-insert " ")
|
|
;; Insert the Cancel button
|
|
(widget-create 'push-button
|
|
:notify 'recentf-cancel-dialog
|
|
"Cancel")
|
|
(recentf-dialog-mode)
|
|
(widget-setup)
|
|
(goto-char (point-min))))
|
|
|
|
;;;###autoload
|
|
(defun recentf-cleanup ()
|
|
"Remove all non-readable and excluded files from `recentf-list'."
|
|
(interactive)
|
|
(let ((count (length recentf-list)))
|
|
(setq recentf-list
|
|
(delq nil
|
|
(mapcar (function
|
|
(lambda (filename)
|
|
(and (file-readable-p filename)
|
|
(recentf-include-p filename)
|
|
filename)))
|
|
recentf-list)))
|
|
(setq count (- count (length recentf-list)))
|
|
(message "%s removed from the list"
|
|
(cond ((= count 0) "No file")
|
|
((= count 1) "One file")
|
|
(t (format "%d files" count)))))
|
|
(setq recentf-update-menu-p t))
|
|
|
|
(defun recentf-open-files-action (widget &rest ignore)
|
|
"Button WIDGET action used by `recentf-open-files' to open a file."
|
|
(kill-buffer (current-buffer))
|
|
(funcall recentf-menu-action (widget-value widget)))
|
|
|
|
(defvar recentf-open-files-item-shift ""
|
|
"String used by `recentf-open-files' to shift right sub-menu items.")
|
|
|
|
(defun recentf-open-files-item (menu-element)
|
|
"Insert MENU-ELEMENT item in the current interaction buffer."
|
|
(let ((menu-item (car menu-element))
|
|
(file-path (cdr menu-element)))
|
|
(if (consp file-path) ; This is a sub-menu
|
|
(let* ((shift recentf-open-files-item-shift)
|
|
(recentf-open-files-item-shift (concat shift " ")))
|
|
(widget-create 'item
|
|
:tag menu-item
|
|
:sample-face 'bold
|
|
:format (concat shift "%{%t%}:\n"))
|
|
(mapc 'recentf-open-files-item
|
|
file-path)
|
|
(widget-insert "\n"))
|
|
(widget-create 'push-button
|
|
:button-face 'default
|
|
:tag menu-item
|
|
:help-echo (concat "Open " file-path)
|
|
:format (concat recentf-open-files-item-shift "%[%t%]")
|
|
:notify 'recentf-open-files-action
|
|
file-path)
|
|
(widget-insert "\n"))))
|
|
|
|
;;;###autoload
|
|
(defun recentf-open-files (&optional files buffer-name)
|
|
"Display buffer allowing user to choose a file from recently-opened list.
|
|
The optional argument FILES may be used to specify the list, otherwise
|
|
`recentf-list' is used. The optional argument BUFFER-NAME specifies
|
|
which buffer to use for the interaction."
|
|
(interactive)
|
|
(if (null files)
|
|
(setq files recentf-list))
|
|
(if (null buffer-name)
|
|
(setq buffer-name (concat "*" recentf-menu-title "*")))
|
|
(with-current-buffer (get-buffer-create buffer-name)
|
|
(switch-to-buffer (current-buffer))
|
|
(kill-all-local-variables)
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer))
|
|
(let ((all (overlay-lists)))
|
|
;; Delete all the overlays.
|
|
(mapc 'delete-overlay (car all))
|
|
(mapc 'delete-overlay (cdr all)))
|
|
;; Insert the dialog header
|
|
(widget-insert "Click on a file to open it. ")
|
|
(widget-insert "Click on Cancel or type \"q\" to quit.\n\n" )
|
|
;; Insert the list of files as buttons
|
|
(let ((recentf-open-files-item-shift ""))
|
|
(mapc 'recentf-open-files-item
|
|
(recentf-apply-menu-filter
|
|
recentf-menu-filter
|
|
(mapcar 'recentf-make-default-menu-element files))))
|
|
(widget-insert "\n")
|
|
;; Insert the Cancel button
|
|
(widget-create 'push-button
|
|
:notify 'recentf-cancel-dialog
|
|
"Cancel")
|
|
(recentf-dialog-mode)
|
|
(widget-setup)
|
|
(goto-char (point-min))))
|
|
|
|
;;;###autoload
|
|
(defun recentf-open-more-files ()
|
|
"Allow the user to open files that are not in the menu."
|
|
(interactive)
|
|
(recentf-open-files (nthcdr recentf-max-menu-items recentf-list)
|
|
(concat "*" recentf-menu-title " - More*")))
|
|
|
|
|
|
;;; Note this definition must be at the end of the file, because
|
|
;;; `define-minor-mode' actually calls the mode-function if the
|
|
;;; associated variable is non-nil, which requires that all needed
|
|
;;; functions be already defined. [This is arguably a bug in d-m-m]
|
|
;;;###autoload
|
|
(define-minor-mode recentf-mode
|
|
"Toggle recentf mode.
|
|
With prefix argument ARG, turn on if positive, otherwise off.
|
|
Returns non-nil if the new state is enabled.
|
|
|
|
When recentf mode is enabled, it maintains a menu for visiting files that
|
|
were operated on recently."
|
|
:global t
|
|
:group 'recentf
|
|
(if recentf-mode
|
|
(unless recentf-initialized-p
|
|
(setq recentf-initialized-p t)
|
|
(if (file-readable-p recentf-save-file)
|
|
(load-file recentf-save-file))
|
|
(setq recentf-update-menu-p t)
|
|
(add-hook 'find-file-hooks 'recentf-add-file-hook)
|
|
(add-hook 'write-file-hooks 'recentf-add-file-hook)
|
|
(add-hook 'menu-bar-update-hook 'recentf-update-menu-hook)
|
|
(add-hook 'kill-emacs-hook 'recentf-save-list))
|
|
(when recentf-initialized-p
|
|
(setq recentf-initialized-p nil)
|
|
(recentf-save-list)
|
|
(easy-menu-remove-item nil recentf-menu-path recentf-menu-title)
|
|
(remove-hook 'find-file-hooks 'recentf-add-file-hook)
|
|
(remove-hook 'write-file-hooks 'recentf-add-file-hook)
|
|
(remove-hook 'menu-bar-update-hook 'recentf-update-menu-hook)
|
|
(remove-hook 'kill-emacs-hook 'recentf-save-list))))
|
|
|
|
|
|
(provide 'recentf)
|
|
|
|
(run-hooks 'recentf-load-hook)
|
|
|
|
;;; recentf.el ends here
|