From 0c93a1c5428b885be117927baf913fcc4d8790f6 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 30 Apr 2014 12:46:32 +0300 Subject: [PATCH] Ignore in recentf all files from the elpa dir and the savefile dir --- core/prelude-editor.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/core/prelude-editor.el b/core/prelude-editor.el index 038d2c5..9a31dd7 100644 --- a/core/prelude-editor.el +++ b/core/prelude-editor.el @@ -153,6 +153,15 @@ Will only occur if prelude-whitespace is also enabled." (setq recentf-save-file (expand-file-name "recentf" prelude-savefile-dir) recentf-max-saved-items 500 recentf-max-menu-items 15) + +(defun prelude-recentf-exclude-p (file) + "A predicate to decide whether to exclude FILE from recentf." + (let ((file-dir (file-truename (file-name-directory file)))) + (-any-p (lambda (dir) + (string-prefix-p dir file-dir)) + (mapcar 'file-truename (list prelude-savefile-dir package-user-dir))))) + +(add-to-list 'recentf-exclude 'prelude-recentf-exclude-p) (recentf-mode +1) ;; use shift + arrow keys to switch between visible buffers