From 8a3d0edb72612eec139913c382cdc7053329716e Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sat, 18 Jun 2022 21:54:30 +0200 Subject: recentf: exclude files in symlinked user-emacs-directory --- lisp/init-recentf.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/init-recentf.el b/lisp/init-recentf.el index f9380c3..5a9ac1a 100644 --- a/lisp/init-recentf.el +++ b/lisp/init-recentf.el @@ -2,6 +2,13 @@ ;;; Commentary: ;;; Code: +(defun mpolden/recentf-exclude-p (filename) + "Return non-nil if file FILENAME is in a symlinked `user-emacs-directory'." + (and (not (file-remote-p filename)) + (file-in-directory-p filename user-emacs-directory) + (file-symlink-p (directory-file-name user-emacs-directory)) + (not (equal filename (file-truename filename))))) + (use-package recentf :init ;; set number of entries to save @@ -10,6 +17,7 @@ :config ;; ignore files in elpa directory as these may be opened by package.el (add-to-list 'recentf-exclude (expand-file-name "elpa" user-emacs-directory)) + (add-to-list 'recentf-exclude #'mpolden/recentf-exclude-p) (recentf-mode 1)) (provide 'init-recentf) -- cgit v1.2.3