emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix exclusion of doom local files in recentf

Browse source 
Due to a load order issue, the doom-local-dir regexp wouldn't be mapped
through our custom recentf-filename-handlers. `file-in-directory-p` is
more robust.
This commit is contained in:
Henrik Lissner 2019-06-20 14:12:16 +02:00
parent 8434ae619d
commit c0eb1f524d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/core-editor.el
View file

@ -111,18 +111,19 @@ detected.")
recentf-auto-cleanup 'never recentf-auto-cleanup 'never
recentf-max-menu-items 0 recentf-max-menu-items 0
recentf-max-saved-items 200 recentf-max-saved-items 200
recentf-filename-handlers '(doom--recent-file-truename abbreviate-file-name)
recentf-exclude recentf-exclude
(list "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\)$" "^/tmp/" "^/ssh:" (list "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\)$" "^/tmp/" "^/ssh:"
"\\.?ido\\.last$" "\\.revive$" "/TAGS$" "^/var/folders/.+$" "\\.?ido\\.last$" "\\.revive$" "/TAGS$" "^/var/folders/.+$"
;; ignore private DOOM temp files ;; ignore private DOOM temp files
(regexp-quote (recentf-apply-filename-handlers doom-local-dir)))) (lambda (path)
(ignore-errors (file-in-directory-p path doom-local-dir)))))
(defun doom--recent-file-truename (file) (defun doom--recent-file-truename (file)
(if (or (file-remote-p file nil t) (if (or (file-remote-p file nil t)
(not (file-remote-p file))) (not (file-remote-p file)))
(file-truename file) (file-truename file)
file)) file))
(setq recentf-filename-handlers '(doom--recent-file-truename abbreviate-file-name))
(defun doom|recentf-touch-buffer () (defun doom|recentf-touch-buffer ()
"Bump file in recent file list when it is switched or written to." "Bump file in recent file list when it is switched or written to."