diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-06-21 14:27:51 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-06-21 14:38:45 +0200 |
| commit | 32906819addde1aa952d4718699d332d3a58b004 (patch) | |
| tree | 2df7199d7c2701a73937f54266bdbac9473005ce /lisp/recentf.el | |
| parent | 3518ab51d1f08165c2eb74517873877a998e38a5 (diff) | |
| download | emacs-32906819addde1aa952d4718699d332d3a58b004.tar.gz emacs-32906819addde1aa952d4718699d332d3a58b004.tar.bz2 emacs-32906819addde1aa952d4718699d332d3a58b004.zip | |
Allow shortening filenames in recentf-mode menu
* lisp/recentf.el (recentf-show-abbreviated): New function.
(recentf--filter-names): New helper function.
(recentf-show-basenames): Use above new helper function.
(recentf-menu-filter): Allow setting user option to new value
'recentf-show-abbreviated'.
Diffstat (limited to 'lisp/recentf.el')
| -rw-r--r-- | lisp/recentf.el | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/lisp/recentf.el b/lisp/recentf.el index 2de98311540..28aee0f17fd 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -186,6 +186,8 @@ A nil value means no filter. The following functions are predefined: Sort menu items by directories in ascending order. - `recentf-sort-directories-descending' Sort menu items by directories in descending order. +- `recentf-show-abbreviated' + Show shortened filenames. - `recentf-show-basenames' Show filenames sans directory in menu items. - `recentf-show-basenames-ascending' @@ -214,6 +216,7 @@ elements (see `recentf-make-menu-element' for menu element form)." (function-item recentf-sort-basenames-descending) (function-item recentf-sort-directories-ascending) (function-item recentf-sort-directories-descending) + (function-item recentf-show-abbreviated) (function-item recentf-show-basenames) (function-item recentf-show-basenames-ascending) (function-item recentf-show-basenames-descending) @@ -724,14 +727,11 @@ Compares directories then filenames to order the list." (recentf-menu-element-value e2) (recentf-menu-element-value e1))))) -(defun recentf-show-basenames (l &optional no-dir) - "Filter the list of menu elements L to show filenames sans directory. -When a filename is duplicated, it is appended a sequence number if -optional argument NO-DIR is non-nil, or its directory otherwise." +(defun recentf--filter-names (l no-dir fun) (let (filtered-names filtered-list full name counters sufx) (dolist (elt l (nreverse filtered-list)) (setq full (recentf-menu-element-value elt) - name (file-name-nondirectory full)) + name (funcall fun full)) (if (not (member name filtered-names)) (push name filtered-names) (if no-dir @@ -743,6 +743,18 @@ optional argument NO-DIR is non-nil, or its directory otherwise." (setq name (format "%s(%s)" name sufx))) (push (recentf-make-menu-element name full) filtered-list)))) +(defun recentf-show-abbreviated (l &optional no-dir) + "Filter the list of menu elements L to show shortened filenames. +When a filename is duplicated, it is appended a sequence number if +optional argument NO-DIR is non-nil, or its directory otherwise." + (recentf--filter-names l no-dir #'abbreviate-file-name)) + +(defun recentf-show-basenames (l &optional no-dir) + "Filter the list of menu elements L to show filenames sans directory. +When a filename is duplicated, it is appended a sequence number if +optional argument NO-DIR is non-nil, or its directory otherwise." + (recentf--filter-names l no-dir #'file-name-nondirectory)) + (defsubst recentf-show-basenames-ascending (l) "Filter the list of menu elements L to show filenames sans directory. Filenames are sorted in ascending order. |