blob: 5a9ac1a5311e33aed93f8280b29cf93c549b62bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;; init-recentf.el --- configure recentf -*- lexical-binding:t -*-
;;; 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
(setq recentf-max-saved-items 1000)
: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)
;;; init-recentf.el ends here
|